Prev: Help with vbscript errors
Next: Randomising a text file
From: a_sakuma on 8 Feb 2005 22:03
When running the script from command prompt:
c:\wscript MyScript.vbs under windows 2000 professional, I got the error
below.

Microsoft VBScript runtime error '800a0030'
Error in loading DLL: 'MyDocs'

But when running under Windows XP Professional, it works fine.

WSH 5.6 on both systems. (on w2k the build is 8825 and on winxp is 8820)

The script is a simple:

Dim app
Dim doc
Dim work

Set app = CreateObject("MyDLL.MyApplication")
Set doc = app.MyDocs("MyDocName")
Set work = doc.Work

Set work = nothing
Set doc = nothing
Set app = nothing

Any help is welcome

From: "Michael Harris (MVP)" <mikhar at mvps dot on 8 Feb 2005 22:29
a_sakuma wrote:
> When running the script from command prompt:
> c:\wscript MyScript.vbs under windows 2000 professional, I got the
> error below.
>
> Microsoft VBScript runtime error '800a0030'
> Error in loading DLL: 'MyDocs'


Om the W2K box, from a command prompt opened on the directory containing the
dll, run:

regsvr32.exe yourdllname.dll

Does the dll register correctly as a COM component?


>
> But when running under Windows XP Professional, it works fine.
>
> WSH 5.6 on both systems. (on w2k the build is 8825 and on winxp is
> 8820)
>
> The script is a simple:
>
> Dim app
> Dim doc
> Dim work
>
> Set app = CreateObject("MyDLL.MyApplication")
> Set doc = app.MyDocs("MyDocName")
> Set work = doc.Work
>
> Set work = nothing
> Set doc = nothing
> Set app = nothing
>
> Any help is welcome

--
Michael Harris
Microsoft MVP Scripting


 | 
Pages: 1
Prev: Help with vbscript errors
Next: Randomising a text file