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

[adminyao]

在这个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")

老是提示形态不符合的错误，请问为什幺？高手帮帮忙，先谢谢了。

[adminyao]

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

[qjzrd]

帮你顶呀

[zlt982001]

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