如何取得服务器上的用户组列表?_编程10000问教程-查字典教程网
如何取得服务器上的用户组列表?
如何取得服务器上的用户组列表?
发布时间:2016-12-29 来源:查字典编辑
摘要:domainname.asp请输入域名:

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]

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新编程10000问学习
    热门编程10000问学习
    编程开发子分类