Hello Experts

I have a dotVBS file - the first few lines are shown below.

*********************************************************************
If WScript.Arguments.Count < 2 Then
p1Text = ""
p2Text = ""
else
p1Text = WScript.Arguments.Item(0)
p2Text = WScript.Arguments.Item(1)
end if

Dim shell
Set shell = CreateObject("WScript.Shell")

if UCase(p1text) = "LOCAL" then
dataBaseRoot = "V:\solo\"
else
dataBaseRoot = "c:\inetpub\wwwroot\solo\"
end if


if UCase(p2text) = "SHOW" then
Wscript.Echo ("Job Started")
end if





DBConGC1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
dataBaseRoot & "data\soloOnline.mdb"
''Response.Write DBConGC1
''Response.End
set ConGC1 = CreateObject("ADODB.Connection")
ConGC1.Open DBConGC1


*********************************************************************


It has worked every day successfully for over two years.


Now it is giving an error

Line: 10
Char: 1
Error: 0x8007013D
Code: 8007013D
Source: (null)

Line 10 is:-
Set shell = CreateObject("WScript.Shell")


The dotVBS file has not changed

I cannot find anything that heps on the Microsoft Site.


Help or advice please

Thanks
Pete (Northolt UK)

"p byers" <pb@xxxxxx-ltd.co.uk> wrote in message
news:4845492B.EC60EBB0@xxxxxx-ltd.co.uk...

> Hello Experts
>
> I have a dotVBS file - the first few lines are shown below.
>
> *********************************************************************
> If WScript.Arguments.Count < 2 Then
> p1Text = ""
> p2Text = ""
> else
> p1Text = WScript.Arguments.Item(0)
> p2Text = WScript.Arguments.Item(1)
> end if
>
> Dim shell
> Set shell = CreateObject("WScript.Shell")
>
> if UCase(p1text) = "LOCAL" then
> dataBaseRoot = "V:\solo\"
> else
> dataBaseRoot = "c:\inetpub\wwwroot\solo\"
> end if
>
>
> if UCase(p2text) = "SHOW" then
> Wscript.Echo ("Job Started")
> end if
>
>
>
> DBConGC1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
> dataBaseRoot & "data\soloOnline.mdb"
> ''Response.Write DBConGC1
> ''Response.End
> set ConGC1 = CreateObject("ADODB.Connection")
> ConGC1.Open DBConGC1
>
>
> *********************************************************************
>
>
> It has worked every day successfully for over two years.
>
>
> Now it is giving an error
>
> Line: 10
> Char: 1
> Error: 0x8007013D
> Code: 8007013D
> Source: (null)
>
> Line 10 is:-
> Set shell = CreateObject("WScript.Shell")
>
>
> The dotVBS file has not changed
>
> I cannot find anything that heps on the Microsoft Site.
>
>
> Help or advice please
>
> Thanks
> Pete (Northolt UK)

Perhpas your source file has turned into a Unicode file?
I would use notepad.exe to create this little program and
see what happens when you run it. If it works then you
can build it up until everything works.
Set oShell = CreateObject("WScript.Shell")
WScript.Echo oShell.CurrentDirectory

p byers wrote:

> Now it is giving an error
>
> Line: 10
> Char: 1
> Error: 0x8007013D
> Code: 8007013D
> Source: (null)
>
> Line 10 is:-
> Set shell = CreateObject("WScript.Shell")
>
>
> The dotVBS file has not changed
>
> I cannot find anything that heps on the Microsoft Site.
>
>

Make sure the scrrun.dll is registered on the machine?
What OS? Can you roll back recent windows updates?

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Hello Pete,

Few questions to understand the context
1. What kind of session do you have ? Admin or guest?
2. How do you start the script ? double click or cmd prompt ?
3. Did you install an update or something since you have this error message
?

Christophe Mathon

Thank you to all three experts that replied.
An answer to some of the questions that you asked.

OS - XP Pro - No Connections to the Internet - no updates done.
Session = Admin
Started from a "Scheduled dotBAT file" once a day in the quiet hours - no other
users.

Date Modified on the dotVBS file is 26 months ago.

Will try slowly building up from small two line program.

Any idea what the error Code means ?????

Pete (Northolt UK)

Christophe Mathon wrote:

> Hello Pete,
>
> Few questions to understand the context
> 1. What kind of session do you have ? Admin or guest?
> 2. How do you start the script ? double click or cmd prompt ?
> 3. Did you install an update or something since you have this error message
> ?
>
> Christophe Mathon