How to "End Task" not "Kill" or "Terminate"?

Posted by Luiscencio on Stack Overflow See other posts from Stack Overflow or by Luiscencio
Published on 2010-05-07T18:39:04Z Indexed on 2010/05/07 18:48 UTC
Read the original article Hit count: 195

Filed under:
|
|
|

Hi community.

I have a 3G card to provide internet to a remote computer... I have to run a program(provided with the card) to establish the connection... since connections suddenly is lost I wrote a script that Kills the program and reopens it so that the connection is reestablished, there are certain versions of this program that don't kill the connection when killed/terminated, just when closed properly.

so I am looking for a script or program that "Properly Closes" a window so I can close it and reopen it in case the connection is lost.

this is the code that kills the program

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill 
strComputer = "."
strProcessKill = "'Telcel3G.exe'" 

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next 
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit 

© Stack Overflow or respective owner

Related posts about vbscript

Related posts about c#