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]