Isso é muito UTIL,
tb preciso disso, se alguem souber !
Galera eu achei esse código, mas não me ajudoou muito !
Colocar Site automaticamente na lista de sites confiáveis
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objReg=GetObject(“winmgmts:\” & strComputer & “\root\default:StdRegProv”)
strKeyPath = “Software\Microsoft\Windows\CurrentVersion\Internet Settings” _
& “ZoneMap\Domains\seuDominio.com\webmail”
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
strValueName = “http”
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
±-----------------------------------------------------------+
Alguem já mexeu com esse código ?