Introducción con scripting para ADSI
El scripting es útil para los administradores del sistema que desean crear scripts por lotes para tareas que se usan con frecuencia.
Para iniciar el scripting con ADSI, debe tener un equipo que ejecute Windows o que inicie sesión en un dominio que contenga datos para las cuentas de equipo en el directorio.
Ejemplo de scripting simple: buscar nombres y ubicaciones de cuentas de equipo
Cree un nuevo archivo de texto mediante un editor de texto. En el ejemplo de código siguiente se muestra cómo buscar nombres y ubicaciones de cuentas de equipo.
'---------------------------------------------------------------
' 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
Guarde el archivo como First.vbs. Modifique la línea que comienza por "objCommand.CommandText" para cambiar la ruta de acceso al dominio. En el símbolo del sistema, escriba cscript First.vbs para una línea de comandos o First.vbs para scripting de Windows. Los resultados deben devolverse en el símbolo del sistema.
Para obtener más información sobre el scripting para ADSI, consulte Scripting de interfaces de servicio de Active Directory.