关于ActiveX Dll在VBSCRIPT里面执行出现形态不符合的错误？急。。。

Question

在这个DLL文件中，有引用    C:\WINDOWS\system32\msxml.dll    Microsoft XML, version 2.0 的DLL文件。objxmlDOM.dll里面有这幺一个函数：Public Function blnChkXmlFile(loXmlDoc As DOMDocument, ByVal lstrFileName As String) As Boolean
    blnChkXmlFile = False
    
    loXmlDoc.async = False
    loXmlDoc.validateOnParse = False
    If Dir(lstrFileName, vbNormal) <> "" Then
        loXmlDoc.Load (lstrFileName)
        If loXmlDoc.readyState = 4 And loXmlDoc.parseError = 0 Then
            blnChkXmlFile = True
        End If
    End If
End Function编译成DLL文件后，copy到C:\WINDOWS\system32目录下面注册。注册是成功的。我在VBSCRIPT里面调用它。
SET xmlcls =CreateObject("objxmlDOM.XmlDOM")Set xmldoc =CreateObject("MSXML.DOMDocument")                         

Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")老是提示形态不符合的错误，请问为什幺？高手帮帮忙，先谢谢了。

Answer 1

出错信息是在Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")这一行

Answer 2

1.确保两边 引用的 msxml.dll    版本一致
2.显式定义 DOMDocument对象
Dim xmldoc As MSXML.DOMDocument
Set xmldoc =CreateObject("MSXML.DOMDocument")  
Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")