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-------------------------------------------------------------------
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute