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

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set WSHShell = CreateObject("WScript.Shell") 
on Error resume next 
WshShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsoneMapDomainshwwt2.com","" 
WshShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsoneMapDomainshwwt2.comproxy.fis","" 
WshShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsoneMapDomainshwwt2.comproxy.fishttp","2","REG_DWORD"

WshShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet Settingsones21201","0" ,"REG_DWORD"
Wscript.Echo "Added http://proxy.fis.hwwt2.com/ to Trusted sites Zone successfully."