svo er líka hægt að gera þetta með VBS fæl: Option Explicit On Error Resume Next Dim WSHShell, MyBox, p1, q1, rcmd Dim jobfunc 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” WSHShell.RegWrite p1, q1 WshShell.Run(rcmd) Peistið þennan kóða í notepad, seivið sem dfgsdg.vbs eða eitthvað og keirið þetta