将受信任的站点添加到IE本地Intranet

我正在试图制作一个VBScript，它会向图片中的IE本地Intranet设置添加例外。我认为这是可能的，因为我读过。将受信任的站点添加到IE本地Intranet

我试了几种解决方案，包括下面的一个，而且感觉我无处可去！该脚本将在Windows 7 Pro计算机上运行，如果有任何帮助的话。

AddTrustedSite "//192.168.0.10" 

Function AddTrustedSite(strDomainName) 
    Set WshShell = Wscript.CreateObject("Wscript.Shell") 
    strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" 
    WshShell.RegWrite strRegKey & strDomainName & "\", "", "REG_SZ" 
    WshShell.RegWrite strRegKey & strDomainName & "\*", "2", "REG_DWORD" 
End Function

来源

2016-08-12 Cristian Muscalu

定义“无处可去”。什么不按预期工作？ –

很明显，我运行脚本，检查IE设置 - >本地Intranet - >网站 - >高级和'/ 192.168.0.10'没有得到添加。 –

你检查了注册表位置吗？将它与手动添加值时得到的结果进行比较。 –

这适用于普通网络。
但是，当在域名下的PC上使用它时，它会显示错误的用户名或密码。当我找到它时，我会发布域的额外详细信息。

AddTrustedSite "Range1" 

Function AddTrustedSite(strDomainName) 
    Set WshShell = Wscript.CreateObject("Wscript.Shell") 
    strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\" 
    WshShell.RegWrite strRegKey & strDomainName & "\", "", "REG_SZ" 
    WshShell.RegWrite strRegKey & strDomainName & "\:Range", "192.168.0.10", "REG_SZ" 
    WshShell.RegWrite strRegKey & strDomainName & "\file", "1", "REG_DWORD" 
End Function

来源

2016-08-12 14:21:53

将受信任的站点添加到IE本地Intranet

回答

相关问题