Skrypt - Pomoc w objaśnieniu!, Pomóżcie objaśnic o co chodzi w skrypcie :) Opcje

[barteq08]

Witam! Mam tutaj skrypcik, który razem z nauczycielem pisaliśmy na lekcji Sieci Komputerowych w szkole. Mam ogromną prośbę, czy ktoś mógłby mi wyjaśnic w której linijce (czyli które słowa) są dane:
- podawanie nazwy użytkownika;
- ustalenie hasła;
- utworzenie konta itp...

Wogóle co w tych poszczególnych linijkach robi ten skrypt? Z góry bardzo dziękuję za pomoc!

P.S Skrypt ten wykorzystany jest w Active Directory, w Windows Server 2003! ;]

Oto skrypt:

Const ForReading = 1

Set objShell = CreateObject("Wscript.Shell")

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "\d{1,}"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Dane.txt", ForReading)

Do
strLine = objFile.ReadLine
arrItems = Split(strLine, ";")
strUserSurname = arrItems(0)
strUserName = arrItems(1)

Wscript.Echo "nazwisko i imie to" & strUSerName & strUserSurname
'Tworzymy sciezke dostepny w katalogu do kontenera w którym utworzone zostanie konto
strDestOU = "OU=IT"

Set rootDSE = GetObject("LDAP://rootDSE")
strDomain = rootDSE.Get("defaultNamingContext")

strDestDSPath = strDestOU & "," & strDomain
'pobieramy obiekt OU za pomoca metody GetObject
Set objDestOU = GetObject("LDAP://"& strDestDSPath)

'utworzenie obiektu klasy "User"
'jako parametr wywolania konieczne jest okreslenie unikalnej nazwy CN dla obiektu
Set objUser = objDestOU.Create("User","CN=" & strUserSurname)

With objUser
'nazwa logowania konta
.Put "samAccountName", strUserSurname &"_"& strUserName

'podstawowy UPN dla konta
.Put "userPrincipalName", strUserSurname &"_"& strUserName &"@"& strDomain

'Dane opisu konta uzytkownika - imie oraz nazwisko
.Put "givenName", strUserSurname
.Put "sn", strUserName

'Nazwa pod ktora konto bedzie widoczne w katalogu (GUI)`
.Put "displayName", strUserSurname & " " & strUserName

.Put "homeDrive", "Z:"
.Put "homeDirectory", "\\gawor\Gawor$"

'zapisujemy dotychczasowe zmiany
.SetInfo

'okreslamy haslo uzytkownika
.SetPassword "ZAQ!2wsx"
.SetInfo


'ustawiamy wymaganie zmiany hasla przy pierwszym logowaniu
.Put "pwdLastSet", 0

'upewniamy sie ze konto jest aktywne
.AccountDisabled = False
.SetInfo


End With
Loop Until objFile.AtEndOfStream
objFile.Close