枚举域内计算机个数vbscript脚本（没环境，没测试）_vbs

原来是微软专家的代码在这：
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx
我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码：

复制代码 代码如下:

On Error Resume Next
Set objRootDSE = GetObject("LDAP://rootDSE")
strDomain = ObjRootDSE.Get("defaultNamingContext")
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT Name FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'"
Set objRecordSet = objCommand.Execute
Wscript.Echo objRecordSet.RecordCount

时间： 2024-10-24 22:07:41

枚举域内计算机个数vbscript脚本（没环境，没测试）_vbs的相关文章

域内计算机和用户获取实现vbs代码_vbs

显示当前域内所有计算机名称及数目 复制代码 代码如下: Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = GetObject("LDAP://rootDSE") strDomain = ObjRootDSE.Get("defaultNamingContext") Set objConnection = CreateObject("ADODB.Connection") Set objCommand = Cre

新入域的计算机枚举，显示加域人员的批处理_DOS/BAT

文件名:querycomputer.bat 功能:查找域内未分组的计算机,并显示计算机名和加域的用户 作用:可以实施监视计算机列表,以提醒进行计算机分组,也可审核计算机命名是否规范,确定责任人. 注意事项:批处理运行前,最好先将现有的域内computers容器内的计算机全部按OU分组,脚本运行后会罗列computers容器内的新计算机. 复制代码 代码如下: @echo off echo 域内未分组计算机监视 echo 如果找到计算机,将显示找到的计算机列表,并通过PC喇叭提示. echo. c

VPN用户在外网通过ISA （CA证书）访问域内VPN服务器

一般情况下VPN用户在连接VPN服务器是是要输入密码的,如果这样的话,那么在一些公共场合输入密码的时候很有可能造成密码的泄露,从而造成不必要的损失.口令验证协议虽然硬件上的要求没有质询握手协议那么高,但是,在安全性上面,其跟质询握手协议还是有一段距离.具体要采用哪一种身份验证协议,用户要根据自己的安全级别进行判断.今天我做的这个实验是:VPN用户在外网连接VPN服务器来访问域内的资源时,不需要输入密码,而是通过CA服务器验证VPN用户的身份. 实验环境:beijing内网的域控制器.DNS服务器

dos2unix格式转换之VBScript脚本

Unix软件开发,一般情况下我们会在windows下使用工具进行开发测试,然后上传到Unix下(测试),但是通常情况下工具保存的是dos格式,上传上去后往往会出现一些问题(如ClearCase下下来后都增加了换行,Oracle存储过程.Unix Shell不能运行等),于是我们就需要将格式转换成unix格式再上传.这个vbscript脚本就是一个转换工具.当然,我们也可以使用Eclipse,Notepad++等工具进行转换. dos2unix.vbs This is a script for t

JS替换文本域内的回车示例

 这篇文章主要介绍了JS如何替换文本域内的回车,需要的朋友可以参考下 代码如下: <html>  <head>  <title>无标题文档</title>  <script type="text/javascript">  function aa()  {  s=form1.t1.value;  s=s.replace(//n|/r/g,"");// 加上g是全局替换,不加只替换第一个 是回车.是换行符 

数据报-关于局域网内计算机的通信

问题描述 关于局域网内计算机的通信 一台计算机是怎么将自己内存中的东西变成数据报然后传递给处于同一局域网内另一台计算机的,能不能详细的说明一下,谢谢啦. 解决方案 首先你应该明白网络通讯是分层的.所以你可以在任何层上进行通讯,当然对方要用对应的程序去解析. 比如说,在IP层上,你可以用raw socket,在传输层上,可以用socket,用udp协议和tcp协议.你还可以在应用层使用http之类的协议. 纠正下你的观点,内存中的东西就是数据,无须"变成数据".你只要选定你采用的协议,按

超时-如何实现Android在规定时间内若http请求的数据还没返回就直接关闭请求

问题描述 如何实现Android在规定时间内若http请求的数据还没返回就直接关闭请求 在Android上进行http网络访问时,如果在规定时间内网络还没返回数据,就跳转到另一个界面,请问这个该怎么实现? 解决方案 设置超时时间 con.setConnectTimeout (6000); 关闭请求可以抛出异常中写 解决方案二: Android 浏览器直接请求链接有返回数据,但在程序中请求无返回. 解决方案三: HTTP协议使用TCP协议传输的,因此在传输数据之前采用三次握手建立TCP连接.第4个

zigbee cc2530在读取内置温度时，按键程序没反应，读取温度也只进行一次

问题描述 zigbee cc2530在读取内置温度时,按键程序没反应,读取温度也只进行一次 用的是2007协议栈,sampleapp例子,单片机用dadc的话会把按键中断关了还是怎么回事?

编辑器-急求！求助！悬赏！怎么修改局域内网的服务器时间？

问题描述 急求!求助!悬赏!怎么修改局域内网的服务器时间? 4C 如题.公司局域内网打不开注册表编辑器或组策略,一打开就秒关,关闭了防火墙也不行,没办法架构NTP时间服务器,电脑是XP系统,目前有两台电脑,急求今晚解决修改时间问题!悬赏可再增加!注意:我需要的不是怎样修改电脑时间,而是怎样修改电脑同步的网络时间? 解决方案 重新格式化安装下系统 解决方案二: 进安全模式试试,不要告诉我不会进