| 本月文章推荐 |
取得服务器上用户组列表脚本之VBS版发表日期：2001-2-14
|
|
'groups.vbs
'时间:2001.2.5 '版本:1.0 '作者:沧海笑一声 '其它:此脚本原作者写于2000年初,沧海用过后觉得不是很好用. '它原来的显示方式是wsh的方法,往往要多屏显示,而且不能保存结果 '我将之改成IE显示的方法,用起来方便些.:) On Error Resume Next 'dim wshell dim ie,doc set ie = createobject("internetexplorer.application") ie.navigate "about:blank" ie.visible = true set doc = ie.document CRLF=CHR(13)+CHR(10) DomainString =inputbox("请输入一个域名:") msgbox "域名是:"&DomainString write "<Table border=1 cellpadding=4 width=90% bgcolor=ffffcc><TR Align=Center><TD valign=top> <B><Font Size=5 Color=Blue>"&UCASE(DomainString)&"内的所有组的列表</B></Font></td></tr></table>" doc.title=UCASE(DomainString) & " - 组" Set DomainObj = GetObject("WinNT://" & DomainString) tmp= DomainObj.MinPasswordLength 'verify this is a valid domain if err.number<>0 then write "<Font Color=Red> There was an error connecting to " & domainname & "</Font>!<br>" set ie=Nothing wscript.quit end if DomainObj.Filter = Array("group") strInfo="<Table border=0 cellpadding=5><TR><TD><B><Font Size=3>组名</Font></B></TD><TD><B><Font Size=3>描述 </Font></B></TD></TR>" ie.StatusText="正在收集信息,请稍候......" 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>" write strInfo & "<br>" write "<font size=1><I>" & Now & "</I></Font>" set ie=Nothing set doc=Nothing wscript.quit '****************** sub write(str) doc.body.insertAdjacentHTML "beforeend", str end sub |
| 上一篇：一个漂亮的点击计数器
人气:15414 下一篇：取得服务器上用户组列表的脚本之asp版 人气:10145 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
