Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Functoin getting Cluster status
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Functoin getting Cluster status
Even though you don't appear to use nodename, you would need to supply a
string in that position =Querycluster("nodename","groups") -- Regards, Tom Ogilvy "Steven" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Functoin getting Cluster status
Tom Ogilvy wrote:
Even though you don't appear to use nodename, you would need to supply a string in that position =Querycluster("nodename","groups") 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") objCluster.Open Nodename 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
reuest formula for auto update status & status date | Excel Worksheet Functions | |||
Using a user defined functoin to scan data for a number | Excel Discussion (Misc queries) | |||
How do I do cluster analysis in Excel 2003? | Charts and Charting in Excel | |||
How do i place a roundup functoin at the end of a formula? | Excel Worksheet Functions | |||
Can you combine an Excel Cluster Bar Graph with a Stacked Bar Grap | Charts and Charting in Excel |