domainname.asp

<form method="POST">

請(qǐng)輸入域名:<input type="text" name="DomainName" size="20">

<input type="submit" value="提交" name="B1">

<input type="reset" value="重寫(xiě)" 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

' 校驗(yàn)有效域.

if err<>0 then

response.write "<Font Color=Red>噢,連接域"&domainstring&"出錯(cuò)!</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%>內(nèi)的所有組的列表</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>"

%>

更多信息請(qǐng)查看IT技術(shù)專欄