允许IE跨域访问

1、VBS篇

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objReg = GetObject("winmgmts:" &"{impersonationLevel=impersonate}\\"&strComputer _& "\root\default:StdRegProv")

 

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\3"

 

strEntryName = "1406"
dwvalue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue

 

strEntryName = "1607"
dwvalue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue

 

2、BAT篇

REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v "1406" /t reg_dword /d 0x00000000 /f
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v "1607" /t reg_dword /d 0x00000003 /f

1406  通过域访问数据资源  1607 跨域浏览子框架
3 禁用  0 启用