Skripta za Active Directory

[ joba1303 @ 10.07.2009. 09:26 ] @

Pozz ljudi,

Ovako, posto spremam ispite za MCSA, digao sam neke virtualne masine, pa me zanima da li negde ima da se skine ili ako neko moze da mi posalje neku skriptu koja bi mi popunila AD sa podacima tacnije korisnicima tj userima, da bude nesto kao simulacija neke osrednje firme recimo da mogu da ubacim bar sto korisnika pa bih ja posle eksperimentisao sa grupama dozvolama i ostalim podesavanjima.

Ako sam kojim slucajem ponovio temu unapred se izvinjavam.

Unapred hvala
Jovan

[ Danijel Krmar @ 10.07.2009. 10:25 ] @

U notepad (ili koji već editor koristiš) kopiraj sledeće:

Code:
Set objRootDSE = GetObject("LDAP://rootDSE")

Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootDSE.Get("defaultNamingContext"))

For i = 1 To 100
    Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)
    objLeaf.Put "sAMAccountName", "UserNo" & i
    objLeaf.SetInfo
Next

WScript.Echo "100 Users created."

Taj fajl imenuj dodajkorisnike.vbs ili kako već hoćeš, bitno je da bude vbs fajl. Ova skripta će generisati 100 korisnika, pri čemu ti taj broj možeš da promeniš.

Ako koristiš PowerShell postoji mnogo lepši način, a uputstvo ćeš naći na:
http://dmitrysotnikov.wordpres.../setting-demo-ad-environments/

Imaj na umu da ćeš pored samog Power Shell-a za ovo morati instalirati i AD cmdlet-e koje možeš naći na sajtu http://www.quest.com/activeroles-server/arms.aspx

[ joba1303 @ 10.07.2009. 18:04 ] @

Puno hvala za ovo cim dodjem kuci cu da isprobam.

[ joba1303 @ 11.07.2009. 15:04 ] @

Radi, puno hvala smanjio si mi muke i dosadnog posla.

Hvala jos jednom.

[ jovanmal @ 03.01.2011. 07:00 ] @

Imam isti problem. Trebalo bi da može i bez dodatnih Cmd-leta (koristeći PowerShell), samo ne znam gdje griješim. Npr.:

Code:

$objOU=[ADSI]"LDAP://OU=People,DC=contoso,DC=com"
$objUser=$objOU.Create("user","CN=Mary North")

Dobijem sljedeću grešku:

Code:

The following exception occurred while retrieving member "Create": "A referral was returned from the server.
"
At line:2 char:10
+ $objUser= <<<< $objOU.Create("user","CN=Mary North")
+ CategoryInfo : NotSpecified: (:) [], ExtendedTypeSystemException
+ FullyQualifiedErrorId : CatchFromBaseGetMember

ExecutionPolicy je postavljen na Unrestricted, probano i sa Bypass - isto se dešava. Komandom $objOU.GetType() dobijem da je tip $objOU-a System.ComponentModel.Component, međutim na MSDN-u nikako ne mogu naći metodu .Create koju pozivam u drugoj liniji.

Ovaj dio koda je preuzet iz Microsoftove zvanične knjige za pripremu ispita 70-640 i ne znam gdje griješim. Puno bi mi značilo ako bi neko znao o čemu se radi. Pozdrav

[ jovanmal @ 05.01.2011. 06:41 ] @

Riješeno.

Stvar je u sintaksi. Prilikom rukovanja AD objektima iz PowerShella ne smije biti nikakvih space karaktera između komande i zagrade, kao ni iza navodnika.

_{[Ovu poruku je menjao jovanmal dana 06.01.2011. u 03:09 GMT+1]}