Issues while running QTP Script in Siebel.

[basanth27]

Smita -
Try this,
Save the below file as dialoghandler.vbs file. Store it in your local hardrive.

Just before the code where the dialog comes up write this,

systemutil.Run "C:\windows\system32\wscript.exe", "C:\dialoghandler.vbs"

Let me know if this resolved your issue.

Code:

Set fso = CreateObject("WScript.Shell")
While fso.AppActivate("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend
fso.SendKeys "a", True

fso.SendKeys "~", True

wscript.sleep 7000

While fso.AppActivate ("WIP Session Recovery") = FALSE  
wscript.sleep 1000
Wend

fso.SendKeys "~", True

---

Should be like this,

Code:

SiebApplication("Siebel Sales").SiebScreen("Leads").SiebView("My Leads").SiebApplet("Lead").SiebPicklist("Lead Status").Select"Accept-Create New Project/Opty"
wait 2
systemutil.Run "C:\windows\system32\wscript.exe", "C:\dialoghandler.vbs"
'Line2:
'Browser("Siebel Sales").Dialog("Microsoft Internet Explorer").WinButton("OK").Click

---

I apologize.Pasted in haste, Corrections made to the function.

Code:

Set fso = CreateObject("WScript.Shell")
While fso.AppActivate("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend
fso.SendKeys "a", True

fso.SendKeys "~", True

wscript.sleep 7000

While fso.AppActivate ("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend

fso.SendKeys "~", True