;-Begin-----------------------------------------------------------------
;-Variables-----------------------------------------------------------
Dim $SAPROT, $SapGuiAuto, $application, $connection, $session
$SAPROT = ObjCreate("SapROTWr.SAPROTWrapper")
If Not IsObj($SAPROT) Then
Exit
EndIf
$SapGuiAuto = $SAPROT.GetROTEntry("SAPGUI")
If Not IsObj($SapGuiAuto) Then
Exit
EndIf
$application = $SapGuiAuto.GetScriptingEngine()
If Not IsObj($application) Then
Exit
EndIf
$connection = $application.Children(0)
If Not IsObj($connection) Then
Exit
EndIf
$session = $connection.Children(0)
If Not IsObj($session) Then
Exit
EndIf
$session.findById("wnd[0]/usr/txtRSYST-MANDT").text = "099"
$session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "Hugo"
$session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "Bambi"
$session.findById("wnd[0]/usr/txtRSYST-LANGU").text = "DE"
$session.findById("wnd[0]/tbar[0]/btn[0]").press()
;-End-------------------------------------------------------------------
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
6 | |
6 | |
5 | |
4 | |
3 | |
3 | |
3 | |
3 | |
3 | |
2 |