Csdrhrt

I have a little script I run every now and then, it has never had any problems. I'm on Windows 7 and have used it here as well.
It relies on WScript.Shell.

A couple days ago I ran it and it gave back the following message:

---------------------------

wscript.exe - Bad Image

---------------------------

C:Windowssystem32wshom.ocx is either not designed to run on Windows

or it contains an error. Try installing the program again using the original

installation media or contact your system administrator or the software vendor

for support. 

---------------------------

OK   

---------------------------

Followed by the WScript error:

---------------------------

Windows Script Host

---------------------------

Script: C:toolsvideoconverter.vbs

Line:   9

Char:   1

Error:  Could not create object named "WScript.Shell".

Code:   800700C1

Source:     WScript.CreateObject



---------------------------

OK   

---------------------------

I have tried the following:

• Did a clean boot with all non-MS services turned off. Still the same error.


• When I tried to register wshom.ocx I get

[Window Title]

RegSvr32

[Content]

The module "C:Windowssystem32wshom.ocx" may not compatible with the version of Windows that you're running. Check if the module is compatible with an x86 (32-bit) or x64 (64-bit) version of regsvr32.exe.

[OK]

My version of windows is x86 - how do I see what version Wshom.ocx is compatible with?Actually though how can it be incompatible given that it was compatible at some recent time in the past?

Edited: adding in the script:

infolder = "c:toolsmusic_input"

outfolder = "c:toolsmusic_output"



Dim objFSO

Dim ofolder

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

Set objFSO = CreateObject("scripting.filesystemobject")

Dim objCurrentFolder

Set objCurrentFolder =  objFSO.getfolder(infolder)

Dim tempval   

Dim nFile

For Each file In objCurrentFolder.Files



nFile = outfolder & "" &  file.Name & ".mp3"



If objFSO.FileExists(nFile) Then



Else

tempval = "c:toolsffmpegbinffmpeg.exe -i " &  chr(34)  & file & chr(34) & " " &    

chr(34) &  nFile & chr(34)



WshShell.Run tempval

WScript.Sleep 15000

End If                

Next

Bryan, what happens if you run:

    Dim WshShell

    Set WshShell = WScript.CreateObject("WScript.Shell")



    If Err <> 0 Then

    Wscript.Echo Err.Number & " -- " &  Err.Description

    Err.Clear

    End If

Thanks.