'--- 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

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "ZoneMap\Domains\mshdiau.ac.ir"
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 and mshdiau.ac.ir to Trust Site : Ok"
end if

'Wscript.Echo