共用方式為

開始使用ADSI的腳本

  • 發行項

腳本對於想要為常用工作建立批次腳本的系統管理員很有用。

若要使用 ADSI 開始編寫文本，您必須有執行 Windows 的電腦，或登入包含目錄中電腦帳戶數據的網域。

簡單的文本範例：尋找計算機帳戶的名稱和位置

使用文字編輯器建立新的文字檔。 下列程式代碼範例示範如何尋找計算機帳戶的名稱和位置。

'---------------------------------------------------------------
' Returns the name and location for all the computer accounts in 
' Active Directory.
'--------------------------------------------------------------- 
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=fabrikam,DC=com' " & "where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.Properties("Cache Results") = False 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
    objRecordSet.MoveNext
Loop

將檔案儲存為 First.vbs。 修改以 「objCommand.CommandText」 開頭的行，以變更網域的路徑。 在命令提示字元中，輸入 命令行的 cscript First.vbs 或 Windows 腳本的 First.vbs。 應該在命令提示字元中傳回結果。

如需 ADSI 腳本的詳細資訊，請參閱 Active Directory 服務介面腳本。