下面的脚本将我的站点添加到我的用户的受信任站点区域,以便能够运行activeX控件 .
它在我的localhost上工作得很好,并且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>
1 回答
你不能在普通网页上做任何类似的事情 . 如果随机网页可能会影响您的注册表,那将是一场巨大的安全灾难 . 可信站点区域的重点是用户必须明确声明他们信任该站点足以将其放在那里 .
因此,在可信站点区域中获取站点的唯一合理方法是要求用户手动添加它 . 但是,这通常是不合适的,只是运行ActiveX控件是不必要的 . 你真的想用这个ActiveX控件做什么?