下面的脚本将我的网站添加到我的用户的受信任的站点区域,以便能够运行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>
答案 0 :(得分:1)
您无法在普通网页上执行此类操作。如果随机网页可能会影响您的注册表,那将是一场巨大的安全灾难。可信站点区域的重点是用户必须明确声明他们信任该站点足以将其放在那里。
因此,在可信站点区域中获取站点的唯一合理方法是要求用户手动添加站点。但是,这通常是不合适的,只是运行ActiveX控件是不必要的。你在实际尝试使用这个ActiveX控件做什么?