Try this
Dim VarHrs
VarHrs = InputBox("Enter the approximate Execution time in Hrs")
exptime = DateAdd("h",VarHrs,Now)
Set Wshell = WScript.CreateObject("WScript.Shell")
While Now < exptime
Wscript.Sleep 30000
Wshell.SendKeys "{NUMLOCK}"
Wshell.SendKeys "{NUMLOCK}"
Wend
On Sunday, August 18, 2013 3:42:45 PM UTC-4, [email protected] wrote:
>
> I did create the Vbs script. it runs fine when i put it on windows
> scheduler and system is not locked. But if the system is locked then it
> doesn't trigger.
> any idea?
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
