Skrypt do monitorowania NTDS
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set col = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_NTDS_NTDS").objectSet
objRefresher.Refresh
For i = 1 to 5
For Each obj in col
Wscript.Echo "Directory service threads in use: " & _
obj.DSThreadsInUse
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next
keywords : monitorowanie NTDS, vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc,vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc
Share Link: 
