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

2018-09-06 13:13

阅读:634

  将下文存为任一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



%>



评论


亲,登录后才可以留言!