取得服务器上用户组列表脚本之VBS版
类别: ASP教程
\'groups.vbs
\'它原来的显示方式是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
\'它原来的显示方式是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
- 上一篇: 一个漂亮的点击计数器
- 下一篇: 取得服务器上用户组列表的脚本之ASP版
-= 资 源 教 程 =-
文 章 搜 索