Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("WARPREXN03")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\MSCluster")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
MSCluster_Resource", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Characteristics: " & objItem.Characteristics
WScript.Echo ".... removed to save space ...ss: " & objItem.Subclass
WScript.Echo "Type: " & objItem.Type
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
Mid(dtmDate,13, 2))
End Function
It only reports one resource:
==========================================
Computer: WARPREXN03
==========================================
Caption:
Characteristics: 0
CoreResource: False
CryptoCheckpoints:
DebugPrefix:
DeleteRequiresAllNodes: False
Description:
Flags: 0
IsAlivePollInterval: -1
LoadBalAnalysisInterval: 300000
LoadBalMinMemoryUnits: 0
LoadBalMinProcessorUnits: 0
LoadBalSampleInterval: 10000
LoadBalStartupInterval: 300000
LocalQuorumCapable: False
LooksAlivePollInterval: -1
Name: MSDTC IP Address
PendingTimeout: 180000
PersistentState: True
QuorumCapable: False
RegistryCheckpoints:
ResourceClass:
RestartAction: 2
RestartPeriod: 900000
RestartThreshold: 3
RetryPeriodOnFailure: -1
SeparateMonitor: False
State: 2
Status:
Subclass:
Type: IP Address
The result is the same on any node or virtual machine I select from the
cluster (exchange with sophos,quest and TSM resources)
I have re-installed and re-registered WMI on the WARPREXN01 node without an
improvement.
Can anybody suggest what I can do to resolve this issue ?????
Regards
Brian Lea