取得服务器上用户组列表脚本之VBS版
2018-09-06 12:15
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
<Font
doc.title=UCASE(DomainString) - 组
Set DomainObj = GetObject(WinNT:// DomainString)
tmp= DomainObj.MinPasswordLengthverify this is a valid domain
0 then
set ie=Nothing
wscript.quit
end if
DomainObj.Filter = Array(group)
描述
ie.StatusText=正在收集信息,请稍候......
For Each GroupObj In DomainObj
If GroupObj.Class = Group Then<Font
End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
set ie=Nothing
set doc=Nothing
wscript.quit
******************
sub write(str)
end sub