Option Explicit

Dim WSHShell, n, p, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\"
p = p & "LinksFolderName"
itemtype = "REG_SZ"
n = ""

WSHShell.RegWrite p, n, itemtype

MsgBox "''Hivatkozások'' automatikus létrehozása a Kedvencekben letiltva.",4096,"Kész"