» »

[VBS] Dodajanje userjev iz Excela v AD

[VBS] Dodajanje userjev iz Excela v AD

GaS ::

A mi lahko kdo pomaga, ker se zezam ze cel dopoldne s tem. Namrec vrze 80072032 error pri vrstici kjer potrdi podatke, objUser.SetInfo.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
    ("C:\Job\AD skripte\users-test.xls")
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://OU=test, OU=testek," & _
objRootLDAP.Get("defaultNamingContext"))

intRow = 2

Do Until objExcel.Cells(intRow,1).Value = ""
    LastName = objExcel.Cells(intRow, 1).Value
	FirstName = objExcel.Cells(intRow, 2).Value
        AccName = objExcel.Cells(intRow, 3).Value
	FullName = objExcel.Cells(intRow, 4).Value
	Set objUser = objContainer.Create("User", "cn=" & FullName)
	objUser.Put "sAMAccountName", AccName
	objUser.SetInfo
	intRow = intRow + 1
Loop
objExcel.Quit



Hvala!

GaS ::

Ugotovil sem da je napaka v 15. vrstici, namrec CNja noče vzeti kot spremenljivko. Če napišem "cn=NovUporabnik", deluje. Problem ni v šumnikih ali presledkih, tako da mi ni najbolj jasno. Anyone?:)


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

c# object[,] to object[][], excel itd.

Oddelek: Programiranje
7680 (500) mihies
»

[Java] Urejanje baze z JTable

Oddelek: Programiranje
81020 (804) vonNeumann
»

VBS skripta za IP nastavitve

Oddelek: Programiranje
373455 (2969) Malajlo
»

En majhen trik za vse

Oddelek: Programiranje
61723 (1319) Trubar
»

Visual Basic in Excel

Oddelek: Programiranje
262689 (2255) Vesoljc

Več podobnih tem