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