如何在没有GUI的情况下在后端执行多个SAP登录

2020-08-14 02:31发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家,

我是SAP GUI脚本的新手。 我想知道如何执行

没有会话窗口的登录会话(后端登录会话),并且我的计算机上有多个相同的用户名。

用户名可以手动执行。 以下是我的脚本。 目前,它可以使用登录弹出式GUI进行单个登录会话。

我已经尝试了" TASKKILL/F/IM saplogon.exe",但是没有用。 请帮忙,因为我需要对服务器上的SAP GUI执行负载和压力测试。

显式选项

Dim WSHShell,SAPGUIPath,SID,InstanceNo,WinTitle,SapGuiAuto,应用程序,连接,会话,技能,vbHide,Shell

SID =" x.x.x.x"

InstanceNo =" 00"

设置WSHShell = WScript.CreateObject(" WScript.Shell")

如果IsObject(WSHShell)然后

SAPGUIPath =" C:\ Program Files(x86)\ SAP \ FrontEnd \ SAPgui \"

WSHShell.Exec SAPGUIPath和" SAPgui.exe"&SID&"&_

实例号

WinTitle =" SAP"

如果结束

rem skillword ="任务栏/F/IM saplogon.exe"

rem Shell技能字词vbHide

如果不是IsObject(application),则

设置SapGuiAuto = GetObject(" SAPGUI")

设置应用程序= SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject(连接),则

设置连接= application.Children(0)

如果结束

如果不是IsObject(session),则

设置会话= connection.Children(0)

如果结束

如果IsObject(WScript)然后

WScript.ConnectObject会话,"打开"

WScript.ConnectObject应用程序,"打开"

如果结束

session.findById(" wnd [0]")。resizeWorkingPane 108,20,false

session.findById(" wnd [0]/usr/txtRSYST-BNAME")。text ="用户名"

session.findById(" wnd [0]/usr/pwdRSYST-BCODE")。text =" password"

session.findById(" wnd [0]")。sendVKey 0

谢谢

阿斯旺

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家,

我是SAP GUI脚本的新手。 我想知道如何执行

没有会话窗口的登录会话(后端登录会话),并且我的计算机上有多个相同的用户名。

用户名可以手动执行。 以下是我的脚本。 目前,它可以使用登录弹出式GUI进行单个登录会话。

我已经尝试了" TASKKILL/F/IM saplogon.exe",但是没有用。 请帮忙,因为我需要对服务器上的SAP GUI执行负载和压力测试。

显式选项

Dim WSHShell,SAPGUIPath,SID,InstanceNo,WinTitle,SapGuiAuto,应用程序,连接,会话,技能,vbHide,Shell

SID =" x.x.x.x"

InstanceNo =" 00"

设置WSHShell = WScript.CreateObject(" WScript.Shell")

如果IsObject(WSHShell)然后

SAPGUIPath =" C:\ Program Files(x86)\ SAP \ FrontEnd \ SAPgui \"

WSHShell.Exec SAPGUIPath和" SAPgui.exe"&SID&"&_

实例号

WinTitle =" SAP"

如果结束

rem skillword ="任务栏/F/IM saplogon.exe"

rem Shell技能字词vbHide

如果不是IsObject(application),则

设置SapGuiAuto = GetObject(" SAPGUI")

设置应用程序= SapGuiAuto.GetScriptingEngine

如果结束

如果不是IsObject(连接),则

设置连接= application.Children(0)

如果结束

如果不是IsObject(session),则

设置会话= connection.Children(0)

如果结束

如果IsObject(WScript)然后

WScript.ConnectObject会话,"打开"

WScript.ConnectObject应用程序,"打开"

如果结束

session.findById(" wnd [0]")。resizeWorkingPane 108,20,false

session.findById(" wnd [0]/usr/txtRSYST-BNAME")。text ="用户名"

session.findById(" wnd [0]/usr/pwdRSYST-BCODE")。text =" password"

session.findById(" wnd [0]")。sendVKey 0

谢谢

阿斯旺

付费偷看设置
发送
1条回答
SC_Yao
1楼-- · 2020-08-14 03:15

我发布问题已经一个月了。 希望得到任何建议或至少承认这一点。

一周热门 更多>