Hello Dipesh，

在调用函数之前，必须连接SAP系统。 看一下带有功能模块RFC_PING的VBS示例：

'-Begin --------------------------------------------  ---------------------

   '-指令-----------------------------------------------  -----------
   显式期权

   Sub Main（）'---------------------------------------------  -------------

     '-变量-----------------------------------------------  ----------
     昏暗的SAPFunc，Connection，SAPConnection，PingFunc，retPing
     除了Ping昏暗

     '-获取SAP.Functions --------------------------------------------  -----
     关于错误继续
     设置SAPFunc = CreateObject（" SAP.Functions.Unicode"）
     出错时转到0
     如果不是IsObject（SAPFunc）然后
       MsgBox" CreateObject（SAP.Functions.Unicode）失败"，vbOkOnly，"错误"
       退出子
     万一

     '-获取SAP.LogonControl连接-----------------------------------
     关于错误继续
     设置连接= SAPFunc.Connection（）
     出错时转到0
     如果不是IsObject（Connection）然后
       MsgBox" SAPFunc.Connection失败"，vbOkOnly，"错误"
       设置SAPFunc = Nothing
       退出子
     万一

     '-设置连接参数-----------------------------------------
     Connection.Client =" 001"
     Connection.User =" BCUSER"
     Connection.Password =" minisap"
     Connection.Language =" EN"
     Connection.System =" NSP"
     Connection.HostName =" ABAP"
     Connection.SystemNumber = 0

     '-连接SAP系统---------------------------------------------  ---
     SAPConnection = Connection.Logon（0，vbFalse）
     如果SAPConnection = 0，则
       MsgBox"连接登录失败"，vbOkOnly，"错误"
       退出子
     万一

     '-调用ABAP功能模块RFC_PING --------------------------------
     设置PingFunc = SAPFunc.Add（" RFC_PING"）
     如果IsObject（PingFunc）然后
       retPing = PingFunc.Call（）
       如果retPing = False，则
         除了Ping = PingFunc.Exception（）
         MsgBox CStr（exceptPing），vbOkOnly，"结果"
       其他
         MsgBox CStr（retPing），vbOkOnly，"结果"
       万一
     万一

     '-注销 -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - -  -------------
     Connection.Logoff（）

   结束子

   '-主要 -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - -  -----------------
   主要（）

 '-结束 -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - -  --------------------
 

让我们知道您的结果。

干杯
Stefan

这对Stefan很有用。 我现在只得到输出。 如果您有时间查看下面的代码并为我提供帮助。 我已经在使用登录板连接到我的SAP系统，这意味着SAPGUI连接已打开。 但是当我运行脚本时，仍然会弹出一个对话框，询问系统连接详细信息。 我认为这是代码中使用的CreateObject（" SAP.Function"）的原因。 我尝试了GetObject，但语法错误。 您能告诉我在这里可以使用什么，因为我的SAP系统已经登录，但我无法再弹出另一个系统连接弹出窗口？ 此外，该脚本仅在我使用FM RFC_PING且其他FM出现错误时才能正常运行。 为什么有这个主意？

预先感谢您：）

错误恢复后

设置SapGuiAuto = GetObject（" SAPGUI"）

出错时转到0

如果不是IsObject（SapGuiAuto）那么

MsgBox" SAP登录板未运行，请单击"确定"开始"

设置WshShell = CreateObject（" WScript.Shell"）

设置proc = WshShell.Exec（" C：\ Program Files（x86）\ SAP \ FrontEnd \ SAPgui \ saplogon.exe"）

WScript.Sleep 4000

设置SapGuiAuto = GetObject（" SAPGUI"）

如果结束

设置应用程序= SapGuiAuto.GetScriptingEngine

SID = InputBox（"请输入SID进行登录"）

如果不是IsObject（连接），则

设置连接= application.OpenConnection（SID，True）如果结束

如果不是IsObject（session）那么

设置会话=连接。Children（0）如果结束

如果IsObject（WScript）然后

WScript.ConnectObject会话，"打开"

WScript.ConnectObject应用程序，在"如果"结束

session.findById（" wnd [0]/usr/txtRSYST-MANDT"）。text =" 200"

UID = InputBox（"请输入我们的ISID"）

session.findById（" wnd [0]/usr/txtRSYST-BNAME"）。text = UID

密码=输入框（"请输入密码"）

session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。text =密码

session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。setFocus

session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。caretPosition = 8

session.findById（" wnd [0]"）。sendVKey 0

'****用户计算机信息***************

设置funcControl = CreateObject（" SAP.Functions"）

设置compname = funcControl.Add（" TMP_GUI_GET_COMPUTERNAME"）

MsgBox compname（compname通过显示带有FM名称的弹出窗口来提供正确的输出）

如果compname.Call = True然后

MsgBox"呼叫成功"

其他

MsgBox"更正程序"

如果结束

你好Dipesh，

SAP GUI和RFC连接是不同的方式。 您一方面具有GUI_Connection，另一方面具有RFC_Connection。 查看修改后的代码，以在一个脚本中并行使用这些不同类型的连接：

关于错误继续下一个
 设置SapGuiAuto = GetObject（" SAPGUI"）
 出错时转到0
 如果不是IsObject（SapGuiAuto）
   MsgBox" SAP登录板未运行，请单击"确定"开始"
   设置WshShell = CreateObject（" WScript.Shell"）
   设置proc = WshShell.Exec（" C：\ Program Files（x86）\ SAP \ FrontEnd \ SAPgui \ saplogon.exe"）
   WScript.Sleep 4000
   设置SapGuiAuto = GetObject（" SAPGUI"）
 万一
 设置应用程序= SapGuiAuto.GetScriptingEngine
 SID = InputBox（"请输入SID进行登录"）
 如果不是IsObject（connection）然后
   设置GUI_Connection = application.OpenConnection（SID，True）
 万一
 如果不是IsObject（session）然后
   设置会话= GUI_connection.Children（0）
 万一
 session.findById（" wnd [0]/usr/txtRSYST-MANDT"）。text =" 200"
 UID = InputBox（"请输入我们的ISID"）
 session.findById（" wnd [0]/usr/txtRSYST-BNAME"）。text = UID
 密码=输入框（"请输入密码"）
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。text =密码
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。setFocus
 session.findById（" wnd [0]/usr/pwdRSYST-BCODE"）。caretPosition = 8
 session.findById（" wnd [0]"）。sendVKey 0


 '****用户机器信息***************
 设置funcControl = CreateObject（" SAP.Functions"）
 设置RFC_Connection = SAPFunc.Connection（）
 RFC_Connection.Client =" 200"
 RFC_Connection.User = UID
 RFC_Connection.Password =密码
 RFC_Connection.Language =" EN"
 RFC_Connection.System = SID
 RFC_Connection.HostName =" ABAP"
 RFC_Connection.SystemNumber = 0
 SAPConnection = RFC_Connection.Logon（0，vbTrue）
 设置compname = funcControl.Add（" TMP_GUI_GET_COMPUTERNAME"）
 如果compname.Call = True，则
   MsgBox"呼叫成功"
 其他
   MsgBox"更正程序"
 万一
 RFC_Connection.LogOff（）
 

让我们知道您的结果。

干杯
Stefan

设置SessionInfo = session.Info 
 

MsgBox SessionInfo.SystemName

Ablove代码按预期运行...

我运行了您在一个博客中提到的其他代码。 我发现我的错误是在使用会话信息之前使用Set。 我删除了Set并按原样保留了工作并进行工作...

让我看看在朋友的帮助下，Outlook是否对我有用，会让您知道结果。

再次感谢您……您得到了很大的帮助。 SAP GUI脚本pdf文档在如何使用属性以及所有...方面没有提供太多属性。