Excel Functoin getting Cluster status

S

Steven

I try to implement a Excel Function for getting the status of the groups
and so on. Here is my initial script. It doesn't work, when I try to try
to enter the formula "=Querycluster(nodename,"groups")". Any ideas
what's wrong.

+++

Public Function Querycluster(Node As String, Resource As String) As Variant

Dim objCluster As Object

Set objCluster = CreateObject("MSCluster.Cluster")

objCluster.
If objCluster Is Nothing Then
Querycluster = CVErr(2001)
Exit Function

End If
Select Case LCase(Resource)

Case "groups"
Querycluster = objCluster.ResourceGroups
Case Else
Querycluster = CVErr(2001)
End Select


End Function
 
T

Tom Ogilvy

Even though you don't appear to use nodename, you would need to supply a
string in that position

=Querycluster("nodename","groups")
 
S

Steven

Tom said:
Even though you don't appear to use nodename, you would need to supply a
string in that position

=Querycluster("nodename","groups")
Click to expand...
You mean

Putting in Cell =Querycluster("<nodename">,"groups")

Script looks this (changes here >>)

Public Function Querycluster(Nodename As String, Resource As String) As
Variant

Dim objCluster As Object

Set objCluster = CreateObject("MSCluster.Cluster")If objCluster Is Nothing Then
Querycluster = CVErr(2001)
Exit Function

End If
Select Case LCase(Resource)

Case "groups"
Querycluster = objCluster.ResourceGroups
Case Else
Querycluster = CVErr(2001)
End Select


End Function
 
Top