05-15-2009, 03:57 PM
You can try this code...
//* Test script to run in Machine A *//
//*************//
//*****This Script shuld save in your machineA with 'wsf' extension the the 'D:' ******//
Hope this'll help you....
Thanks..
//* Test script to run in Machine A *//
Code:
Dim Process(1)
Machine=Array("Machine_B") 'Computer name of the Machine B
set Controller = CreateObject("WSHController")
For i=0 to UBOUND(Machine)
Set Process(i) = Controller.CreateScript("D:\StartExecution.wsf", Machine(i))
Process(i).Execute
Next
For i=0 to UBOUND(Process)-1
While Process(i).Status<>2
Wait(2)
WEnd
Next
//*************//
//*****This Script shuld save in your machineA with 'wsf' extension the the 'D:' ******//
Code:
<package>
<job>
<script language="VBScript">
Set QTP=Createobject("Quicktest.Application")
QTP.visible=true
QTP.launch
QTP.open "YourScript Path in Machine A"
QTP.test.run
</script>
</job>
</package>
Hope this'll help you....
Thanks..