You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
354 B
21 lines
354 B
Option Explicit
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
|
|
Dim oClusApp
|
|
Dim oCluster
|
|
Dim oParent
|
|
|
|
Set oClusApp = CreateObject("MSCluster.ClusApplication")
|
|
|
|
Set oCluster = oClusApp.OpenCluster("10.0.0.1")
|
|
|
|
Set oParent = oCluster.Parent
|
|
MsgBox "Parent's Name is " & oParent.Name
|
|
if oParent = oCluster then
|
|
MsgBox "Parent is Cluster."
|
|
end if
|
|
|
|
End Sub
|