Jak monitorować status replik Active Directory
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\MicrosoftActiveDirectory")
Set colRepOperations = objWMIService.ExecQuery _
("Select * from MSAD_ReplPendingOp")
If colRepOperations.Count = 0 Then
Wscript.Echo "There are no replication jobs pending at this time"
Wscript.Quit
Else
For each objRepJob in colRepOperations
Wscript.Echo "Serial number: " & objReplJob.SerialNumber
Wscript.Echo "Time in queue: " & objReplJob.TimeEnqueued
Wscript.Echo "DSA DN: " & objReplJob.DsaDN
Wscript.Echo "DSA address: " & objReplJob.DsaAddress
Wscript.Echo "Naming context DN: " & objReplJob.NamingContextDn
Next
End If
keywords : monitorowanie replikacji AD, 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: 
