vbs 获取计算机主机名,域内计算机和用户获取实现vbs代码

冷不防 2022-10-09 14:29 294阅读 0赞

显示当前域内所有计算机名称及数目

复制代码 代码如下:

Const ADS\_SCOPE\_SUBTREE = 2

Set objRootDSE = GetObject("LDAP://rootDSE")

strDomain = ObjRootDSE.Get("defaultNamingContext")

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 \* FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'"

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

Wscript.Echo objRecordSet.Fields("ADsPath").Value

objRecordSet.MoveNext

Loop

Wscript.Echo ""

Wscript.Echo "Total Computer: "&objRecordSet.RecordCount

显示当前域内所有用户名称及数目

复制代码 代码如下:

Const ADS\_SCOPE\_SUBTREE = 2

Set objRootDSE = GetObject("LDAP://rootDSE")

strDomain = ObjRootDSE.Get("defaultNamingContext")

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 \* FROM 'LDAP://" & strDomain & "' WHERE objectCategory='user'"

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

Wscript.Echo objRecordSet.Fields("ADsPath").Value

objRecordSet.MoveNext

Loop

Wscript.Echo ""

Wscript.Echo "Total User: "&objRecordSet.RecordCount

发表评论取消回复

表情：

评论列表（有 0 条评论，294人围观）

还没有评论，来说两句吧...

相关阅读

相关 java获取计算机用户名

Map<String, String> map = System.getenv(); String userName = map.get("USERNAME");// 获

Bertha 。/ 2024年02月17日 22:38/ 0 赞/ 76 阅读

相关大学计算机D（VB.NET）

第一部分 1、单选题： VB.NET属于下面哪类编程语言（）选项： A:低级 B:面向过程 C:面向对象 D:中级答案: 【面向对象】

短命女/ 2023年07月22日 14:25/ 0 赞/ 17 阅读

相关 vbs 获取计算机主机名,域内计算机和用户获取实现vbs代码

显示当前域内所有计算机名称及数目复制代码代码如下: Const ADS\_SCOPE\_SUBTREE = 2 Set objRootDSE = GetObject(

冷不防/ 2022年10月09日 14:29/ 0 赞/ 295 阅读

相关计算机二级vb语言题库百度云,2016计算机二级VB语言考试题与答案

2016计算机二级VB语言考试题与答案距离计算机二级考试还有十多天时间，考生通过试题练习来训练做题速度，了解其考试题型。下面百分网小编为大家搜索整理了计算机二级VB语言考试

淩亂°似流年/ 2022年10月07日 08:50/ 0 赞/ 264 阅读

相关 vbs 获取跨服务器文件,用vbs读取远程计算机上的文本文件的代码

问：您好，脚本专家！如何读取远程计算机上的文本文件？ \-- BM 答：您好，BM。我们得承认：我们在利用您和您的问题来达成我们自己的邪恶目的。本周早些时候我们回答

╰半橙微兮°/ 2022年09月04日 06:57/ 0 赞/ 242 阅读

相关关闭计算机vb,用VB编写定时关闭计算机的程序

微软的VB以简单易用，功能强大而著称，使用VB可以很容易地编写出定时关闭计算机的程序。以下是一个简单的定时关闭计算机的程序,供各位使用VB的朋友参考,如有何不适之处,请多指点!

旧城等待，/ 2022年09月02日 04:09/ 0 赞/ 193 阅读

相关 vbs代码弹计算机,小白零基础学编程-VBS入门之弹出对话框

从这节课开始，我们要教点真正有用的东西了。今天会讲到，怎样写一个程序，点击运行后，让它弹出一个对话框，并提示用户“你好，我是编了个程的苏苏姐。”。首先，我们并不急于写代码。

Bertha 。/ 2022年09月01日 11:59/ 0 赞/ 164 阅读

相关 C#/VB.net/VB 获取系统时间

系统运行中的一个度量主线就是时间，因此时间的获取可以说是很普遍的。而东西多了，难免就混乱。今天总结一下vb/vb.net/C\获取系统时间的语法格式，方便日后查

川长思鸟来/ 2022年08月19日 11:11/ 0 赞/ 227 阅读

相关 python 获取本机计算机名和IP地址

[python 获取本机计算机名和IP地址 ][python _IP_] 分类： [ Python][Python] 2012-10-30 16:59 168人阅读 [

川长思鸟来/ 2022年04月10日 09:54/ 0 赞/ 285 阅读

相关 nmap 获取主机名

一开始试了命令 $ nmap -A 192.168.1.88 等了大半天，终于出来结果(手工局部加码)： Starting Nmap 5.21 ( htt

﹏ヽ暗。殇╰゛Y/ 2021年08月30日 12:10/ 0 赞/ 594 阅读