Create mange brugere

Hej her er et eksempel på bruger oprettelse. Den tager en kommasepareret fil og opretter i AD.

/Jan Simon

'***************************************************************************************************
' Script til oprettelse af brugere i AD fra kommasepareretfil hos SDC, Version 1.0
' 18-01-2002, Jan Simon, Alpha-Systems A/S
' JAS@ALPHA-SYSTEMS.DK
' This Rocks............
'
'***************************************************************************************************

Set obj = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.Filesystemobject")
DIM linje
Dim fso,file,f, cfso
DIM dom
sidsteOU="start"

'***************************************************************************************************


'Åbn fil
'Indtast den fulde sti til filen mellem anførselstegn
Set f = fso.Getfile("D:\sdc\usertest.csv")
set file=f.OpenAsTextStream(1)
'Filen åbnes og første linje indlæses
linje=Trim(file.readline)

'Hvis den ikke er tom
If linje<>"" Then
    'Forbind til domainet...Det fulde domainnavn indtastes mellem anførselstegnene
    Set dom = GetObject("LDAP://Alpha.local")

    ' Opret PI organizational unit
    Set PIOU = dom.Create("organizationalUnit", "OU=PI")
    PIOU.SetInfo
    Again = True

    While again
        'Begynd opsplitning af linjen
        linjelaengde=LEN(linje)
        kommapos=InStr(1,linje,",",1)
        laestou=TRIM(LEFT(linje,kommapos-1))
        Nykommapos=InStr(kommapos+1,linje,",",1)
        UserName = TRIM(MID(linje,kommapos+1,nykommapos-kommapos-1))
        kommapos=nykommapos
        Nykommapos=InStr(kommapos+1,linje,",",1)
        Firstname = TRIM(MID(linje,kommapos+1,nykommapos-kommapos-1))
        kommapos=nykommapos
        LastName = TRIM(MID(linje,kommapos+1,linjelaengde))
        If UserName <> "" Then
            'Hvis det er et nyt pengeinstitut
            If laestou<>sidsteou Then
                set opretou=PIOU.Create("organizationalUnit","OU="&laestou)
                opretou.SetInfo
                sidsteou=laestou
            End if
            'Opret brugeren
            Set usr = opretou.Create("user", "CN=" &Username)
            usr.Put "sn", LastName
            usr.Put "samAccountName", UserName
            usr.Put "givenName", FirstName
            usr.Put "Description", Firstname&" "&Lastname
            usr.SetInfo
            Usr.AccountDisabled = False
            Usr.Homedirectory = "\\alpha-srv01\users\"&Username
            Usr.Homedrive = "V:"
            usr.SetPassword "SESAM12"
            usr.SetInfo
            Set cfso = fso.createFolder("D:\users\"&Username)
        End If
        'Indlæs næste linje
        linje=Trim(file.readline)
        'Hvis den ikke er tom så fortsæt
        If linje="" Then
            Again=False
        End if
    Wend
End if

file.close
MsgBox "Nu er scriptet færdigt"


'**************************************************************************************************

Det behøver du ikke at scripte. Win 2000 kan dette. se her

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/prodtechnol/ad/windows2000/howto/bulkstep.asp

Mange tak det er bare en perfekt løsning :-)

Jansimon gider du ikke at et svar så jeg kan give dig point?

Bufferzone: tusind tak - har ikke kunnet finde det her på Tech-net før :)

Jo selvfølgelig :-)

Hej her er et eksempel på bruger oprettelse. Den tager en kommasepareret fil og opretter i AD.

/Jan Simon

'***************************************************************************************************
' Script til oprettelse af brugere i AD fra kommasepareretfil hos SDC, Version 1.0
' 18-01-2002, Jan Simon, Alpha-Systems A/S
' JAS@ALPHA-SYSTEMS.DK
' This Rocks............
'
'***************************************************************************************************

Set obj = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.Filesystemobject")
DIM linje
Dim fso,file,f, cfso
DIM dom
sidsteOU="start"

'***************************************************************************************************


'Åbn fil
'Indtast den fulde sti til filen mellem anførselstegn
Set f = fso.Getfile("D:\sdc\usertest.csv")
set file=f.OpenAsTextStream(1)
'Filen åbnes og første linje indlæses
linje=Trim(file.readline)

'Hvis den ikke er tom
If linje<>"" Then
    'Forbind til domainet...Det fulde domainnavn indtastes mellem anførselstegnene
    Set dom = GetObject("LDAP://Alpha.local")

    ' Opret PI organizational unit
    Set PIOU = dom.Create("organizationalUnit", "OU=PI")
    PIOU.SetInfo
    Again = True

    While again
        'Begynd opsplitning af linjen
        linjelaengde=LEN(linje)
        kommapos=InStr(1,linje,",",1)
        laestou=TRIM(LEFT(linje,kommapos-1))
        Nykommapos=InStr(kommapos+1,linje,",",1)
        UserName = TRIM(MID(linje,kommapos+1,nykommapos-kommapos-1))
        kommapos=nykommapos
        Nykommapos=InStr(kommapos+1,linje,",",1)
        Firstname = TRIM(MID(linje,kommapos+1,nykommapos-kommapos-1))
        kommapos=nykommapos
        LastName = TRIM(MID(linje,kommapos+1,linjelaengde))
        If UserName <> "" Then
            'Hvis det er et nyt pengeinstitut
            If laestou<>sidsteou Then
                set opretou=PIOU.Create("organizationalUnit","OU="&laestou)
                opretou.SetInfo
                sidsteou=laestou
            End if
            'Opret brugeren
            Set usr = opretou.Create("user", "CN=" &Username)
            usr.Put "sn", LastName
            usr.Put "samAccountName", UserName
            usr.Put "givenName", FirstName
            usr.Put "Description", Firstname&" "&Lastname
            usr.SetInfo
            Usr.AccountDisabled = False
            Usr.Homedirectory = "\\alpha-srv01\users\"&Username
            Usr.Homedrive = "V:"
            usr.SetPassword "SESAM12"
            usr.SetInfo
            Set cfso = fso.createFolder("D:\users\"&Username)
        End If
        'Indlæs næste linje
        linje=Trim(file.readline)
        'Hvis den ikke er tom så fortsæt
        If linje="" Then
            Again=False
        End if
    Wend
End if

file.close
MsgBox "Nu er scriptet færdigt"


'**************************************************************************************************

Bufferzone >> Det har du ret i, ovenstående scrigt kan dog samtidig oprette OU'er efter behov. Det kan udvides til automatisk oprettelse af Exchange mail-boxe .... o.s.v......Men du har ret og bør have nogle af pointene :-)

Hejsa
En helt 3 mulighed og meget simpelt mulighed er denne måde

-------klip----------klip----------klip------

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

For i = 1 To 1000
    Set objLeaf = objContainer.Create("User", "cn=bruger" & i)
    objLeaf.Put "sAMAccountName", "bruger" & i
    objLeaf.Put "profilePath", "\\server\Profiles\%username%"
    objLeaf.Put "scriptPath", "logon.bat"
    objLeaf.Put "homeDirectory", "\\server\HomeFolders\%username%"
    objLeaf.Put "homeDrive", "P:"   
objLeaf.SetInfo
Next
WScript.Echo "1000 bruger oprettet."


-------klip---------klip--------klip-------

Gem som    bruger.vbs

kør scriptet og du vil have 1000 bruger der starter med bruger1 til bruger1000


Mvh
DAffydk