;-Begin-----------------------------------------------------------------
;-Directives----------------------------------------------------------
AutoItSetOption("MustDeclareVars", 1)
;-Includes------------------------------------------------------------
#Include "C:\\Language\\AutoIt\\Include\\MsgBoxConstants.au3"
;-Sub Main------------------------------------------------------------
Func Main()
;-Variables-------------------------------------------------------
Local $oSapGuiAuto
$oSapGuiAuto = ObjGet("SAPGUISERVER")
If Not IsObj($oSapGuiAuto) Or @Error Then
MsgBox($MB_SYSTEMMODAL, "", "The variable is not an object")
Return
EndIf
If @AutoItX64 Then
MsgBox($MB_SYSTEMMODAL, "x64", "The variable is an object")
Else
MsgBox($MB_SYSTEMMODAL, "x86", "The variable is an object")
EndIf
EndFunc
;-Main----------------------------------------------------------------
Main()
;-End-------------------------------------------------------------------
;-Begin-----------------------------------------------------------------
;-Directives----------------------------------------------------------
AutoItSetOption("MustDeclareVars", 1)
;-Includes------------------------------------------------------------
#Include "C:\\Language\\AutoIt\\Include\\MsgBoxConstants.au3"
;-Function GetAutoItArchitecture--------------------------------------
Func GetAutoItArchitecture()
If @AutoItX64 Then
Return "x64"
Else
Return "x86"
EndIf
EndFunc
;-Sub Main------------------------------------------------------------
Func Main()
;-Variables-------------------------------------------------------
Local $oSapGuiAuto, $Application
$oSapGuiAuto = ObjGet("SAPGUISERVER")
If Not IsObj($oSapGuiAuto) Or @Error Then
Return
EndIf
$Application = $oSapGuiAuto.GetScriptingEngine()
If Not IsObj($Application) Then
Return
EndIf
MsgBox($MB_SYSTEMMODAL, GetAutoItArchitecture(), _
"SAP GUI Scripting Version " & $Application.MajorVersion() & _
"." & $Application.MinorVersion())
EndFunc
;-Main----------------------------------------------------------------
Main()
;-End-------------------------------------------------------------------
;-Begin-----------------------------------------------------------------
;-Directives----------------------------------------------------------
AutoItSetOption("MustDeclareVars", 1)
;-Includes------------------------------------------------------------
#Include "C:\\Language\\AutoIt\\Include\\MsgBoxConstants.au3"
;-Function GetAutoItArchitecture--------------------------------------
Func GetAutoItArchitecture()
If @AutoItX64 Then
Return "x64"
Else
Return "x86"
EndIf
EndFunc
;-Sub Main------------------------------------------------------------
Func Main()
;-Variables-------------------------------------------------------
Local $oSapGuiAuto, $Application, $Connection, $Session
Local $Info
$oSapGuiAuto = ObjGet("SAPGUISERVER")
If Not IsObj($oSapGuiAuto) Or @Error Then
Return
EndIf
$Application = $oSapGuiAuto.GetScriptingEngine()
If Not IsObj($Application) Then
Return
EndIf
$Connection = $Application.Children(0)
If Not IsObj($Connection) Then
Return
EndIf
$Session = $Connection.Children(0)
If Not IsObj($Session) Then
Return
EndIf
$Info = $Session.Info()
MsgBox($MB_SYSTEMMODAL, GetAutoItArchitecture(), _
"Transaction: " & $Info.Transaction() & @CRLF & _
"Program: " & $Info.Program() & @CRLF & _
"ScreenNumber: " & $Info.ScreenNumber() & @CRLF & _
"CodePage: " & $Info.CodePage() & @CRLF & _
"GuiCodePage: " & $Info.GuiCodePage() & @CRLF & _
"I18NMode: " & $Info.I18NMode() & @CRLF & _
"Language: " & $Info.Language() & @CRLF & _
"IsLowSpeedConnection: " & $Info.IsLowSpeedConnection())
EndFunc
;-Main----------------------------------------------------------------
Main()
;-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 | |
3 |