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>
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:).
