Script para modificacion informacion usuarios del dominio

'**************************************************************************
'*Script para modificacion informacion usuarios del dominio
'**************************************************************************
On error resume next

Const Enabled = 1
Const Disabled = 0
Const ForReading = 1
Const ForWrite = 2
Dim fso, f, Msg, pass, minusculas



'abre fichero
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\temp\users.xls")

intRow = 1

'lee fichero
Do Until objExcel.Cells(intRow,1).Value = "FINALTEXTO"

cn1 = objExcel.Cells(intRow, 1).Value
cn2 = objExcel.Cells(intRow, 9).Value
cn3 = objExcel.Cells(intRow, 10).Value

'wscript.echo cn1
'wscript.echo cn2
'wscript.echo cn3
'modifica campo usuario descripcion

Set objOU = GetObject("LDAP://"+cn1)
objOU.description = cn2
objOU.extensionAttribute1 = cn3
objOU.setInfo

'modifica campo usuario extensionAttribute1
'Set objOU2 = GetObject("LDAP://"+cn1)
'objOU2.extensionAttribute1 = cn3
'obj.OU.setInfo

intRow = intRow + 1

on error resume next

loop

objExcel.Quit