Oczywiście należałoby dodać do tego funkcję wysyłania maila, oraz zapis do pliku
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set cols = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfNet_Server").objectSet
objRefresher.Refresh
For i = 1 to 5
For Each obj in cols
Wscript.Echo "Blocking Requests Rejected: " & _
obj.BlockingRequestsRejected
Wscript.Echo "Bytes Received Per Second: " & _
obj.BytesReceivedPersec
Wscript.Echo "Bytes Total Per Second: " & obj.BytesTotalPersec
Wscript.Echo "Bytes Transmitted Per Second: " & _
obj.BytesTransmittedPersec
Wscript.Echo "Caption: " & obj.Caption
Wscript.Echo "Context Blocks Queued Per Second: " & _
obj.ContextBlocksQueuedPersec
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
