Sunday, July 9, 2017

SAP GUI Script OS command

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]/tbar[0]/okcd").text = "/nsm37"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").text = "PFCG_TIME_DEPENDENCY"
session.findById("wnd[0]/usr/txtBTCH2170-JOBNAME").caretPosition = 20
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/chk[1,12]").selected = true
session.findById("wnd[0]/tbar[1]/btn[45]").press
session.findById("wnd[0]/usr/lbl[5,3]").setFocus
session.findById("wnd[0]/usr/lbl[5,3]").caretPosition = 13
session.findById("wnd[0]/mbar/menu[2]/menu[4]").select
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").text = "RSBDCOS0"
session.findById("wnd[1]/usr/ctxtG_0400_DATA-SELECTED_OBJECT-OBJ_NAME").caretPosition = 8
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]").sendVKey 4
session.findById("wnd[0]").sendVKey 3
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 3
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/sub:SAPMSSY3:0131/txtABDBG-CURRLINE[4,6]").setFocus
session.findById("wnd[0]/usr/sub:SAPMSSY3:0131/txtABDBG-CURRLINE[4,6]").caretPosition = 15
session.findById("wnd[0]").sendVKey 5
session.findById("wnd[0]/usr/sub:SAPMSSY3:0131/txtABDBG-CURRLINE[5,6]").setFocus
session.findById("wnd[0]/usr/sub:SAPMSSY3:0131/txtABDBG-CURRLINE[5,6]").caretPosition = 16
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[0]/usr/txtABDBG-V1VALUE").text = "         0"
session.findById("wnd[0]/usr/txtABDBG-V1VALUE").setFocus
session.findById("wnd[0]/usr/txtABDBG-V1VALUE").caretPosition = 10
session.findById("wnd[0]/usr/btnB_REP_1").press
session.findById("wnd[0]").sendVKey 8

No comments:

Post a Comment