Dim wsh Set wsh = CreateObject("Wscript.shell") '如果路径中带空格需要用chr(34)&"path"& chr(34)包起来 wsh.Run Chr(34) & "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe" & Chr(34)
wscript.sleep 500 wsh.SendKeys "~" wscript.sleep 2000
If Not IsObject(Application) Then Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = Application.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 Application, "on" End If
With session .findById("wnd[0]").maximize .findById("wnd[0]/usr/txtRSYST-MANDT").Text = "110" .findById("wnd[0]/usr/txtRSYST-BNAME").Text = "C10089213" .findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "" '密码 .findById("wnd[0]").sendVKey 0 End With
