[windows2000] Script now working

  • From: Patrick <london31uk@xxxxxxxxx>
  • To: windows2000@xxxxxxxxxxxxx
  • Date: Wed, 16 Sep 2009 02:21:00 -0700 (PDT)

Hi Guys,

I am a real novice at VBscript, but need to create one that will create users 
from a CSV or Excel file. I found the one below from Microsoft site and 
modified it accordingly, however i an still getting error messages, and it 
would not work.

Please help if anyone can.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
    Set objOU = GetObject("LDAP://ou=NewUsers, dc=Jingo, dc=local")
    Set objUser = objOU.Create _
        ("User", "cn=" & objExcel.Cells(intRow, 1).Value)
    objUser.sAMAccountName = objExcel.Cells(intRow, 2).Value
    objUser.GivenName = objExcel.Cells(intRow, 3).Value
    objUser.SN = objExcel.Cells(intRow, 4).Value
    objUser.AccountDisabled = FALSE
    intRow = intRow + 1

See attached error message.




Other related posts:

  • » [windows2000] Script now working - Patrick