vbs 服务器获取输入信息,取得服务器上用户组列表脚本之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 "

Size=5 Color=Blue>"&UCASE(DomainString)&"内的所有组的列表

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="

组名

描述

ie.StatusText="正在收集信息,请稍候……"

For Each GroupObj In DomainObj

If GroupObj.Class = "Group" Then

strInfo=strInfo&"

"&GroupObj.Name&"

Size=3>"&GroupObj.Description&"

End If

set DomainObj = Nothing

set GroupObj = Nothing

strInfo=strInfo & "

write strInfo & "
"

write "" & Now & ""

set ie=Nothing

set doc=Nothing

wscript.quit

‘******************

sub write(str)

doc.body.insertAdjacentHTML "beforeend", str

end sub

vbs 服务器获取输入信息,取得服务器上用户组列表脚本之VBS版相关推荐

（八十二）利用苹果服务器获取导航信息和绘制路径
要通过苹果的服务器获得导航数据,利用系统自带的类即可实现,先创建MKDirectionsRequest,然后利用request创建MKDirections,最后调用MKDirection对象的calc ...
无法获取签名信息，请上传有效包(110506)
此篇文章将要介绍安卓App提交应用商店时遇到的两个小问题的相关介绍,具体代码请看下文陆陆续续做了一个半月左右的「喵呜天气」终于在今天下午成功提交到应用商店(腾讯应用宝).期间遇到两个小问题,记录如下 ...
c++语言怎么从internet上某个时间服务器获取时间信息,在VC++中实现同步Internet时间...
写作目的:(此段可跳过) 同步Internet时间,即通过Internet的校时网站传来的数据校准本机时间.但是现在网络上查到的相关编程资料并不多,且其中多是VB和Delphi的代码,VC的代码我还没 ...
从微信服务器获取用户信息,微信小程序Ⅴ [获取登陆用户信息，重点openID(详解)]...
♩ 背景其实这篇文章几个月前就写完了,可是这段时间,微信小程序官方文档有了更新,同事在我本身的实际操做过程当中,发现以前写的过于繁杂,因此如今进行简化梳理,欢迎指摘. 语言框架:ThinkPHP3. ...
服务器获取用户信息失败是什么原因,花粉俱乐部获取用户信息失败怎么解决？花粉俱乐部登录失败是什么原因？...
花粉俱乐部作为华为旗下的以服务花粉为宗旨的综合性网站,里面的内容还是很丰富的,涉及了华为产品的各个方面,比如鸿蒙系统内测升级报名等等,不过近日有小伙伴发现花粉俱乐部在维护,差不多要半个月的时间,这是什 ...
软件卸载后服务器还有个人信息吗,服务器软件的卸载记录
服务器软件的卸载记录内容精选换一换公共镜像是由华为云官方提供的镜像,适配了弹性云服务器或裸金属服务器兼容性并安装了必要的初始化插件,所有用户均可使用,涵盖大部分主流操作系统.本文介绍公共镜像类型 ...
服务器读取内存信息,读取服务器内存信息工具
读取服务器内存信息工具内容精选换一换 Ascend-DMI工具主要为Atlas产品的标卡.板卡及模组类产品提供带宽测试.算力测试.功耗测试等功能.工具的功能介绍如表1所示.本系统通过调用底层DCM ...
服务器获取客户端电脑文件,服务器获取客户端文件
服务器获取客户端文件内容精选换一换 Web服务端证书用于客户端浏览器和web服务器之间的通讯,实现数据信息在客户端和web服务器之间的加密传输,可以防止数据信息的泄露.为提高安全性,建议替换成自己 ...
r730服务器导入阵列信息,r730服务器raid配置
r730服务器raid配置内容精选换一换 Ceph块设备物理环境采用"两层网络+三节点"的部署方案,其中,MON.MGR.MDS节点与OSD存储节点混合部署.在网络层面,Pub ...

vbs 服务器获取输入信息,取得服务器上用户组列表脚本之VBS版

vbs 服务器获取输入信息,取得服务器上用户组列表脚本之VBS版相关推荐

最新文章

热门文章