18 lines
311 B
XML
18 lines
311 B
XML
<job id="Domains">
|
|
|
|
<reference guid="{f2e606e0-2631-11d1-89f1-00a0c90d061e}" version="1.0" />
|
|
|
|
<script language="VBScript">
|
|
|
|
Option Explicit
|
|
|
|
Dim oClusApp
|
|
Dim oDomains
|
|
|
|
Set oClusApp = CreateObject("MSCluster.ClusApplication")
|
|
|
|
Set oDomains = oClusApp.DomainNames
|
|
|
|
</script>
|
|
</job>
|