Tworzenie nowego użytkownika w AD – Skrypty VBS cz.5

Print Friendly, PDF & Email
Skrypt umożliwiający utworzenie nowego konta lub kont w zadanej jednostce organizacyjnej. Musimy uzupełnić według własnych potrzeb zmienne określające nazwę jednostki organizacyjnej oraz nazwę konta które chcemy stworzyć.

Dim objDomain, objOU, ouName, userName
’NAZWA TWORZONEJ JEDNOSTKI ORGANIZACYJNEJouName = „Studenci”’NAZWA TWORZONEGO KONTAuserName = „Student”
Set objRootDSE = GetObject(„LDAP://rootDSE”)Set objDomain = GetObject(„LDAP://” & objRootDSE.Get(„defaultNamingContext”))
’TWORZENIE JEDNOSTKI ORGANIZACYJNEJ O NAZWIE STUDENCISet objOU=objDomain.Create(„organizationalUnit”, „ou=” & ouName)objOU.SetInfo
Set objContainer = GetObject(„LDAP://OU=Studenci,” & objRootDSE.Get(„defaultNamingContext”))
’TWORZENIE 10 UŻYTKOWNIKÓW O NAZWIE STUDENTFor i = 1 To 10Set objLeaf = objContainer.Create(„User”, „cn=” & userName & i)objLeaf.Put „sAMAccountName”, userName & i
Next’INFORMACJA O UTWORZONYCH KONTACHWScript.Echo „Konta zostały utworzone.”

<i><span style="font-family: Courier New, Courier, monospace;"></span></i>
<i><span style="font-family: Courier New, Courier, monospace;"> </span></i>

<i><span style="font-family: Courier New, Courier, monospace;"></span></i>
<i><span style="font-family: Courier New, Courier, monospace;"> </span></i>


Print Friendly, PDF & Email

Dziękuję Ci, za poświęcony czas na przeczytanie tego artykułu. Jeśli był on dla Ciebie przydatny, to gorąco zachęcam Cię do zapisania się na mój newsletter, jeżeli jeszcze Cię tam nie ma. Proszę Cię także o “polubienie” mojego bloga na Facebooku oraz kanału na YouTube – pomoże mi to dotrzeć do nowych odbiorców. Raz w tygodniu (niedziela punkt 17.00) otrzymasz powiadomienia o nowych artykułach / projektach zanim staną się publiczne. Możesz również pozostawić całkowicie anonimowy pomysł na wpis/nagranie.

Link do formularza tutaj: https://beitadmin.pl/pomysly

Pozostaw również komentarz lub napisz do mnie wiadomość odpisuję na każdą, jeżeli Masz jakieś pytania:).

Dodaj komentarz

beitadmin.pl - Droga Administratora IT