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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 取得服务器上用户组列表脚本之VBS版

ASP: isNull(str), isEmpty(str)和 str = 的区别; 使用ADO批量更新记录（源代码）; 自己动手，结合javascript和dhtml做一个ubb编辑器; 检查Email地址的比较完善的正则表达式函数; 从Access数据库恢复BMP图像并显示在WEB页面(microsoft); ASP环境下邮件列表功能的实现（四）（推荐）; 在ASP应用中如何限制同一表单被多次提交！！！！好东西; 了解MSMQ，控制ASP进程（一）; 了解MSMQ，控制ASP进程（二）; ASP技术在论坛中的运用(一)（吐血推荐！！！！）; ASP技术在论坛中的运用(二)（吐血推荐！！！！）; ASP技术在论坛中的运用(三)（吐血推荐！！！！）; ASP技术在论坛中的运用(四)（吐血推荐！！！！）; ASP技术在论坛中的运用(五)（吐血推荐！！！！）; ASP技术在论坛中的运用(六)（吐血推荐！！！！）; ASP技术在论坛中的运用(七)（吐血推荐！！！！）; ASP技术在论坛中的运用(八)（吐血推荐！！！！）; 不用数据源打开数据库（DSNless connection); 大部分的ADO的错误码对应的含义; 好东西，翻页程序，大家可以参考

No. « ‹ 189 190 191 192 › »

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 57 ::

收藏到网摘: n/a

一个漂亮的点击计数器取得服务器上用户组列表的脚本之asp版

'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> "&UCASE(DomainString)&"内的所有组的列表</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="正在收集信息,请稍候......"
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

一个漂亮的点击计数器取得服务器上用户组列表的脚本之asp版

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

评论 (0) All

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