使用VBS腳本顯示域中所有計算機名和創建時間
- 背景
- 制作VBS腳本
- 保存下面的VBS程式代碼到Txt檔案中
- 修改下列代碼中的域名為您自己的域名，
- 修改txt檔案后綴為vbs
- 在域中的任何一臺計算機的CMD視窗中運行此腳本
- 如果要輸出到文本檔案請運行下降代碼，
背景
假設我有一個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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/261059.html
標籤：其他
上一篇：Array/String/Boolean/Object/Function以及申明函式和物件的__proto__、prototype和constructor屬性的指向問題
下一篇：SLAM總結（一）