mboost-dp1

Active Directory Add User VBS Script?


Gå til bund
Gravatar #1 - Magten
8. maj 2008 09:36
Mojn derude..

Sad lige og kedede mig lidt og tænkte jeg ville prøve at fixe noget add user script til vores AD på arbejdet..

Mit største problem er nok, at jeg aldrig har leget med VBS før, og jeg er ikke den vilde code-haj..

Nå men.. Jeg har kigget lidt rundt omkring og fandt så et script i MS' Script Center:
Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")

Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo


Hvad jeg lige umiddelbart kan se ud fra det, så skal man altså skrive brugernavn ind i scriptet, hvilket gør det en del mere besværligt end hvad jeg først havde i tankerne.. Er det ikke muligt at få en forespørgsel på brugernavn, og så bruger den inputtet derfra? Se evt. denne flotte tegning: http://i28.tinypic.com/bhdd8j.jpg

Anyways, håber i forstår hvad jeg mener, og at der er en løsning :)

PFT!
Gravatar #2 - Magten
8. maj 2008 11:02
Tror jeg fandt ud af det.. Har ikke lige testet det endnu..

dim USERNAME
USERNAME = InputBox("Enter Username")

Set objOU = GetObject("LDAP://OU=Brugere,dc=hej,dc=hejsa")

Set objUser = objOU.Create("User", objUser.Put ( CN, USERNAME ) )
objUser.Put "sAMAccountName", USERNAME
objUser.SetInfo
Gravatar #3 - Magten
8. maj 2008 20:22
Nå, det virkede så ikke.. Den brokker sig ved denne linje:
Set objUser = objOU.Create("User", objUser.Put ( CN, USERNAME ) )


Error: Object required: objUser
Code: 800A01A8

Lige umiddelbart kan jeg ikke finde fejlen, så hvis nogen kan hjælpe ville det være super :)
Gravatar #4 - 3214N
8. maj 2008 20:35
Jeg kan ikke lige se formålet med det script, da det nemmeste vel er at bruge en template eller anden bruger, som udgangspunkt, så brugeren bliver medlem af de rigtige grupper?
Gravatar #5 - Magten
8. maj 2008 20:51
#4
Ja - og så alligevel ikke... Indtil vi har fået ryddet op i vores AD (det er _meget_ rodet, og har været det i flere år, så jeg er igang med at finde ny struktur osv...) og der går nok et par måneder, så bliver der ikke taget kopier af andre brugere, da mange har alt for mange rettigheder...

Og så synes jeg bare det ville gøre det hele lettere.. :) Specielt hvis jeg kan få udbygget scriptet med endnu flere funktioner..
Gravatar #6 - 3214N
8. maj 2008 20:57
Hvormange brugere (ca) handler det om?
Gravatar #7 - Magten
8. maj 2008 21:19
Der skal oprettes? Det er et par stykker om ugen typisk.. Men ikke noget fast antal, eller dag de skal oprettes..
Gravatar #8 - 3214N
8. maj 2008 21:36
Nej, jeg tænker på hvor mange brugere der er i jeres AD?
Gravatar #9 - Magten
8. maj 2008 22:05
Der er rundt regnet 1500 atm.. Vil skyde på at små 250 af dem er lukkede brugere..

Det er som sagt et stort rod, som jeg har fået til opgave at rydde op i her når jeg er udlært om en måned :)
Gravatar #10 - 3214N
9. maj 2008 05:39
Det var da en dejlig opgave! Pænt af dem at tørre det af på dig...
Gravatar #11 - Magten
9. maj 2008 07:49
Well, eftersom der skal laves helt ny struktur og hele AD'et stort set skal lægges om, så glæder jeg mig lidt til det.. Specielt fordi jeg er på "Planing, Implementing and Maintaining a MS Win2k3 Server AD infrastructure" kursus nu :)

Men... Scriptet - ingen der kender noget til det? :)
Gravatar #12 - thorjak
9. maj 2008 12:26 

dim USERNAME
USERNAME = InputBox("Enter Username")

Set objOU = GetObject("LDAP://OU=Brugere,dc=hej,dc=hejsa")

Set objUser = objOU.Create("User", "cn=" & USERNAME & "")
objUser.Put "sAMAccountName", USERNAME
objUser.SetInfo


Tror det virker, har ikke lige testet det ;)

Husk at før objUser bliver lavet, kan det ikke bruget.

Og ved objUser.Put bliver sAMAccountName sat = hvad der står på den anden side af kommaet.

og sAMAccountName er en collonde i AD'et.
Gravatar #13 - thorjak
9. maj 2008 13:00
Evt kig her, synes det ser ud til at være rimelig meget nice info. Og som linker til flere eksempler fra en bog

http://techtasks.com/code/viewbookcode/236
Gravatar #14 - Magten
13. maj 2008 22:24
#12
Det virker! Jeg takker og bukker :) Så kan jeg lege videre med andre funktioner :D
Gravatar #15 - Magten
14. maj 2008 09:23
Så stødte jeg ind i et nyt problem :)

Vil have home dir til at blive sat automatisk, men da brugernavnet indgår i stien til home dir bliver det lidt besværligt :/

dim USERNAME
USERNAME = InputBox("Enter Username")

Set objOU = GetObject("LDAP://OU=Brugere,dc=hej,dc=hejsa")

Set objUser = objOU.Create("User", "cn=" & USERNAME & "")
objUser.Put "sAMAccountName", USERNAME
objUser.LoginScript = "logon.bat"
objUser.SetInfo

objUser.GetInfo
objUser.AccountDisabled = "False"

objUser.HomeDirectory = "\\server\Users$\ *brugernavn*
objUser.Put "homeDrive", "H:"

objUser.SetInfo

Hvad skal man bruge for at indsætte brugernavnet der? Jeg har prøvet mig lidt frem, men det virker ikke :/

"objUser.HomeDirectory = "\\server\Users$\ *brugernavn*" <- det er en linje, men står som to i ovenstående kode ^^
Gravatar #16 - Magten
14. maj 2008 09:53
Med lidt hjælp fandt jeg ud af det :)

dim USERNAME
USERNAME = InputBox("Enter Username")

Set objOU = GetObject("LDAP://OU=Brugere,dc=hej,dc=hejsa")

Set objUser = objOU.Create("User", "cn=" & USERNAME & "")
objUser.Put "sAMAccountName", USERNAME
objUser.LoginScript = "logon.bat"
objUser.SetInfo

objUser.GetInfo
objUser.AccountDisabled = "False"

objUser.HomeDirectory = "\\Server\Users$\" & USERNAME & ""
objUser.Put "homeDrive", "H:"

objUser.SetInfo
Gravatar #17 - thorjak
14. maj 2008 12:48
Flot flot, lige en enkel ting man ikke helt behøver, men som ikke gør noget.

På linje, 8 og linje 17, skrive du og jeg selv i mit kode eksempel
& ""


Dette behøves ikke, men gør jo selfølgelig ingen ting.

& tegnet er bare lim mellem de 2 ting der står på siden af det.

Men råb lige op når du har lavet et nice lille system til også at smide brugeren ind i telefon systemer osv :-)
Gå til top

Opret dig som bruger i dag

Det er gratis, og du binder dig ikke til noget.

Når du er oprettet som bruger, får du adgang til en lang række af sidens andre muligheder, såsom at udforme siden efter eget ønske og deltage i diskussionerne.

Opret Bruger Login