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