' Kill Servizio
set objShell = WScript.CreateObject("WScript.Shell")
objShell.run "net stop teamviewer9",2,true

' Kill Processo
set objWMIService = GetObject ("winmgmts:")
foundProc = False
procName = "teamviewer.exe"

for each Process in objWMIService.InstancesOf ("Win32_Process")
    If StrComp(Process.Name,procName,vbTextCompare) = 0 then
        foundProc = True
        procID = Process.ProcessId
    End If
Next
If foundProc = True Then
    WScript.Echo "Trovato Teamviewer.exe (" & procID & ")"
    'WScript.Echo "Killing Process"
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    For Each objProcess in colProcessList    
        objProcess.Terminate()
    Next
    WScript.Sleep(1000) 'wait for a second
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    If colProcessList.count = 0 Then
        WScript.Echo "Processo Terminato"
    End If
End If

set objShell = WScript.CreateObject("WScript.Shell")
objShell.run "net stop teamviewer9",2,true

' Kill Servizio
set objShell = WScript.CreateObject("WScript.Shell")
objShell.run "net stop teamviewer9",2,true

' Kill Processo
set objWMIService = GetObject ("winmgmts:")
foundProc = False
procName = "teamviewer.exe"

for each Process in objWMIService.InstancesOf ("Win32_Process")
    If StrComp(Process.Name,procName,vbTextCompare) = 0 then
        foundProc = True
        procID = Process.ProcessId
    End If
Next
If foundProc = True Then
    WScript.Echo "Trovato Teamviewer.exe (" & procID & ")"
    'WScript.Echo "Killing Process"
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    For Each objProcess in colProcessList    
        objProcess.Terminate()
    Next
    WScript.Sleep(1000) 'wait for a second
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" &  procID)
    If colProcessList.count = 0 Then
        WScript.Echo "Processo Terminato"
    End If
End If

set objShell = WScript.CreateObject("WScript.Shell")
objShell.run "net stop teamviewer9",2,true