 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
将下文存为任一asp文件如lg.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 \\\'verify this is a valid domain 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>" %> 返回类别: 教程 上一教程: 简朴的加密方式:XOR 下一教程: 用FSO获得图片文件的信息(大小，宽，高) 您可以阅读与"取得服务器上用户组列表的脚本之ASP版"相关的教程: · 取得服务器上用户组列表脚本之VBS版 · 在ASP中取得服务器网卡的MAC地址、DNS地址等网络信息 · 防护手册：如何防止ASP木马在服务器上运行 · 利用ASP从远程服务器上接收XML数据 · ASP跨服务器上传文件完美解决 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
