26 lines
629 B
XML
26 lines
629 B
XML
<job id="Cluster Common Properties">
|
|
|
|
<reference guid="{f2e606e0-2631-11d1-89f1-00a0c90d061e}" version="1.0" />
|
|
|
|
<script language="VBScript">
|
|
|
|
Option Explicit
|
|
|
|
Dim oCluster
|
|
Dim oProps
|
|
|
|
Set oCluster = CreateObject("MSCluster.Cluster")
|
|
|
|
oCluster.Open ("galenb-a-clus")
|
|
|
|
oCluster.CommonProperties.Item(8).value;
|
|
oCluster.CommonProperties.Item(9).value = x.CommonProperties.Item(9).value;
|
|
' WScript.Echo(oCluster.PrivateProperties.Item(1).name)
|
|
oCluster.PrivateProperties.Item(1).name;
|
|
oCluster.PrivateProperties.Item(2).name;
|
|
oCluster.PrivateProperties.Item(3).name;
|
|
WScript.Echo("Done")
|
|
|
|
</script>
|
|
</job>
|