This script will Remove Windows Messenger. (VBScript)
| 'Removes Messenger from Windows XP On Error Resume Next Dim WshShell, sInput, sDone, sMsg sMsg = "This script will Remove Windows Messenger." & vbCr & vbCr _ & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _ & " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _ & "Would you like to continue?" sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks") If sInput = vbYes Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Messenger\Client\Disabled", 1, "REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Messenger\Client\PreventBackgroundDownload",1,"REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Messenger\Client\PreventAutoUpdate",1,"REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Messenger\Client\PreventRun",1,"REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Messenger\Client\PreventAutoRun",1,"REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Outlook Express\Hide Messenger",2,"REG_DWORD" WshShell.Run "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove" sDone = "Windows Messenger has been removed!" & vbCr & vbCr _ & "This script was downloaded from www.paulsxp.com" MsgBox sDone,48,"Finished!" End If |