On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set objReg = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}\\” & strComputer & _
“\root\default:StdRegProv”)
‘=== Set HKLM Only
strKeyPath = “SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings”
strValueName = “Security_HKLM_only”
dwValue = 0
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\CurrentVersion\Internet Settings”
strValueName = “Security_HKLM_only”
dwValue = 0
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
‘=== Create ZoneMap
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
‘=== Set UNC as Intranet
strKeyPath = “SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap”
strValueName = “UNCAsIntranet”
dwValue = 1
stValue = “”
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap”
strValueName = “UNCAsIntranet”
dwValue = 1
stValue = “”
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
‘=== Create ZoneMap\Ranges
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
‘=== Create ZoneMap Domains
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
‘=== Create IP Range
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges\Range1000”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,1
strValueName = “:Range”
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,”10.1.1.1-10.1.254.254″
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges\Range1000”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Ranges\Range1000”
strValueName = “*”
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,1
strValueName = “:Range”
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,”10.1.1.1-10.1.254.254″
‘== IdahoTech.com
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\idahotech.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
‘===== BioFireDX.com
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\BioFireDX.com”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
‘====== iSAOS
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “http”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\Domains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\” _
& “ZoneMap\EscDomains\iSAOS”
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strValueName = “*”
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
You must log in to post a comment.