用VBS实现Loadrunner多场景的执行(转)

'用VBS实现Loadrunner多场景的执行

Set WshShell=Wscrīpt.CreateObject("Wscrīpt.Shell")
WshShell.Run "cmd.exe /C c:\\db.lrs",1,true
'指定位置,打开场景,

Wscrīpt.Sleep 3000
WshShell.AppActivate "Mercury LoadRunner 控制器 - db.lrs - [*]"
'把Loadrunner置为激活状态

Wscrīpt.Sleep 1200
WshShell.Sendkeys "%{S}"
'执行行Alt+s 开始场景

Wscrīpt.Sleep 1000
WshShell.Sendkeys "{ENTER}"
'如果提示覆盖执行回车

Wscrīpt.Sleep 2000
WshShell.Run "cmd.exe /C tskill wlrun"
'运行2S(可设定)后 结束进程Wlrun

Wscrīpt.Sleep 2000
WshShell.Run "cmd.exe /C c:\\db1.lrs",1,true
'指定位置,打开第二个场景,

Wscrīpt.Sleep 3000
WshShell.AppActivate "Mercury LoadRunner 控制器 - db.lrs - [*]"
'把Loadrunner置为激活状态

Wscrīpt.Sleep 1200
WshShell.Sendkeys "%{S}"
'执行行Alt+s 开始场景

Wscrīpt.Sleep 1000
WshShell.Sendkeys "{ENTER}"
'如果提示覆盖执行回车

Wscrīpt.Sleep 2000
WshShell.Run "cmd.exe /C tskill wlrun"
'运行2S(可设定)后 结束进程Wlrun

把上述代码Copy到记事本中,重新保存为*.VBS

执行就可以实现

用VBS实现Loadrunner多场景的执行

用Bat也可以:

类如下东东:

SET M_ROOT="D:\Program Files\Mercury\LoadRunner\bin\"
%M_ROOT%\wlrun.exe -TestPath "c:\db.lrs" -Run