Using HP Insight Software from a Highly Available Central Management Server with Microsoft Cluster Service

28
"' in state '" & objMySvc.State &_
"' on node " & hostName
Exit Function
Else
Err.Raise(999)
Exit Function
End if
Next
End If
'WScript.Echo "Exit verify Svc:" & objMySvc 'DEBUG
End Function
Public Function WMIconnect( hostName, objWMI )
On Error Resume Next
Dim objLocator, objService
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMI = objLocator.ConnectServer(hostName, "root\cimv2",,,,,128)
if Err.Number <> 0 then
' WScript.Echo "Err Connect: " & Err.Number & Err.Description
ErrorCheck "ConnectServer", Err.Description
exit function
end if
objWMI.Security_.ImpersonationLevel = 3
End Function
Public Function getdiskSig( driveLtr, disksig )
DIM hostname, objWMIService, WMIquery
DIM objPartitions, objPartition
DIM objDisks, objDisk
hostname = "."
WMIconnect hostname, objWMIService
WMIquery = "WIN32_LogicalDisk.DeviceID='" & driveLtr & "'"
Set objPartitions = objWMIService.AssociatorsOf (WMIquery,,"Win32_DiskPartition")
Errorcheck "objPartitions", Err.Description
If objPartitions.count > 1 Then
Err.Number = 999
Errorcheck "objPartitions", "More partitions retrieved than expected."
End If
For Each objPartition in objPartitions
WMIquery = "Win32_DiskPartition.DeviceId='" _
& objPartition.DeviceId & "'"
Set objDisks = objWMIService.AssociatorsOf(WMIquery,,"Win32_DiskDrive")
Errorcheck "objDisks", Err.Description
If objDisks.count > 1 Then
Err.Number = 999
Errorcheck "objDisks", "More disks retrieved than expected."
End If
For Each objDisk in objDisks
disksig = objDisk.Signature
Exit Function
Next
Next
End Function