Vbscript 使用ActiveX时如何在vb脚本中读取二进制文件

当使用ActiveX时，我遇到了无法使用

ado.stream

的错误

我尝试搜索，但除了用vbscript读取二进制文件的

ado.stream

之外，我找不到任何东西

dim FileName
dim resstring
Function ReadBinaryFile(FileName)
  Const adTypeBinary = 1


  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")


  BinaryStream.Type = adTypeBinary


  BinaryStream.Open


  BinaryStream.LoadFromFile FileName


  ReadBinaryFile = BinaryStream.Read
End Function

然后像下面这样叫

---

resstring=ReadBinaryFile（“C:\Documents and Settings\mahesh\Desktop\img.iso”）

该函数在这里工作正常。确切的错误是什么？可能只是一些ActiveX组件没有在计算机上正确注册（我在这里或那里遇到过一些这样的错误）。您可以在其他计算机上进行测试。网页错误详细信息消息：ActiveX组件无法创建对象：“ADODB.Stream”行：62