.comment-link {margin-left:.6em;}
Books & Articles I wrote.

Sunday, January 15, 2006


Multiple Windows Messengers

If you get mutiple instances of Windows Messenger signing in and out on a single machine, then run the following to remove Windows Messenger....

Option Explicit
On Error Resume Next

'Dimension variables
Dim WSHShell, MyBox, p1, q1, rcmd
Dim jobfunc

'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger"
q1 = 2
rcmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove"

'Create or change the Hide Messenger value
WSHShell.RegWrite p1, q1

'Run the uninstall command

This page is powered by Blogger. Isn't yours?

Weblog Commenting and Trackback by HaloScan.com