随机更改计算机名时间vbs,使用VBS脚本显示域中所有计算机名和创建时间

背景

假设我有一个Windows域，名为mydomain.com。现在到导出这个域中的所有计算机名和计算机账号创建时间。

制作VBS脚本

保存下面的VBS程序代码到Txt文件中

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.CommandText = "Select Name, Location from 'LDAP://DC=mydomain,DC=com' Where objectClass='computer'"

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value & objRecordSet.Fields("Created").Value objRecordSet.MoveNext

Loop1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

假设保存的txt文件名为displayComputer.txt

修改下列代码中的域名为您自己的域名。

objCommand.CommandText = "Select Name, Location from 'LDAP://DC=mydomain,DC=com' Where objectClass='computer'"1

修改txt文件后缀为vbs

即将displayComputer.txt改为displayComputer.vbs。如果不显示后最请修改资源管理器设置，让其显示已知文件扩展名。

在域中的任何一台计算机的CMD窗口中运行此脚本

cscript c:\displayComputer.vbs

注意不要直接双击此vbs文件，否则会一直弹提示窗，直到所有计算机都显示一遍。或只能通过结束任务的方式结束。

如果要输出到文本文件请运行下降代码。

cscript c:\displayComputer.vbs >c:\myDomainComputers.txt

文章来源: blog.csdn.net，作者：wwchtsy，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/wwchtsy/article/details/113852189