ok her får i lige i VB script:
'xp_messsenger_remove.vbs - Removes Windows Messenger from Windows XP
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
WshShell.Run(rcmd)
Kopir den ind i notepad og gem den som "xp_messsenger_remove.vbs"
Husk at sætte "alle filer" på......