Trusted Sites Script

Posted on June 13, 2016 by mike

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

This entry was posted in Uncategorized. Bookmark the permalink.