нид хелп

[exchange12rocks]

Как тут надо расставить i = "    " и i = i & i, чтобы отформатированно оно было как при просмотре в оснастке Active Directory Users & Computers?

strMyOU = "Users"
strMyDomain = "OU=Company,DC=example,DC=com"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TF = FSO.CreateTextFile("C:\ADUsers "&Date()&".txt")
TF.Write vbcrlf

'i = "    "
sub recurs(ou)
    strContainer = "OU="+ou+"," + strMyDomain
    set objOU = GetObject("LDAP://" & strContainer )  
    For each objUser in objOU
        strLastUser = objUser.Get ("name")
        If objUser.Class="user" then
            'TF.Write i
            TF.Write strLastUser
            TF.Write vbCrLf
        End If
        If objUser.Class="organizationalUnit" then
            'TF.Write i
            TF.Write "OU="
            TF.Write objUser.Get ("name")
            TF.Write vbCrLf
            'i = i & i
            recurs(strLastUser+", OU="+ou)
        End If
    Next
'i = "    "
End Sub

recurs strMyOU

TF.Close
Wscript.Echo ("Done !!!")

Comments

[demon-aku.livejournal.com]

Порно под кат! Я еле спрятал когда родители зашли.

[kf.livejournal.com]

э?

[kf.livejournal.com]

да. Но не пробелы, а табы. Что такое chr$? Проблема в том что отступы начинают делаться нормально, потом сбрасываются на начальный уровень

[chorry.livejournal.com]

upd: црлф проглядел :)
Раскомментил твой код - список и так выглядит нормально. В чем, собственно, цимес?

[kf.livejournal.com]

Что-т не грузеццо. вот что у меня получается. Если OU вложено в OU, табов вставляется больше чем один. Пользователь Tatiana Drozdova принадлежит OU Front Office, но у неё табов не хватает.

[chorry.livejournal.com]

А, понял. Тогда вот:

Sub my_rec(ou, level)
strContainer = "OU="+ou+"," + strMyDomain
set objOU = GetObject("LDAP://" & strContainer )
For each objUser in objOU
strLastUser = objUser.Get ("name")
If objUser.Class="user" then
TF.Write space(level*4)
TF.Write strLastUser
TF.Write vbCrLf
End If
If objUser.Class="organizationalUnit" then
TF.Write space(level*4)
TF.Write "OU="
TF.Write objUser.Get ("name")
TF.Write "!"&vbCrLf
newlevel = level + 1
call my_rec(strLastUser+", OU="+ou, newlevel)
End If
Next
End Sub

call my_rec (strMyOU,0)

[kf.livejournal.com]

АААААА ТЫ ГЕНИЙ!! Я ТЕБЯ ОБОЖАЮ!!