Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Monitor  Server  Work  Queues  

 Content of Monitor Server Work Queues.vbs
MD5 Hash: 29ABFDA15665318BB0CECEFA3A6C9624
' Description: Uses cooked performance counters to monitor the length of the queues and objects in the queues


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
"Win32_PerfFormattedData_PerfNet_ServerWorkQueues").objectSet
objRefresher.Refresh

For i = 1 to 5
For Each objItem in colItems
Wscript.Echo "Active Threads: " & objItem.ActiveThreads
Wscript.Echo "Available Threads: " & objItem.AvailableThreads
Wscript.Echo "Available Work Items: " & objItem.AvailableWorkItems
Wscript.Echo "Borrowed Work Items: " & objItem.BorrowedWorkItems
Wscript.Echo "Bytes Received Per Second: " & _
objItem.BytesReceivedPersec
Wscript.Echo "Bytes Sent Per Second: " & objItem.BytesSentPersec
Wscript.Echo "Bytes Transferred Per Second: " & _
objItem.BytesTransferredPersec
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Context Blocks Queued Per Second: " & _
objItem.ContextBlocksQueuedPersec
Wscript.Echo "Current Clients: " & objItem.CurrentClients
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Queue Length: " & objItem.QueueLength
Wscript.Echo "Read Bytes Per Second: " & objItem.ReadBytesPersec
Wscript.Echo "Read Operations Per Second: " & _
objItem.ReadOperationsPersec
Wscript.Echo "Total Bytes Per Second: " & objItem.TotalBytesPersec
Wscript.Echo "Total Operations Per Second: " & _
objItem.TotalOperationsPersec
Wscript.Echo "Work Item Shortages: " & objItem.WorkItemShortages
Wscript.Echo "Write Bytes Per Second: " & objItem.WriteBytesPersec
Wscript.Echo "Write Operations Per Second: " & _
objItem.WriteOperationsPersec
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a