使用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
Loop

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

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

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

修改txt文件后缀为vbs

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

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

cscript c:\displayComputer.vbs

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

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

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