| 标题 | 如何取得服务器上的用户组列表？ |
| 范文 | 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>" %> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。