Поделиться через

Начало работы с скриптами для 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 для командной строки или First.vbs для сценариев Windows. Результаты должны быть возвращены в командной строке.

Дополнительные сведения о скриптах для ADSI см. в разделе "Сценарии интерфейсов служб Active Directory".