Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Problem with my VBS
- Line: 6
- Char: 5
- Invalid Syntax
- Set objExcel = CreateObject("Excel.Application")
- Set objWorkbook = objExcel.Workbooks.Open _
- ("C:Scriptt/Users.xls")
- intRow = 3
- Do Until objExcel.Cells(intRow,1).Value = ""
- Set objOU = GetObject("ou=REAL, dc=ormbunken, dc=com")
- Set objUser = objOU.Create _
- ("User", "cn=" & objExcel.Cells(intRow, 2).Value)
- objUser.sAMAccountName = objExcel.Cells(intRow, 1).Value
- objUser.SetPassword = objExcel.Cells(intRow, 5).Value
- objUser.GivenName = objExcel.Cells(intRow, 3).Value
- objUser.SN = objExcel.Cells(intRow, 4).Value
- objUser.AccountDisabled = FALSE
- objUser.SetInfo
- intRow = intRow + 1
- Loop
- objExcel.Quit
- Set oOU = GetObject("LDAP://test.test.cz/ou=skup,dc=test,dc=test,dc=cz")
- Set oUser = oOU.Create("User", "cn=" & "Test" & " " & "Tester")
Add Comment
Please, Sign In to add comment