windows-server-2003/ds/security/azroles/tests/topenad.wsf

<job id="myTest">
<reference object="AzRoles.AzAdminManager"/>

<script src="topenAD.inc" language="VBScript">

'global
Dim ADUrl 
ADUrl=""

Function GetCommandArg

    If 1 <> WScript.Arguments.Count Then
        WScript.Echo "Usage: topen ADUrl"
        GetCommandArg=False
    Else
        ADUrl=WScript.Arguments.Item(0)
        GetCommandArg=True
    End If
End Function


'main starts

If True = GetCommandArg Then

    AzPrintADPolicy ADUrl

End If 'GetCommandArg

</script>
</job>