On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

'Adiciona o dominio https://enota.safeweb.com.br aos sites confiaveis
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\safeweb.com.br\enota"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "https"
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Coloca o sites padroes em nivel personalizado
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "CurrentLevel"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue


'Habilita a chave 1001
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1001"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1004
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1004"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1200
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1200"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1201
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1201"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1405
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1405"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 2201
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "2201"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 2000
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "2000"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1208
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1208"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 1209
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "1209"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'Habilita a chave 120A
siteKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.CreateKey HKEY_CURRENT_USER, siteKeyPath
strValueName = "120A"
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, siteKeyPath, strValueName, dwValue

'
objReg = nothing

msgbox("Procedimento efetuado.")