系統-打印時候，出現無法調用OFFICE對象

打印時候，出現無法調用OFFICE對象

打印時出現 無法調用OFFICE對象,請確保您的機器已安裝了OFFICE 並已將本系統的站點名加入到IE的信任站點列表中。。

如果使用浏覽器設置的添加信任站點就不彈框了，但我現在需要通過vbs腳本實現添加信任站點。但是這種方式的添加的信任站點，打印時仍然出現無法調用OFFICE對象,請確保您的機器已安裝了OFFICE 並已將本系統的站點名加入到IE的信任站點列表中。求大神解決，我的添加信任站點代碼如下：
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg=GetObject("winmgmts:\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" _
& "ZoneMap\Domains\114.215.180.179"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath

strValueName = "http"
dwValue = 2
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\2"
strEntryName = "1201"
dwvalue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue

最佳回答：

是不是加的注冊表不對，跟浏覽器設置的不是相同地方。