Тема: VBScript: список disabled-компьютеров в домене
Автор скрипта - alexii.
Скрипт выводит список компьютеров в домене, которые находятся в состоянии "disabled", в указанном подразделении (подразделение просматривается со всеми вложенными).
Option Explicit
Const ADS_SCOPE_SUBTREE = 2
Const ADS_UF_ACCOUNTDISABLE = 2
Dim objConnection
Dim objCommand
Dim objRecordSet
Set objConnection = WScript.CreateObject("ADODB.Connection")
Set objCommand = WScript.CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"SELECT Name, distinguishedName, userAccountControl " & _
"FROM 'LDAP://OU=MyOU,DC=MyDomain,DC=ru' " & _
"WHERE objectClass='computer'" 'WHERE objectCategory='computer'
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
With objRecordSet
.MoveFirst
Do Until .EOF
If .Fields("userAccountControl") AND ADS_UF_ACCOUNTDISABLE Then
WScript.Echo "[" & .Fields("distinguishedName") & "] is disabled"
End If
.MoveNext
Loop
End With
WScript.Quit 0
В строке
FROM 'LDAP://OU=MyOU,DC=MyDomain,DC=ru'
замените имя домена и подразделения на свои данные.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.