???????????????й?QTP?????QC????????????QTP???????????????QTP????????й????л???????й?????QTP??????????????Remote Agent?????????N??????????????????????????
?????????????????????????????????????RunTest??????QC???QTP???????????Remote Agent????ò?????????????????????????????????????????????QTP????????й????в????????й???
????????????????????????????????????????????Щ??????????????????????????QTP?????????
???????????????????????????μ???????????????????????memempty.exe??????????ж???????????????QTP??????Test????????????????QTP????й????У??????????????Ч??????????沿???????Щ???????????????????ó???
??????y???????????????????????vbs?????cmd????????е??????????????￡?

 

dim restartcode
set?fso?=?CreateObject("Scripting.FileSystemObject")
set?file?=?fso.CreateTextFile("D:RestartQTP.vbs")
restartcode?=?"'使???€????????使??tp??????c?€????????????"&vbnewline
restartcode?=?restartcode?&"WScript.Sleep?3000"&vbnewline
restartcode?=?restartcode?&"'使??AOM??????tp????????"&vbnewline
restartcode?=?restartcode?&"Dim?qtp"&vbnewline
restartcode?=?restartcode?&"Set?qtp?=?CreateObject(""QuickTest.Application"")"&vbnewline
restartcode?=?restartcode?&"qtp.Quit"&vbnewline
restartcode?=?restartcode?&"WScript.sleep?2000"&vbnewline
restartcode?=?restartcode?&"qtp.Launch"&vbnewline
restartcode?=?restartcode?&"qtp.visible?=?true"&vbnewline
restartcode?=?restartcode?&"set?qtp?=?nothing"&vbnewline
restartcode?=?restartcode?&"set?fso?=?CreateObject(""Scripting.FileSystemObject"")"&vbnewline
restartcode?=?restartcode?&"fso.deletefile?""D:RestartQTP.vbs"""&vbnewline
restartcode?=?restartcode?&"set?fso?=?nothing"&vbnewline
file.write?restartcode
set?fso?=?nothing
set?WshShell?=?CreateObject("WScript.Shell")
WshShell.run?"cmd.exe?/c?D:RestartQTP.vbs"
set?WshShell?=?nothing?

??????????????????????QTP?????????????????test?????????????????????y???к????????????