domainname.asp
<form method=\”POST\”> 请输入域名:<input type=\”text\” name=\”DomainName\” size=\”20\”> <input type=\”submit\” value=\”提交\” name=\”B1\”> <input type=\”reset\” value=\”重写\” name=\”B2\”></form><%if isempty(request(\”domainname\”)) or trim(request(\”domainname\”))=\”\” then response.endend ifDomainString =request(\”domainname\”)on error resume nextSet DomainObj = GetObject(\”WinNT://\” & DomainString)tmp= DomainObj.MinPasswordLength
\’ 校验有效域.if err<>0 then response.write \”<Font Color=Red>噢,连接域\”&domainstring&\”出错!</Font><br>\” response.endend if%><Table border=1 cellpadding=4 width=90% bgcolor=ffffcc><tr Align=Center><td valign=top><B><Font Size=5 Color=Blue>域<%=DomainString%>内的所有组的列表</B></Font></td></tr></table><Table border=0 cellpadding=5><tr><td><B><Font Size=3>组名</Font></B></td><td><B><Font Size=3>描述</Font></B></td></tr><%DomainObj.Filter = Array(\”group\”)For Each GroupObj In DomainObj If GroupObj.Class = \”Group\” ThenstrInfo=strInfo&\”<tr><td><B><Font Size=3>\”&GroupObj.Name&\”</Font>
</B></td><td><B><Font Size=3>\”&GroupObj.Description&\”</Font>
</B></td></tr>\” End IfNextset DomainObj = Nothingset GroupObj = NothingstrInfo=strInfo & \”</Table>\”response.write strInfo & \”<br>\”response.write \”<font size=3><I>\” & Now & \”</I></Font>\”%>
[1]