强杀TestComplete进程

'强杀TC进程，使用的是Dos的命令

'调用的是Dos窗口，因此在调用新TC程序时，最好再判断一下TC进程是否杀掉，Dos是否退出了。

'因为有可能，Dos还没把进程杀掉，你就启动新进程，

'还有可能，Dos还在运行，你新启动的进程也被杀掉，导致TC没运行
Function ForceCloseTCProcess()
        '******关闭未关闭的TC进程********************************  
        Dim wmi,pro_s,oShell
        Set oShell = CreateObject("WScript.Shell")    
        Set wmi=GetObject("winmgmts://.")
        Set pro_s=wmi.instancesof("win32_process")
        For Each p In pro_s
            if InStr(LCase(p.name),"testcomplete") > 0 Then                 
                 oShell.Run "cmd /C ntsd -c q -p " & p.ProcessId           
            End If
        Next
End Function     

      

'正常退出TC进程（有些进程此方法杀不了的。）
Function CloseTCProcess()
        '******关闭未关闭的TC进程********************************  
        Dim wmi,pro_s    
        Set wmi=GetObject("winmgmts://.")
        Set pro_s=wmi.instancesof("win32_process")
        For Each p In pro_s
            if InStr(LCase(p.name),"testcomplete") > 0 Then                 
                 p.Terminate
            End If
        Next
End Function