set SapGuiAuto = GetObject("SAPGUI")
Set SAPApp = SapGuiAuto.GetScriptingEngine
Set SAPCon = SAPApp.Children(0)
Set session = SAPCon.Children(0)
session.findById("wnd[0]").maximize '进入sap系统的主界面，并最大化窗口
session.findById("wnd[0]/usr/txtRSYST-MANDT").Text="000" '定位到客户端输入框，并输入000
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text="TEST" '定位到用户名输入框，并输入TEST