СКРИПТЫ, Все компьютеры из АД складывает в Файл

' Все компьютеры из АД складывает в Файл
Dim oContainer
Set oContainer=GetObject("LDAP://cn=Computers,DC=emexmsk,DC=local")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sFileName = "list of comps.txt"
Set objTextFile = objFSO.CreateTextFile(sFileName, True)
ListComputers oContainer
Set oContainer = Nothing
Sub ListComputers(oObject)
Dim Object
For Each Object in oObject
If Object.Class <> "computer" Then
ListComputers ( Object )
End If
If Object.Class = "computer" Then
Name = Object.Name
Name = Mid( Name, 4 )
objTextFile.WriteLine Name
end if
Next
End Sub

--
С уважением, Ратнер Арсений
a.ratner@autoemex.ru