Re: Eksport użytkowników z domeny do pliku *.txt

On Error Resume Next

sciezka = InputBox ("Podaj sciezke gdzie chcesz zapisac plik
*.txt?:"&VBCRLF& "np : c:\plik.txt")
strOutputFile = sciezka
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)

'strDomain = InputBox ("Podaj nazwe dmeny z której chcesz wyciagnąć
informacje?:")

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://dc=,dc=' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    strPath = objRecordSet.Fields("ADsPath").Value
    Set objUser = GetObject(strPath)
    objOutputFile.Write "Pelna nazwa: " & objUser.FullName &VBCRLF
    objOutputFile.Write "Uzytkownik: " & objUser.sAMAccountName &VBCRLF
    objOutputFile.Write "Konto utworzone: " & objUser.whenCreated & " GMT"
&VBCRLF
    objOutputFile.Write "Wylaczone?: " & objUser.accountDisabled &VBCRLF
    objOutputFile.Write "----------------------------------"&VBCRLF
    objRecordSet.MoveNext
Loop

wscript.echo "Gotowe!"

objOutputFile.Close

tam w select ma "'LDAP://dc=,dc='" po 1 dc wstawiasz nazwe domy jezeli w
nazwie masz "." to to co jest po kropce wpisujesz po drugim dc czyli jezeli
twoja domena nazywa sie : kuper.pl to piszesz
dc=kuper,dc=pl

jezeli tylko sie nazywa kuper to pisze jedno dc.

Szukam jeszcze jak wyciagnac info kto stworzył konto
Received on Wed Oct 1 14:05:09 2008