excel - SAP GUI 脚本和 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。