100497 / 100497.github.io Goto Github PK

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