PNA5245A类型不匹配错误

我们有使用PNA5245A设备的问题。
PC软件codde在VB6 PC中，PNA用户名/密码相同。
PNA dcomcnfg已根据dcom手册完成。
完成PC PNAProxy注册并在PNAproxy安装期间输入PNA计算机名称。
FIreWall为OFF，“文件共享”为OFF VB6代码如下;
Option Explicit Public app As IApplication Public meas As IMeasurement Public chan作为IChannel公共measData作为IArrayTransfer Private Sub Command1_Click（）'连接到机器SLTSU044上的PNA应用程序设置app = CreateObject（“AgilentPNA835x.Application”，“192.168.0.10”）。
.... .... End Sub当使用WinXP Pro SP1将PC连接到PNA5230A设备时，此代码非常有效。
VB6事件程序在PC或PNA上都不起作用。
它们给出“类型不匹配”错误。
我们的目标是与PNA5245A合作。
我们的主要麻烦是PNA5245A设备。
它有WinXP SP3，它有几乎相同的PNA5230A的dcom配置当我们尝试运行VB6代码“Set app = CreateObject（”AgilentPNA835x.Application“，”192.168.0.10“）”行给出“权限被拒绝70”错误我们
无法进展，我们总是得到同样的错误。
我们的配置和软件有什么问题???
我们需要你的帮助..问候，



     以下为原文

  We have problem to work with PNA5245A device.

PC software codde is in VB6
PC and PNA username/passwords are same.
PNA dcomcnfg has been done according to dcom manual.
PC PNAProxy registration is done and PNA computer name has been entered during PNAproxy setup.
FIreWall is OFF, "file sharing" is OFF
VB6 code is as follows;

Option Explicit
Public app As IApplication
Public meas As IMeasurement
Public chan As IChannel
Public measData As IArrayTransfer
Private Sub Command1_Click()
'Connect to the PNA application on machine SLTSU044
Set app = CreateObject("AgilentPNA835x.Application", "192.168.0.10")
.....
....
End Sub

This code works very well when PC is connected to PNA5230A device with WinXP Pro SP1.
VB6 Events programs do not work either on PC or on PNA. They give "Type Mismatch" error. Our goal is to work with PNA5245A.

Our main trouble is PNA5245A device. It has WinXP SP3 and it has almost the same dcom configuration of PNA5230A
When we try to run the VB6 code "Set app = CreateObject("AgilentPNA835x.Application", "192.168.0.10")" line gives "Permission Denied 70" error
We could not progress and we always get the same error.
What is wrong with our configuration and software???
We need your help..
Regards,