Introdução ao script para ADSI

Os scripts são úteis para administradores de sistema que desejam criar scripts em lote para tarefas usadas com frequência.

Para iniciar o script com o ADSI, você deve ter um computador que execute o Windows ou estar conectado a um domínio que contenha dados para contas de computador no diretório.

Um exemplo de script simples: Localizando nomes e locais de contas de computador

Crie um novo arquivo de texto usando um editor de texto. O exemplo de código a seguir mostra como localizar nomes e locais de contas de computador.

'---------------------------------------------------------------
' 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

Salve o arquivo como First.vbs. Modifique a linha que começa com "objCommand.CommandText" para alterar o caminho para o seu domínio. No prompt de comando, digite cscript First.vbs para uma linha de comando ou First.vbs para scripts do Windows. Os resultados devem ser retornados no prompt de comando.

Para obter mais informações sobre scripts para ADSI, consulte Scripts de interfaces de serviço do Active Directory.