取得服務(wù)器上用戶組列表腳本之VBS版

2019-11-18 21:13:18

字體：大中小

供稿：網(wǎng)友

'groups.vbs
'時(shí)間:2001.2.5
'版本:1.0
'作者:滄海笑一聲
'其它:此腳本原作者寫于2000年初,滄海用過(guò)后覺(jué)得不是很好用.
'它原來(lái)的顯示方式是wsh的方法,往往要多屏顯示,而且不能保存結(jié)果
'我將之改成IE顯示的方法,用起來(lái)方便些.:)

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("請(qǐng)輸入一個(gè)域名:")
msgbox "域名是:"&DomainString

write "<Table border=1 cellpadding=4 width=90% bgcolor=ffffcc><TR Align=Center><TD valign=top> "&UCASE(DomainString)&"內(nèi)的所有組的列表</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 " There was an error connecting to " & domainname & "! "
 set ie=Nothing
 wscript.quit
end if

DomainObj.Filter = Array("group")
strInfo="<Table border=0 cellpadding=5><TR><TD>組名</TD><TD>描述
</TD></TR>"
ie.StatusText="正在收集信息,請(qǐng)稍候......"
For Each GroupObj In DomainObj
 If GroupObj.Class = "Group" Then
 strInfo=strInfo&"<TR><TD>"&GroupObj.Name&"</TD><TD>"&GroupObj.Description&"</TD></TR>"
 End If
Next
set DomainObj = Nothing
set GroupObj = Nothing
strInfo=strInfo & "</Table>"
write strInfo & " "

write "" & Now & ""

set ie=Nothing
set doc=Nothing
wscript.quit

'******************
sub write(str)
 doc.body.insertAdjacentHTML "beforeend", str
end sub

上一篇：我的論壇源代碼(七)

下一篇：Web腳本開(kāi)發(fā)語(yǔ)言比較