windows-nt/Source/XPSP1/NT/base/cluster/admin/msclus/wsf/test.wsf

26 lines
629 B
XML
Raw Normal View History

2020-09-26 03:20:57 -05:00
<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>