Script Para criar contatos no Active Directory apartir de um arquivo em Excel

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open ("caminho do arquivo .xls")
intRow = 1

Do Until objExcel.Cells(intRow,1).Value = ""

nome= objExcel.Cells(intRow, 1).Value
cn= objExcel.Cells(intRow, 2).Value
email= objExcel.Cells(intRow, 3).Value

Set objOU = GetObject("LDAP:// caminha da OU de destino")
Set objContato = objOU.Create("contact", "cn="&nome)

objContato.put "name",nome
objContato.put "givenname",nome
objContato.put "mail",email
objContato.setinfo
intRow = intRow + 1
Loop

objExcel.Quit



Copie e cole no bloco de notas e salve como .vbs