Automation - CV01N

[pgallotto]

Hi.
I'm trying to automate some functions of the CV01N directory, but I always get the message "invalid character" . This is the script:

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"
   WScript.ConnectObject application, "on"
End If

REM  B1 INICIO***********************************************
Dim objExcel
Dim objSheet, intRow, i

Set objExcel = GetObject(, “Excel.Application”)         
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet   

For i = 2 To objSheet.UsedRange.Rows.Count           

PLACA = Trim(CStr(objSheet.Cells(i, 1).Value))  
CHASSI   = Trim(CStr(objSheet.Cells(i, 2).Value))  
session.findById(“wnd[0]”).maximize

REM B1 FIM *************************************************

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "cv01n"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtDRAW-DOKAR").text = "ZCD"
session.findById("wnd[0]/usr/ctxtDRAW-DOKAR").setFocus
session.findById("wnd[0]/usr/ctxtDRAW-DOKAR").caretPosition = 3
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSMAIN/ssubSCR_MAIN:SAPLCV110:0102/txtDRAT-DKTXT").text = PLACA
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSMAIN/ssubSCR_MAIN:SAPLCV110:0102/txtDRAT-DKTXT").caretPosition = 11
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSMAIN/ssubSCR_MAIN:SAPLCV110:0102/btnPB_FILE_CREATE").press
session.findById("wnd[1]/usr/ctxtDRAW-DAPPL").text = "PDF"
session.findById("wnd[1]/usr/txtMCDOK-FILE_DESCRIPTION").text = PLACA
session.findById("wnd[1]/usr/ctxtDRAW-FILEP1").setFocus
session.findById("wnd[1]/usr/ctxtDRAW-FILEP1").caretPosition = 0
session.findById("wnd[1]").sendVKey 4
session.findById("wnd[2]/usr/ctxtDY_PATH").text = "C:\Users\pedro.calil\Desktop\DOCUMENTOS TRANSFERIDOS 2022"
session.findById("wnd[2]/usr/ctxtDY_FILENAME").text = PLACA.pdf
session.findById("wnd[2]/usr/ctxtDY_FILENAME").caretPosition = 11
session.findById("wnd[2]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSMAIN/ssubSCR_MAIN:SAPLCV110:0102/btnPB_CHECKIN").press
session.findById("wnd[1]/usr/tblSAPLCV117TBL_SCAT/txtMCDOK-STORAGE_CAT[0,9]").setFocus
session.findById("wnd[1]/usr/tblSAPLCV117TBL_SCAT/txtMCDOK-STORAGE_CAT[0,9]").caretPosition = 5
session.findById("wnd[1]").sendVKey 2
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSLINKS").select
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSLINKS/ssubSCR_MAIN:SAPLCV130:0404/tabsSELECT_OBJLINKSTRIP_400/tabpOBJTB02").select
session.findById("wnd[0]").sendVKey 4
session.findById("wnd[1]/usr/tabsG_SELONETABSTRIP/tabpTAB015/ssubSUBSCR_PRESEL:SAPLSDH4:0220/sub:SAPLSDH4:0220/txtG_SELFLD_TAB-LOW[4,24]").text = CHASSI
session.findById("wnd[1]/usr/tabsG_SELONETABSTRIP/tabpTAB015/ssubSUBSCR_PRESEL:SAPLSDH4:0220/sub:SAPLSDH4:0220/txtG_SELFLD_TAB-LOW[4,24]").setFocus
session.findById("wnd[1]/usr/tabsG_SELONETABSTRIP/tabpTAB015/ssubSUBSCR_PRESEL:SAPLSDH4:0220/sub:SAPLSDH4:0220/txtG_SELFLD_TAB-LOW[4,24]").caretPosition = 17
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/usr/ctxtDRAW-DOKNR").text = ""
session.findById("wnd[0]/usr/ctxtDRAW-DOKNR").caretPosition = 0
session.findById("wnd[0]/tbar[0]/btn[3]").press

REM B2 ************************************************

Next

REM ****************************************************

Can anyone help me with this problem?