- 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