Quick Test Professional
Pages
(Move to ...)
Home
▼
Friday, April 10, 2009
Lock your system after execution of your QTP Script
Public Function Lock_your_system()
Set obj = CreateObject("WScript.Shell")
sCmnd = "%windir%\SYSTEM32\rundll32.exe user32.dll,LockWorkStation"
obj.Run sCmnd, 0, False
End Function
No comments:
Post a Comment
‹
›
Home
View web version
No comments:
Post a Comment