22 lines
333 B
Plaintext
22 lines
333 B
Plaintext
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
|