打印时出现 无法调用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