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]
