取得服务器上用户组列表的脚本之asp版
2018-09-06 13:13
将下文存为任一asp文件如lg.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.MinPasswordLengthverify this is a valid domain
0 then
response.end
end if
%>
描
<%
DomainObj.Filter = Array(group)
For Each GroupObj In DomainObj
If GroupObj.Class = Group Then<Font
End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
%>
文章标题:取得服务器上用户组列表的脚本之asp版
文章链接:http://soscw.com/index.php/essay/11034.html