取得服务器上用户组列表脚本之VBS版

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