нужно выдернуть из активдиректории список пользователей а у каждого пользваотеля все имеющиеся у него введенные данные.
есть такой скрипт:
'Global variables
Dim oContainer
Dim OutPutFile
Dim FileSystem
'Initialize global variables
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("user_list.csv", True)
Set oContainer=GetObject("LDAP://OU=user,DC=xxx,DC=xxx,DC=local")
OutPutFile.WriteLine "name;email"
'Enumerate Container
EnumerateUsers oContainer
'Clean up
OutPutFile.Close
Set FileSystem = Nothing
Set oContainer = Nothing
WScript.Echo "Finished"
WScript.Quit(0)
Sub EnumerateUsers(oCont)
Dim oUser
Dim oUs
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "user"
If Not IsEmpty(oUser.name) Then
'------------------------------
For Each oUs In oUser
OutPutFile.WriteLine oUs
Next
'------------------------------
End If
Case "organizationalunit", "container"
EnumerateUsers oUser
End Select
Next
-----------
если вместо второго цикла просто написать
OutPutFile.WriteLine oUser.name
то в файл выгружается имена, но мне надо все его данные еще выгрузить. пробовал как в примере он не заходит в цикл.
подскажите что делать