'Uninstall Windows Messenger
'For uninstalling the Windows Messenger that ships with Windows XP. 
'UninstallMessenger.vbs
'© Robert Dunham - 1/19/2006
'Downloaded from http://www.nilpo.com
On Error Resume Next

message = "This script provided by Nilpo.com" + vbcr + vbcr
message = message + "This script will remove Windows MSN Messenger from Windows XP." + vbcr +vbcr
message = message + "Do you want to continue?"

result = msgBox(message, _
	VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
	"Windows Messenger Uninstaller")

If result = vbNo Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
cmdLine = "RunDll32.exe advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove"
WshShell.Run cmdLine, 0, FALSE

Set WshShell = Nothing
Wscript.Quit