View/Close 'Task Manager' applications

[hendricksonet]

Is there any way to view/close applications that are listed in the windows task manager applications tab without having to use the Word.Application object?


The following code works fine, but I need to get this to work even if Word isn't installed on the PC.

********************************************
Brief description: This code looks at the Task Manager App list and closes apps that are not named AppName or Manger
********************************************
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks

For Each objTask in colTasks
If objTask.Visible Then
If InStr(CStr(Trim(objTask.Name)),"AppName") OR _
InStR(CStr(Trim(objTask.Name)),"Manager") Then
'do nothing
Else
colTasks(objTask.Name).Close
End If
End If
Next

objWord.Quit
********************************************

 

[sparkbyte]

Here is a code snippet that may help

' VB Script Document
option explicit
'#### Cleanup any left-over Excel processes ####'
Dim objProcess, colProcess, strComputer, objWMIService
Dim strProcessKill 
strComputer = "."
strProcessKill = "'wzzip.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.Quit 
' End of WMI Example of a Kill Process

hope this helps

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[hendricksonet]

Yeah, I was trying something similar to that, but it's still using the processes. I need to go based off the window name. Someone else I know is trying to accomplish this via a batch file using tasklist/taskkill. We'll see Thanks for the reply though!

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_process.asp

I guess you want to play with the Caption property ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hendricksonet]

Looks like that might be promising.

Thanks,
Eric

 

[hendricksonet]

Shoot, that just seems to just pull in the name of the exe. Thanks though!

 

[sparkbyte]

You might try altering the WMI query to list all the Names and then kill the anything that matches what you need.



Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com