Set Sh = CreateObject("WScript.Shell")
Sh.RegWrite
"HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INT ERNET SETTINGS\ZONES\3\1803" ,0,"REG_DWORD"