IE添加信任站点并设置允许ActiveX控件的VBS脚本

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set WSHShell = CreateObject("WScript.Shell") 
on Error resume next 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\hwwt2.com\","" 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\hwwt2.com\proxy.fis\","" 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\hwwt2.com\proxy.fis\http","2","REG_DWORD"

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201","0" ,"REG_DWORD"
Wscript.Echo "Added http://proxy.fis.hwwt2.com/ to Trusted sites Zone successfully."