[VBS] Dodajanje userjev iz Excela v AD

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