VBScript实现SAP GUI自动登录失败，遇索引找不到元素报错求助

你遇到的这两个问题其实是连锁反应——第52行的索引错误是因为脚本在SAP GUI的会话对象还没完全初始化好的时候，就急着去访问application.Children(0)或connection.Children(0)，这时候集合里根本没有元素，自然会抛出枚举器找不到索引的错误；而用户名密码无法填充也是因为会话未就绪，后续的控件赋值操作要么没执行，要么执行失败了。

下面是具体的修复方案：

1. 核心修复：等待SAP会话完全就绪 #

原来的脚本只等待了窗口激活，但窗口激活不代表SAP的脚本对象模型（SAP GUI Scripting）已经完成初始化。我们需要循环等待，直到application、connection、session都成功创建：

REM 替换原脚本中获取application/connection/session的部分
Dim retryCount, maxRetries
maxRetries = 20 ' 最多等待10秒（每次间隔500ms）
retryCount = 0

' 等待SAPGUI脚本引擎就绪
Do While Not IsObject(application) And retryCount < maxRetries
    On Error Resume Next
    Set SapGuiAuto = GetObject("SAPGUI")
    Set application = SapGuiAuto.GetScriptingEngine
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(application) Then
    MsgBox "SAP GUI Scripting引擎初始化失败，请检查SAP GUI是否已正确安装并启用脚本功能"
    WScript.Quit
End If

' 等待连接对象就绪
retryCount = 0
Do While Not IsObject(connection) And retryCount < maxRetries
    On Error Resume Next
    Set connection = application.Children(0)
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(connection) Then
    MsgBox "无法获取SAP连接对象，请检查服务器是否正常加载"
    WScript.Quit
End If

' 等待会话对象就绪
retryCount = 0
Do While Not IsObject(session) And retryCount < maxRetries
    On Error Resume Next
    Set session = connection.Children(0)
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(session) Then
    MsgBox "无法获取SAP会话对象，请检查登录窗口是否正常显示"
    WScript.Quit
End If

2. 验证控件ID的正确性 #

不同SAP版本的登录控件ID可能略有差异，你可以通过SAP GUI的脚本录制功能确认正确的ID：

• 打开SAP GUI，点击顶部菜单的工具→脚本录制与回放
• 手动完成一次登录操作，停止录制后查看生成的脚本，对比里面的控件ID和你脚本中的是否一致（比如密码框是不是pwdRSYST-BCODE，用户名是不是txtRSYST-BNAME）

3. 完整修改后的脚本 #

把上面的等待逻辑替换原脚本对应部分后，完整脚本如下：

REM The following script was written to log into the SAP server automatically. 
REM To view historical information and credit for this script please see 
REM the following thread on the SAP Community Network: 
REM http://scn.sap.com/thread/3763970 
REM This script was last updated by Paul Street on 7/1/15 

REM Directives 
Option Explicit 

REM Variables! Must declare before using because of Option Explicit 
Dim WSHShell, SAPGUIPath, SID, InstanceNo, WinTitle, SapGuiAuto, application, connection, session
Dim retryCount, maxRetries

REM Main 
Set WSHShell = WScript.CreateObject("WScript.Shell") 
If IsObject(WSHShell) Then 
    REM Set the path to the SAP GUI directory 
    SAPGUIPath = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\" 
    REM Set the SAP system ID 
    SID = "eaiserver.domain.com" 
    REM Set the instance number of the SAP system 
    InstanceNo = "38" 
    REM Starts the SAP GUI 
    WSHShell.Exec SAPGUIPath & "SAPgui.exe " & SID & " " & InstanceNo 
    REM Set the title of the SAP GUI window here 
    WinTitle = "SAP" 
    While Not WSHShell.AppActivate(WinTitle) 
        WScript.Sleep 250 
    Wend 
    Set WSHShell = Nothing 
End If 

REM 新增：等待SAP脚本对象模型就绪
maxRetries = 20
retryCount = 0

' 等待application对象
Do While Not IsObject(application) And retryCount < maxRetries
    On Error Resume Next
    Set SapGuiAuto = GetObject("SAPGUI")
    Set application = SapGuiAuto.GetScriptingEngine
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(application) Then
    MsgBox "SAP GUI Scripting初始化失败"
    WScript.Quit
End If

' 等待connection对象
retryCount = 0
Do While Not IsObject(connection) And retryCount < maxRetries
    On Error Resume Next
    Set connection = application.Children(0)
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(connection) Then
    MsgBox "无法获取SAP连接"
    WScript.Quit
End If

' 等待session对象
retryCount = 0
Do While Not IsObject(session) And retryCount < maxRetries
    On Error Resume Next
    Set session = connection.Children(0)
    On Error GoTo 0
    WScript.Sleep 500
    retryCount = retryCount + 1
Loop

If Not IsObject(session) Then
    MsgBox "无法获取SAP会话"
    WScript.Quit
End If

If IsObject(WScript) Then 
    WScript.ConnectObject session, "on" 
    WScript.ConnectObject application, "on" 
End If 

session.findById("wnd[0]").maximize 
session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "100" 
session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "I'veInsertedtheCorrectUsernameHere" 
session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "I'veInsertedtheCorrectPassHere" 
session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "PT" 
session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus 
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 10 
session.findById("wnd[0]").sendVKey 0 

额外注意事项 #

• 确保SAP GUI已经启用了脚本功能：打开SAP GUI的选项，找到脚本标签，勾选启用脚本和允许脚本录制
• 如果是Windows 10/11，可能需要以管理员身份运行脚本，避免权限问题

内容的提问来源于stack exchange，提问作者Malbordio