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

robisz to co wcześniej tworzysz pliczek *.vbs wklejasz uruchamiasz i
postępujesz jak ci każe pozdr

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?:")

Set DomObj = GetObject("WinNT://" & strDomain )

DomObj.Filter = Array("User")

For Each objUser In DomObj

objOutputFile.Write ("Login: "&objUser.Name&VBCRLF)

objOutputFile.Write ("Pełna nazwa: "&objUser.FullName&VBCRLF)

objOutputFile.Write ("Opis: "&objUser.Description&VBCRLF)

objOutputFile.Write ("Konto wyłączone?: "&objUser.AccountDisabled&VBCRLF)

objOutputFile.Write ("Utworzone :"&objUser.whenCreated&VBCRLF)

objOutputFile.Write ("--------------------------------------"&VBCRLF)

Next

wscript.echo "Gotowe!"

objOutputFile.Close

Sprawdz potem sobie czy dobrze czy dane wyciągnął weż sobie jakies konto
zablokowane i porównaj z tym co ci zapisze do pliku.
Daj znac czy wszystko chodzi

Pozdr.
Received on Wed Oct 1 12:05:16 2008