[VBA/Excel] User importscript Active Directory *

[Verwijderd]

Hallo,

Ik heb een excel sheet met 4 kolommen namelijk:
kolom1: Commonname
kolom2: Accountname
kolom3: Voornaam
kolom4: Achternaam

Onderstaande script leest dit exceldocument uit en voegt de gebruiker toe in de activedirectory.
De Commonname (weergavenaam in de activedirectory) moet bijvoorbeeld voor gebruiker Piet de Boer als volgt toegevoegd worden: Boer, Piet de

Alleen nu 1 probleem: Wanneer een komma wordt toegevoegd bij de common name geeft het script een foutmelding en wordt de gebruiker neit toegeveogd. Wanneer de commonname een punt bevat gaat het wel goed.
Weet iemand een oplossing voor dit probleem? De komma moet namelijk wel meegenomen worden en toegevoegd worden in de activedirectory.

Onderstaand het VBscript:

Set objExcel = WScript.CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Scripts\New_users.xls")

intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
strUser = objExcel.Cells(intRow, 1).Value
Set objParent = GetObject("LDAP://OU=users,DC=test,DC=vdberg,DC=nl")
set objUser = objParent.Create("User", "cn=" & objExcel.Cells(intRow, 4) & "," & objExcel.Cells(intRow, 3).Value)
objUser.Put "sAMAccountName", "8285"'objExcel.Cells(intRow, 2).Value
objUser.Put "givenName", objExcel.Cells(intRow, 3).Value
objUser.Put "sn", objExcel.Cells(intRow, 4).Value
objUser.SetInfo
objUser.SetPassword("welkom")
objUser.AccountDisabled = FALSE
objUser.SetInfo


Loop
objExcel.Quit

Iemand een idee om dit probleem op te lossen??
Alvast bedankt,

Dirk

[ Voor 7% gewijzigd door Verwijderd op 23-04-2004 15:56 ]

[gorgi_19]

En een komma vervangen dmb Replace door een punt?

[ Voor 6% gewijzigd door gorgi_19 op 23-04-2004 15:59 ]