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.end

end if

DomainString =request("domainname")

on error resume next

Set DomainObj = GetObject("WinNT://" & DomainString)

tmp= DomainObj.MinPasswordLength

' 校验有效域.

if err<>0 then

response.write "<Font Color=Red>噢,连接域"&domainstring&"出错!</Font><br>"

response.end

end 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" Then

strInfo=strInfo&"<tr><td><B><Font Size=3>"&GroupObj.Name&"</Font>

</B></td><td><B><Font Size=3>"&GroupObj.Description&"</Font>

</B></td></tr>"

End If

Next

set DomainObj = Nothing

set GroupObj = Nothing

strInfo=strInfo & "</Table>"

response.write strInfo & "<br>"

response.write "<font size=3><I>" & Now & "</I></Font>"

%>

[1]