MAPI32 - not longer causing problems

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

MAPI32 - not longer causing problems

Logged in as: Guest

arrSession:exec spGetSession 2,16,35184

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> MAPI32 - not longer causing problems
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

MAPI32 - not longer causing problems - 6/7/2006 12:34:43 AM

torstenj

Posts: 9
Score: 2
Joined: 6/6/2006
Status: offline

Hi folks - again!

This little scirpt manage to kill every open MAPI application. Blackberry, Messenger and Outlook is within that script. ActiveSync is missing.
Check this - and enjoy it!

Dim userpathinfo
 Set userpathinfo = createobject("WScript.Shell")
 'usr_outlook = userpathinfo.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE\Path")
Dim objWMIService, objProcess, colProcess
Dim strComputer
Dim strProcessKill1
Dim strProcessKill2
Dim strProcessKill3
Dim strProcessKill4
Dim strProcessKill5
strComputer = "."
strProcessKill1 = "'outlook.exe'"
strProcessKill2 = "'BbDevMgr.exe'"
strProcessKill3 = "'DesktopMgr.exe'"
strProcessKill4 = "'RIMDeviceManager.exe'"
strProcessKill5 = "'msnmsgr.exe'"

Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _ 
  & strComputer & "\root\cimv2") 
     Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = " & strProcessKill1 )
        For Each objProcess in colProcess
        objProcess.Terminate()
     Next
     Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = " & strProcessKill2 )
        For Each objProcess in colProcess
        objProcess.Terminate()
     Next
     Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = " & strProcessKill3 )
        For Each objProcess in colProcess
        objProcess.Terminate()
     Next
     Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = " & strProcessKill4 )
        For Each objProcess in colProcess
        objProcess.Terminate()
     Next
     Set colProcess = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = " & strProcessKill5 )
        For Each objProcess in colProcess
        objProcess.Terminate()
     Next
Dim objCalc, strShell, objProgram, strExe
strComputer = "."
strExe = "Outlook.exe"
Set objWMIService = getobject("winmgmts://" & strComputer & "/root/cimv2") 
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe 
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)

Sometimes very usefull!

Regards,

Torsten

Post #: 1

RE: MAPI32 - not longer causing problems - 6/7/2006 1:34:22 AM

ebgreen

Posts: 4595
Score: 29
Joined: 7/12/2005
Status: offline

I would have used a For Next loop and an array like this:

arrProcessList = Array("'outlook.exe'", "'BbDevMgr.exe'", "'DesktopMgr.exe'", "'RIMDeviceManager.exe'", "'msnmsgr.exe'")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" _ 
 & strComputer & "\root\cimv2")
For Each strProcess In arrProcessList 
   Set colProcess = objWMIService.ExecQuery _
       ("Select * from Win32_Process Where Name = " & strProcess)
   For Each objProcess in colProcess
       objProcess.Terminate()
   Next
Next
Dim objCalc, strShell, objProgram, strExe
strExe = "Outlook.exe"
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
   "Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe 
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
   "Win32_Process", "Create", objProgram)

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to torstenj)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> MAPI32 - not longer causing problems

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts