[Iska]

проверяет OU domain.com/Computers »

Нет такого OU. Может быть «OU=Computers,DC=domain,DC=com».

И так 22 раза »

Почему не 21 или 23? Я полагаю, что достаточно просто перебрать существующие аккаунты компьютеров в «OU=Computers,DC=domain,DC=com», так?

[PAlkovnic]

Нет такого OU. Может быть «OU=Computers,DC=domain,DC=com». »

Каюсь, мне было проще написать canonicalName

Почему не 21 или 23? Я полагаю, что достаточно просто перебрать существующие аккаунты компьютеров в «OU=Computers,DC=domain,DC=com», так? »

Не совсем так. Именно 22 потому, что именно 22 филиала с уникальным префиксом по названию города. А перебирать существующие аккаунты можно, но они там появляются регулярно, и регулярно их оттуда руками перемещают по своим местам. К тому же, в этом контейнере есть машины, которые должны оставаться там и только там (некоторые финансовые службы завязаны на DN)

[Iska]

PAlkovnic, примерно так:

читать дальше »

Код:

Option Explicit

Const ADS_SCOPE_ONELEVEL = 1


Dim objDictionary

Dim strDomain

Dim objConnection
Dim strKey


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With objDictionary
	.Add "ABCD", "OU=ABCD"
	.Add "EFGH", "OU=EFGH"
	' … И так 22 раза)))
End With


strDomain = GetObject("LDAP://RootDSE").Get("DefaultNamingContext")

Set objConnection = WScript.CreateObject("ADODB.Connection")

With objConnection
	.Provider = "ADsDSOObject"
	.Open "Active Directory Provider"
End With

With WScript.CreateObject("ADODB.Command")
	Set .ActiveConnection = objConnection
	
	.CommandText = _
		"SELECT Name, distinguishedName " & _
		"FROM 'LDAP://CN=Computers," & strDomain & "' " & _
		"WHERE objectClass='computer'"
		
	With .Properties
		.Item("Searchscope") = ADS_SCOPE_ONELEVEL
		.Item("Page Size")   = 1000
		.Item("Timeout")     = 60
		.Item("Sort On")     = "Name"
	End With
	
	With .Execute()
		.MoveFirst
		
		Do Until .EOF
			For Each strKey In objDictionary.Keys
				If StrComp(Left(.Fields.Item("Name").Value, 4), strKey, vbTextCompare) = 0 Then
					WScript.Echo .Fields.Item("Name").Value
					
					GetObject("LDAP://" & objDictionary.Item(strKey) & "," & strDomain).MoveHere "LDAP://" & .Fields.Item("distinguishedName").Value, vbNullString
				End If
			Next
			
			.MoveNext
		Loop
		
		.Close
	End With
	
	Set .ActiveConnection = Nothing
End With

objConnection.Close
Set objConnection = Nothing

objDictionary.RemoveAll
Set objDictionary = Nothing

WScript.Quit 0

Кстати, я неглядючи ненароком соврал Вам выше — не «OU=Computers», а «CN=Computers».