SAP GUI脚本＆amp; VBA：获取系统名称/ ID

Question

我已经创建了一个gui脚本来自动执行某项任务。现在，我需要获取SAP系统ID /名称。我需要获取用户当前登录的系统ID /名称。

目前我正在使用Q4N。到目前为止，我的代码是：

Dim app As Variant      
Dim SAPGUIAuto As Object 
Dim Connection As Variant 
Dim session As Variant
Dim MainPage as Worksheet
set MainPage = Sheets("Main")

If Not IsObject(app) Then
Set SAPGUIAuto = GetObject("SAPGUI")
Set app = SAPGUIAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = app.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 app, "on"
End If

Set Info = session.Info()

MainPage.Range("E22") = Val(Info.SystemName())

我试图显示这个Info.SystemName（），但它给了我零号。

我还尝试录制脚本以获取此信息：

不幸的是，我没有记录步骤来获取系统ID。