1
下面的脚本将我的网站添加到我的用户的可信站点区域,以便能够运行一个activeX控件。以编程方式将网站添加到Internet Explorer的可信站点区域?
它在我的本地主机上完美工作,并且URL被添加到受信任的站点区域。但是,当将包含脚本的网页复制到在线制作网站时,它不会执行任何操作并显示最后一条消息。我在这里做错了什么?
有人可以帮助我或建议另一种方式来实现相同的任务吗?
感谢
<script type="text/vbscript">
On Error Resume Next
Sub addkey
Dim DomainArray, strComputer, strHTTP, strHTTPS
Dim dwordZone, regPath, objReg, counter, subkeyPath, icounter
Dim subkeyValue
Const HKEY_CURRENT_USER = &H80000001
DomainArray = "mydomain.ca"
strComputer = "."
strHTTP = "http"
strHTTPS = "https"
dwordZone = "2"
regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" &_
"\ZoneMap\Domains\"
'Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\default:StdRegProv")
subkeyPath = regPath & DomainArray
objReg.CreateKey HKEY_CURRENT_USER,subkeyPath
regPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" &_
"\ZoneMap\Domains\mydomain.ca\"
subkeyPath = regPath & "www"
objReg.CreateKey HKEY_CURRENT_USER,subkeyPath
objReg.SetDWORDValue HKEY_CURRENT_USER,subkeyPath,strHTTPS,dwordZone
MsgBox("https://www.mydomain.ca has been added to the Trusted Sites Zone.")
objReg.DeleteValue HKEY_CURRENT_USER, subkeyPath, strHTTPEnd Sub
</script>
我们有一个很久以前开发的录制/回放软件,我们在英语学习网站上将它作为activeX运行。因此,为了让用户在每次尝试使用该软件时都收到浏览器提示,我们要求他们将该网站添加到受信任的站点区域,并更改该区域的设置以允许下载和运行ActiveX。 – user1508840 2012-07-08 18:41:09
您不需要进入受信任的站点区域即可下载或运行ActiveX控件。在受信任的站点区域之外,您将在第一次下载时获得黄色的信息栏,但点击该栏并且应该可以安装控件,只要它是正确的代码签名即可。之后,通常应该在没有进一步提示的情况下运行,只要它被标记为可安全包含在网页上即可。 – bobince 2012-07-09 12:45:15