'--- Created by Mahdi Pakzad (MPM) 1389/06/21
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\iaum.com"

objReg.CreateKey HKEY_CURRENT_USER, strKeyPath

dwValue = 2

strValueName = "https"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

strValueName = "http"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

if  err.number <> 0 then
    msgbox "Error: " & err.Description & vbcrlf & " [Rigth Click] and [Run as Administrator] Permission"
else
    msgbox "Adding iaum.com to Trust Site : Ok"
end if

'Wscript.Echo