How to Close QTP after execution
Private Function CloseQTP
Set objWMIService = GetObject(“winmgmts:\\.\root\CIMV2″)
Set colProcess = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘QTPro.exe’”)
For Each objProcess in colProcess
objProcess.Terminate()
Next
Set objWMIService = Nothing
Set colProcess = NothingEnd FunctionCall CloseQTP
No comments:
Post a Comment