33 lines
943 B
Plaintext
33 lines
943 B
Plaintext
|
'reads the list of domain controllers from the Microsoft_ADReplStatus
|
||
|
|
'provider, them launches MMC HEALTHMON.MSC with the
|
||
|
|
'/Healthmon_Systems: parameter set appropriately
|
||
|
|
|
||
|
|
'History
|
||
|
|
'11/23/99 Started by JonN
|
||
|
|
'11/29/99 JonN: Preliminary version working
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Dim Provider
|
||
|
|
Dim DomainControllerSet
|
||
|
|
Dim DomainController
|
||
|
|
Dim strCommand
|
||
|
|
Dim blnFirst
|
||
|
|
Dim Process
|
||
|
|
Dim Result
|
||
|
|
Set Provider = GetObject("winmgmts://.\root/MicrosoftADStatus")
|
||
|
|
Set DomainControllerSet = Provider.InstancesOf("Microsoft_ADReplDomainController")
|
||
|
|
strCommand = "mmc.exe d:\winnt\system32\wbem\healthmonitor\00000409\healthmonitor.msc /Healthmon_Systems:"
|
||
|
|
blnFirst = True
|
||
|
|
for each DomainController in DomainControllerSet
|
||
|
|
If Not blnFirst then
|
||
|
|
strCommand = strCommand + ","
|
||
|
|
end if
|
||
|
|
strCommand = strCommand + DomainController.CommonName
|
||
|
|
blnFirst = False
|
||
|
|
next
|
||
|
|
Set Process = GetObject("winmgmts:Win32_Process")
|
||
|
|
Result = process.Create(strCommand)
|