如何使用vbs實(shí)現(xiàn)添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁(yè)眉頁(yè)腳的vbs代碼

這篇文章將為大家詳細(xì)講解有關(guān)如何使用vbs實(shí)現(xiàn)添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁(yè)眉頁(yè)腳的vbs代碼，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

代碼如下:

'/*=========================================================================
' * Intro 主要是解決在使用WebBrowser打印時(shí)，得先設(shè)置IE安全性的問(wèn)題
' * FileName 添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁(yè)眉頁(yè)腳.vbs
' *==========================================================================*/

Const HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

'添加網(wǎng)站到安全站點(diǎn)
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\yongfa365.com"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "http", 2

'設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "CurrentLevel", "00000000"
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "1201", "00000001"

'取消頁(yè)眉頁(yè)腳
strKeyPath = "Software\Microsoft\Internet Explorer\PageSetup\"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "header", ""
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "footer", ""

msg = "IE安全設(shè)置完成"&vbCrLf&vbCrLf
msg = msg & "如果還不能正常打印，你需要關(guān)閉所有打開的IE瀏覽器窗口，然后再登錄OA進(jìn)行打印"&vbCrLf&vbCrLf
msg = msg & "如果還是有問(wèn)題，您可以聯(lián)系技術(shù)組:柳永法 "
MsgBox msg, vbInformation, "溫馨提醒！"

關(guān)于“如何使用vbs實(shí)現(xiàn)添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁(yè)眉頁(yè)腳的vbs代碼”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。