如何判断并提示客户浏览器设定“受信任网站”？

[xadave]

我们开发了一个局域网应用的网站系统。因为执行某项查询时需要在客户端通过VBA执行Excel,所以要求在登录时，即能判断并提示客户浏览器将其设为“受信任网站”。
请问高手如何实现？
另外，如何实现客户浏览器将其加入收藏文件夹或默认首页？谢谢！

[Lostinet]

操作失败的时候再提示。

[julyclyde]

可以偷偷的改注册表。但是这样是不是太缺德了？
你这样就可以偷文件了

[xadave]

各位多虑了，不存在"偷偷的改...". 我只是想给user一个友好的提示，得到确认后将本站点设为受信任网站。
下面是我们实现的部分代码，贴出来，分享之。
Sub window_onload
set shell = createobject("wscript.shell")
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201",0,"REG_DWORD"
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004",0,"REG_DWORD"
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\CurrentLevel",0,"REG_DWORD"
if not isnumeric(replace(sRangePath,".","")) then 'domain name
iRangePos=instrrev(sRangePath,".",instrrev(sRangePath,".")-1)+1
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & mid(sRangePath,iRangePos) & "\" & left(sRangePath,iRangePos-2) & "\*",2,"REG_DWORD"
else 'ip address
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range" & sRangePath & "\http",2,"REG_DWORD"
shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range" & sRangePath & "\:Range",split(location.host,":")(0)
end if
on error resume next
shell.run "iexplore " & left(window.location.href,instrrev(window.location.href,"/"))
set shell = nothing
window.close
End Sub

[julyclyde]

判断是否为信任站点的方法：创建个fso，向硬盘写文件。能写进去就是可信站点；否则不是
不要用上面那个方法改注册表。3805版的MS JAVA VM都不执行