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サービスインターフェイスのスクリプトを参照してください。