取得服务器上用户组列表的脚本之asp版

将下文存为任一asp文件如lg.asp即可.
正文从***下开始

1<form method="POST">   
2请输入域名:<input name="DomainName" size="20" type="text"/>
3<input name="B1" type="submit" value="提交"/>
4<input name="B2" type="reset" value="全部重写"/>
5</form>

 1   
 2if isempty(request("domainname")) or trim(request("domainname"))="" then   
 3response.end   
 4end if   
 5DomainString =request("domainname") 
 6
 7on error resume next   
 8Set DomainObj = GetObject("WinNT://" & DomainString)   
 9tmp= DomainObj.MinPasswordLength 'verify this is a valid domain   
10if err<>0 then   
11response.write "

连接域"&domainstring&"出错!

1"   
2response.end   
3end if

1<table bgcolor="ffffcc" border="1" cellpadding="4" width="90%">
2<tr align="Center">
3<td valign="top"><b><font color="Blue" size="5">域```
4=DomainString
5```内的所有组的列表</font></b>
6</td>
7</tr>
8</table>

1<table border="0" cellpadding="5"><tr><td><b><font size="3">组名</font></b></td><td><b><font size="3">描 
2
3述</font></b></td></tr>

DomainObj.Filter = Array("group")
For Each GroupObj In DomainObj
If GroupObj.Class = "Group" Then
strInfo=strInfo&"<tr><td>"&GroupObj.Name&"</td><td>"&GroupObj.Description&"</td></tr>"
End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
strInfo=strInfo & "</table>

1"   
2response.write strInfo & "

1"   
2response.write "

" & Now & "

1"