26 lines
482 B
XML
26 lines
482 B
XML
|
<job id="Cluster Properties">
|
||
|
|
||
|
<reference guid="{f2e606e0-2631-11d1-89f1-00a0c90d061e}" version="1.0" />
|
||
|
|
||
|
<script language="VBScript">
|
||
|
|
||
|
Option Explicit
|
||
|
|
||
|
Dim oCluster
|
||
|
Dim oProps
|
||
|
Dim oProp
|
||
|
|
||
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
||
|
oCluster.Open( "galenb-clus" )
|
||
|
|
||
|
Set oProps = oCluster.CommonProperties
|
||
|
for each oProp in oProps
|
||
|
if oProp.Format <> CLUSPROP_FORMAT_BINARY then
|
||
|
MsgBox oProp.Name & " = " & oProp.Value
|
||
|
end if
|
||
|
next
|
||
|
|
||
|
</script>
|
||
|
</job>
|
||
|
|