---

Hej gruppe,

Jeg har et vb-program (faktisk en simpel front-end til en sql
database), som bruger en dll til at vise billeder.

Fra den ene dag til den anden oplyser vb-programmet at den nævnte dll
(imagxpr3.dll) ikke er registreret.

Det kan jo være, at den er beskadiget, så jeg anskaffer en ny og
prøver at unregister og derefter at register. Desværre - resvr32 kan
ikke finde dll'en og jeg kan se, at den fysisk ligger i system32
mappen.....

Er der nogen, som har et bud på, hvad der kan være galt her ?

info: winxp pro sp3 - alle opdateringer til xp, antivirus - firewall
slået til.

mvh
Flemming

---

<flemming@nowhere.com> skrev i en meddelelse news:l48ro49irmdn0uctbg3i3fqa3lonjo2raj@4ax.com...
> Hej gruppe,
>
> Jeg har et vb-program (faktisk en simpel front-end til en sql
> database), som bruger en dll til at vise billeder.
>
> Fra den ene dag til den anden oplyser vb-programmet at den nævnte dll
> (imagxpr3.dll) ikke er registreret.
>
> Det kan jo være, at den er beskadiget, så jeg anskaffer en ny og
> prøver at unregister og derefter at register. Desværre - resvr32 kan
> ikke finde dll'en og jeg kan se, at den fysisk ligger i system32
> mappen.....
>
> Er der nogen, som har et bud på, hvad der kan være galt her ?
>
> info: winxp pro sp3 - alle opdateringer til xp, antivirus - firewall
> slået til.
>
> mvh
> Flemming

Lav dig en RegFiles.vbs ud af nedenstående kode.

' ************************************************************
' * Script Name: RegFiles.vbs
' * Description: This Script uses Regsvr32 to register
' * dll and ocx files as a quick fix
' * Author: Neil Calverley
' * Company: Promethean Technologies Group Ltd.
' * Created: 11/11/03
' * Updated: 22/09/04
' ************************************************************


' *** Script initialization statements go here ***

Option Explicit

On Error Resume Next

Const SysFolder = 1

Dim wshObject, fsoObject, vResponse, strSysFolder

Set wshObject = WScript.CreateObject("Wscript.Shell")
Set fsoObject = WScript.CreateObject("Scripting.FileSystemObject")
Set strSysFolder = fsoObject.GetSpecialFolder(SysFolder)

' ********** Main processing section **********

Display_Msg() ' Ask User Dialog Box

' ***** Subroutines & Functions go here *****

Function Display_Msg() ' Function to display Ask User Dialog Box

vResponse = MsgBox ("This will Register all of the Promethean" & vbCrLf _
& ".dll and .ocx files needed on the System." & vbCrLf & vbCrLf _
& "Click 'OK' to continue or 'Cancel to Exit", 289, "Register Files")
if vResponse = 1 then ' User clicked OK

'SysFiles
' wshObject.Run strSysFolder & "\regsvr32 atl.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 comcat.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 comctl32.ocx /s"
' wshObject.Run strSysFolder & "\regsvr32 comdlg32.ocx /s"
' wshObject.Run strSysFolder & "\regsvr32 mfc40.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 mfc42.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 mscomctl.ocx /s"
' wshObject.Run strSysFolder & "\regsvr32 msvbvm60.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 olepro32.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 oleaut32.dll /s"
' wshObject.Run strSysFolder & "\regsvr32 tabctl32.ocx /s"
' wshObject.Run strSysFolder & "\regsvr32 ven2232.olb /s"
'Old 3rd Party
wshObject.Run strSysFolder & "\regsvr32 atx45.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 cgrx.dll /s"
wshObject.Run strSysFolder & "\regsvr32 duzactx.dll /s"
wshObject.Run strSysFolder & "\regsvr32 dzactx.dll /s"
wshObject.Run strSysFolder & "\regsvr32 fximg432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 fxlbl432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 fxmtx432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 fxsnd432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 fxtmr432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 fxvid432.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 imagxpr3.dll /s"
wshObject.Run strSysFolder & "\regsvr32 threed32.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 vsflex7L.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 vsview2.ocx /s"

wshObject.Run strSysFolder & "\regsvr32 dwcbk32.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dweasy32.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwsbc32.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwshk32.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwspy32.dll /s"
'New 3rd Party
wshObject.Run strSysFolder & "\regsvr32 dwCmnDg6.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dweasy36.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwsbc36.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwshk36.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 dwspy36.dll /s"
wshObject.Run strSysFolder & "\regsvr32 imagxpr5.dll /s"
wshObject.Run strSysFolder & "\regsvr32 wPDF_X01.ocx /s"
wshObject.Run strSysFolder & "\regsvr32 XceedFtp.dll /s"
wshObject.Run strSysFolder & "\regsvr32 XTLite.dll /s"
wshObject.Run strSysFolder & "\regsvr32 scrrun.dll /s"
wshObject.Run strSysFolder & "\regsvr32 FillLibWin.dll /s"
wshObject.Run strSysFolder & "\regsvr32 Macromed\Flash\Flash.ocx /s"

MsgBox("Completed Registering Files")
else
' User has clicked Cancel
end if

Set wshObject = Nothing
Set fsoObject = Nothing
Set strSysFolder = Nothing

WScript.Quit

End Function