Tags: 2000 cluster groups vbs windows wmi
Since WMI namespace "root\mscluster" does not exist in Windows 2000, I needed a quick-n-dirty way to retrieve a list of cluster groups and their current owner. Here's the code: ' Save this as 'fetchgroups.vbs'' Execute in DOS prompt: cscript //nologo fetchgroups.vbsbolPastHeading = FalseintLen1 = 0 : intLen2 = 0 : intLen3 = 0Set objShell = Wscript.CreateObject("Wscript.Shell")Set objExec = objShell.Exec("cmd.exe /c cluster group")Do strReadLine = objExec.StdOut.ReadLine() If (bolPastHeading) Th
Since WMI namespace "root\mscluster" does not exist in Windows 2000, I needed a quick-n-dirty way to retrieve a list of cluster groups and their current owner. Here's the code: ' Save this as 'fetchgroups.vbs'' Execute in DOS prompt: cscript //nologo fetchgroups.vbsbolPastHeading = FalseintLen1 = 0 : intLen2 = 0 : intLen3 = 0Set objShell = Wscript.CreateObject("Wscript.Shell")Set objExec = objShell.Exec("cmd.exe /c cluster group")Do strReadLine = objExec.StdOut.ReadLine() If (bolPastHeading) Th