Ayuda con script de sap , error al ejecutar afuera

Amigos , estoy empezando con el tema de script en Sap , usando la grabadora de macros.
He creado algunos como crear grafos y operacion interna con carga de materiales en la CJ20N.
Pero al querer ejecutar el script.vbs que me extrae una lista en portapapeles , me arroja un error
error

Esto ocurre al ejecutar el script desde fuera osea clickeando el archivo o ejecutandolo desde autohotkey, extraño es que desde la grabadora de sap no hay problema al ejecutarlo.

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
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/lbl[40,9]").setFocus
session.findById("wnd[0]/usr/lbl[40,9]").caretPosition = 12
session.findById("wnd[0]").sendVKey 9
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[4,0]").select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[4,0]").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press

Hola @Ignacio_Solar,

intenta ejecutándolo con excel en una macro.

Saludos.

Amigo , cual es el código para ejecutarlo en visual basic?

el script se llama script 1.vbs
C:\Users\Alumno\AppData\Roaming\SAP\Script\script.vbs

O pego ese mismo codigo ?

puedes ejecutar el script en el Excel paso a paso con la tecla F8 para ver exactamente en que línea da el error?

Requieres modificar tu conexión,

reemplaza todo lo que diga application por SapGuiAuto en tu conexión y tendría que funcionar.

Me confirmas.

Saludos.

Lo probare mañana lunes y te aviso haber que tal.

Este tema se cerró automáticamente 91 días después del último post. No se permiten nuevas respuestas.