用友EAI二次开发

Question

//把数据导入U8
Public Function putdata() As String
    Dim obj As Object
    Dim dom As New DOMDocument
    Dim sxml As String
    If dom.Load(App.Path & "\ATP规则.xml") = False Then
        MsgBox "装载模板出错"
        Exit Function
    End If
    Set obj = CreateObject("U8Distribute.iDistribute")
    sxml = dom.xml
    putdata = obj.Process(sxml)
    Set dom = Nothing
    Exit Function
End Function
程序运行的结果为：item  key="" succeed="1"  dsc="sUid=001 cAccID=(default)@001 sServer=202.38.246.182不能登录到应用服务器，请检查服务器配置或查看服务器日志.XML文件的头文件信息是：ufinterface sender="001" receiver="u8" roottag="ATPRules" docid="574735879" proc="Add" codeexchanged="N" exportneedexch="N" paginate="0" display="ATP规则" family="生产制造" timestamp="0x000000000027B6F0此xml文件在u870的EAI工具上是可以导入到该软件中
所用的用友管理软件是8.70版，安装的是单机版
EAI的默认登陆设置没有错误,windows防火墙和杀毒软件均已关闭。