当前位置：首页 > 资讯 > 技术文档

如何取得服务器上的用户组列表？

时间：2022-12-10 02:53 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何取得服务器上的用户组列表？

[u]domainname.asp

[/u]

<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>" %>

[b][1][/b]

全部评论(0)

上一篇：如何制作一个安全的页面？
下一篇：如何在ASP里建立表格？

资讯排行榜
更多>>