Avalados por :
'-Begin-----------------------------------------------------------------
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
session.findById("wnd[0]/tbar[0]/okcd").text = "/nSE16"
session.findById("wnd[0]/tbar[0]/btn[0]").press
WScript.Sleep 500
WScript.Echo "Test"
'-End-------------------------------------------------------------------
'-Begin-----------------------------------------------------------------
'-Directives----------------------------------------------------------
Option Explicit
'-Variables-----------------------------------------------------------
Dim ScrCtrl, Cmd
'-Main----------------------------------------------------------------
Set ScrCtrl = CreateObject("MSScriptControl.ScriptControl")
If IsObject(ScrCtrl) Then
ScrCtrl.AllowUI = vbTrue
ScrCtrl.Language = "VBScript"
Cmd = "WScript.Echo ""Hello World"""
ScrCtrl.ExecuteStatement Cmd
End If
'-End-------------------------------------------------------------------
No hay respuestas para mostrar
Se el primero en responder
contacto@primeconsultor.com
+1 (305) 285-8622
© 2025 Todos los derechos reservados.
Desarrollado por Prime Consultor