domainname.asp

请输入域名:

<%

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 "噢,连接域"&domainstring&"出错!
"

response.end

end if

%>

域<%=DomainString%>内的所有组的列表

<%

DomainObj.Filter = Array("group")

For Each GroupObj In DomainObj

If GroupObj.Class = "Group" Then

strInfo=strInfo&"

"

End If

Next

set DomainObj = Nothing

set GroupObj = Nothing

strInfo=strInfo & "

组名	描述
"&GroupObj.Name&"	"&GroupObj.Description&"

"

response.write strInfo & "
"

response.write "" & Now & ""

%>

更多信息请查看IT技术专栏