'/*========================================================================= 
' * Intro 主要是解決在使用WebBrowser打印時，得先設置IE安全性的問題 
' * FileName 添加網站到安全站點.設置安全站點打開ActiveX時提示.去頁眉頁腳.vbs 
' * Author yongfa365 
' * Version v1.0 
' * Email yongfa365[at]qq.com 
' * MadeTime 2009-06-18 23:12:55 
' * LastModify 2009-06-18 23:12:55 
' *==========================================================================*/ 

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

'添加網站到安全站點 
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 

'設置安全站點打開ActiveX時提示 
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" 

'取消頁眉頁腳 
strKeyPath = "Software/Microsoft/Internet Explorer/PageSetup/" 
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "header", "" 
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "footer", "" 

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