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.
19 lines
359 B
19 lines
359 B
Dim oCluster
|
|
Dim devicePath
|
|
Dim logSize
|
|
Dim sCluster
|
|
|
|
Main
|
|
|
|
Sub Main
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
sCluster = InputBox( "Cluster to open?" )
|
|
oCluster.Open( sCluster )
|
|
devicePath = oCluster.QuorumPath
|
|
logSize = oCluster.QuorumLogSize
|
|
|
|
MsgBox "Quorum path is " & devicePath
|
|
MsgBox "Quorum log size is " & logSize
|
|
|
|
End Sub
|