Mam do zaprezentowania skrypt monitorujący terminal services na w2k3
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set cols = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_Perf_TermService_TerminalServiceSession").objectSet
objRefresher.Refresh
For i = 1 to 5
For Each obj in cols
Wscript.Echo "Caption: " & obj.Caption
Wscript.Echo "Description: " & obj.Description
Wscript.Echo "Handle Count: " & obj.HandleCount
Wscript.Echo "Input Asynchronous Frame Error: " & _
obj.InputAsyncFrameError
Wscript.Echo "Input Asynchronous Overflow: " & _
obj.InputAsyncOverflow
Wscript.Echo "Input Asynchronous Overrun: " & obj.InputAsyncOverrun
Wscript.Echo "Input Asynchronous Parity Error: " & _
obj.InputAsyncParityError
Wscript.Echo "Input Bytes: " & obj.InputBytes
Wscript.Echo "Input Compressed Bytes: " & obj.InputCompressedBytes
Wscript.Echo "Input Compress Flushes: " & obj.InputCompressFlushes
Wscript.Echo "Input Compression Ratio: " & _
obj.InputCompressionRatio
Wscript.Echo "Input Errors: " & obj.InputErrors
Wscript.Echo "Input Frames: " & obj.InputFrames
Wscript.Echo "Input Timeouts: " & obj.InputTimeouts
Wscript.Echo "Input Transport Errors: " & obj.InputTransportErrors
Wscript.Echo "Input Wait For OutputBuffer: " & _
obj.InputWaitForOutBuf
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
