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  Performance  

 Content of Monitor Server Performance.vbs
MD5 Hash: 6535C88E11B9DE85D8F398C092B5A7D8
' Description: Uses cooked performance counters to monitor communications using the WINS Server service.


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

For i = 1 to 5
For Each objItem in colItems
Wscript.Echo "Blocking Requests Rejected: " & _
objItem.BlockingRequestsRejected
Wscript.Echo "Bytes Received Per Second: " & _
objItem.BytesReceivedPersec
Wscript.Echo "Bytes Total Per Second: " & objItem.BytesTotalPersec
Wscript.Echo "Bytes Transmitted Per Second: " & _
objItem.BytesTransmittedPersec
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Context Blocks Queued Per Second: " & _
objItem.ContextBlocksQueuedPersec
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Errors Access Permissions: " & _
objItem.ErrorsAccessPermissions
Wscript.Echo "Errors Granted Access: " & _
objItem.ErrorsGrantedAccess
Wscript.Echo "Errors Logon: " & objItem.ErrorsLogon
Wscript.Echo "Errors System: " & objItem.ErrorsSystem
Wscript.Echo "File Directory Searches: " & _
objItem.FileDirectorySearches
Wscript.Echo "Files Open: " & objItem.FilesOpen
Wscript.Echo "Files Opened Total: " & objItem.FilesOpenedTotal
Wscript.Echo "Logon Per Second: " & objItem.LogonPersec
Wscript.Echo "Logon Total: " & objItem.LogonTotal
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Pool Nonpaged Bytes: " & objItem.PoolNonpagedBytes
Wscript.Echo "Pool Nonpaged Failures: " & _
objItem.PoolNonpagedFailures
Wscript.Echo "Pool Nonpaged Peak: " & objItem.PoolNonpagedPeak
Wscript.Echo "Pool Paged Bytes: " & objItem.PoolPagedBytes
Wscript.Echo "Pool Paged Failures: " & objItem.PoolPagedFailures
Wscript.Echo "Pool Paged Peak: " & objItem.PoolPagedPeak
Wscript.Echo "Server Sessions: " & objItem.ServerSessions
Wscript.Echo "Sessions Errored Out: " & objItem.SessionsErroredOut
Wscript.Echo "Sessions Forced Off: " & objItem.SessionsForcedOff
Wscript.Echo "Sessions Logged Off: " & objItem.SessionsLoggedOff
Wscript.Echo "Sessions Timed Out: " & objItem.SessionsTimedOut
Wscript.Echo "Work Item Shortages: " & objItem.WorkItemShortages
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