VB script to kill all PC Suite processes

Question

Hello :-)
You know how some PC Suite components hang when the connection with the phone is interrupted? And how you have to log off and back on to clear it?
I got fed up of doing that so knocked up this VB script and called it "PC Suite kill.vbs". Snappy name, eh? Maybe I should take up copywriting.
It's developed and tested (= hacked together) with PC Suite 6.7.0.22 on Windows XP Pro SP2. Please back up all your data and lock your daughters away before trying it at home. Guaranteed no registry hacks.
If you try "PC Suite kill.vbs" on another version of PC Suite and Windows and it doesnt kill PC Suite and all its components it's probably because the "path names" of the programs are different. To solve this problem there's another VB script below, snappily named "Get info on all processes.vbs", that should give the pathnames on your computer. You have to start PC Suite and whichever component(s) are not being killed then run "Get info on all processes.vbs, look in C:\temp.txt for the pathnames and copy-and-paste them into your copy of "PC Suite kill.vbs".
Feedback appreciated -- would be nice to make "PC Suite kill.vbs" detect the PC Suite version and Windows version and adapt itelf accordingly.
Here come the scripts. No file attachment facility on this board so they're in the message. Beware split lines.
=== "PC Suite kill.vbs" starts ===
' Nokia PC Suite kill
' Usage:
' * No options or arguments
' * Developed and tested with PC Suite 6.7.0.22 and Windows XP Pro SP2
' 30may06 Charles Atkinson
' * Quick and dirty to kill all PC Suite processes.
' Written because parts of PC Suite hang if the connection with the phone is interrupted
' Acknowledments to Hans-Georg Michna (www.michna.com/nokia6230.htm) for the idea and .BAT example
' Wishlist
' * Detect PC Suite and Windows versions and modify behaviour to suit
' * Cope with %systemroot% being other than C:
Option Explicit
' Declare constants
Const strComputer = "."
' Declare variables
Dim intCounter
Dim intProcessNamesIdxMax
Dim objProcess
Dim objShell
Dim strProcessNames(14)
' Initialise variables
strProcessNames(1) = "C:\PROGRA~1\COMMON~1\PCSuite\Services\SERVIC~1.EXE"
strProcessNames(2) = "C:\PROGRA~1\COMMON~1\Nokia\MPAPI\MPAPI3s.exe"
strProcessNames(3) = "C:\PROGRA~1\COMMON~1\PCSuite\DATALA~1\DATALA~1.EXE"
strProcessNames(4) = "C:\PROGRA~1\COMMON~1\PCSuite\Services\SERVIC~1.EXE"
strProcessNames(5) = "C:\Program Files\Nokia\Nokia PC Suite 6\ApplicationInstaller.exe"
strProcessNames(6) = "C:\Program Files\Nokia\Nokia PC Suite 6\AudioManager.exe"
strProcessNames(7) = "C:\Program Files\Nokia\Nokia PC Suite 6\ConnectionManager.exe"
strProcessNames(8) = "C:\Program Files\Nokia\Nokia PC Suite 6\ContentCopier.exe"
strProcessNames(9) = "C:\Program Files\Nokia\Nokia PC Suite 6\ImageConverter.exe"
strProcessNames(10) = "C:\Program Files\Nokia\Nokia PC Suite 6\ImageStore.exe"
strProcessNames(11) = "C:\Program Files\Nokia\Nokia PC Suite 6\LaunchApplication.exe"
strProcessNames(12) = "C:\Program Files\Nokia\Nokia PC Suite 6\MultimediaPlayer.exe"
strProcessNames(13) = "C:\Program Files\Nokia\Nokia PC Suite 6\OneTouchAccess.exe"
strProcessNames(14) = "C:\Program Files\Nokia\Nokia PC Suite 6\PcSync2.exe"
intProcessNamesIdxMax = 14
' For each process
For each objProcess in GetObject( "winmgmts:" ).InstancesOf( "Win32_Process" )
' Compare with each known PC Suite process
For intCounter = 1 To intProcessNamesIdxMax Step 1
' And if it matches
If strProcessNames( intCounter ) = objProcess.ExecutablePath Then
objProcess.Terminate
Exit For
End If
Next
Next
Wscript.Quit 0
=== "PC Suite kill.vbs" ends ===
=== "Get info on all processes.vbs" starts ===
' Get info on all processes
' Usage:
' * No options or arguments
' * Output to C:\temp.txt
' * Developed and tested with Windows XP Pro SP2
' 30may06 Charles Atkinson
' * Quick and dirty to get info on all processes.
' Written to get full path names for PC Suite processes for "PC Suite kill and restart.vbs"
' Declare constants
Const intForWriting = 2
' Open text file for writing
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set objTextFile = objFSO.OpenTextFile( "C:\temp.txt", intForWriting, True )
' For each process ...
for each objProcess in GetObject( "winmgmts:" ).InstancesOf( "Win32_Process" )
strCreationDate = Mid(objProcess.CreationDate,7,2) & "/" & Mid(objProcess.CreationDate,5,2) & "/" & Left(objProcess.CreationDate,4) & " " & Mid(objProcess.CreationDate,9,2) & ":" & Mid(objProcess.CreationDate,11,2) & ":" & Mid(objProcess.CreationDate,13,2)
objTextFile.WriteLine( objProcess.ProcessId & "," & objProcess.ParentProcessId & "," & strCreationDate & "," & objProcess.Name & "," & objProcess.ExecutablePath )
next
' Close file and exit
objTextFile.Close
Wscript.Quit 0
=== "Get info on all processes.vbs" ends ===
Nokia 5130c-2

Answer 1

You can download the scripts from here.
They have extension .txt to comply with Yahoo's restrictions. You'll need to change it to .vbsMessage Edited by catkin on 06-Jun-2006
12:47 PM
Nokia 5130c-2