Close QTP after execution from VBS Files

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 = Nothing
End FunctionCall CloseQTP