Windows Installer Cleanup Utility Error

[Kerjifire]

When I try installing Windows Installer Cleanup Utility it pops up with the picture attached. help?

[recovering disk space - old attachment deleted by admin]

[macdad-]

The DLL for this is not registered with windows:

First off, Reinstall the Windows Script Engine:
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=C717D943-7E4B-4622-86EB-95A22B832CAA

Then:

Start -> Run
Type: regsvr32 scrrun.dll
Hit Enter.

Tell me if anything comes up, if not, then try reinstalling Win Installer.

[Kerjifire]

'Windows Script 5.6 for Windows XP and Windows 2000
Brief Description
THIS UPDATE IS BEING RE-PACKAGED AND WILL BE MADE AVAILABLE SHORTLY.'

from your link.

and:



[recovering disk space - old attachment deleted by admin]

[macdad-]

Well atleast the DLL is there, the link was for a reinstall in case that the DLL was missing.

Try reinstalling Win Installer Cleanup now.

[BC_Programmer]

startmsi.vbs:

Code: [Select]

Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
bRemoveMSECACHE = False

sProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
If sProgramFiles = "%ProgramFiles%" Then sProgramFiles = WshShell.RegRead("HKLM\Software\Microsoft\Windows CurrentVersion\ProgramFilesDir")

sMSECACHEPath = sProgramFiles & "\MSECACHE"
If Not fso.FolderExists(sMSECACHEPath) Then
    fso.CreateFolder(sMSECACHEPath)
    bRemoveMSECACHE = True
End If

sTargetPath = sMSECACHEPath & "\WICU3"
If Not fso.FolderExists(sTargetPath) Then fso.CreateFolder(sTargetPath)

fso.CopyFile fso.GetParentFolderName(WScript.ScriptFullName) & "\M*.*", sTargetPath
fso.CopyFile fso.GetParentFolderName(WScript.ScriptFullName) & "\r*.*", sTargetPath

sCmd = "msiexec.exe /i """ & sTargetPath & "\msicuu.msi"""
iRC = WshShell.Run(sCmd, 4, True)

If iRC <> 0 And iRC <> 3010 Then
   fso.DeleteFolder sTargetPath, True
   If bRemoveMSECACHE Then fso.DeleteFolder sMSECACHEPath, True
End If


line 5, where the error occurs:

Code: [Select]

If sProgramFiles = "%ProgramFiles%" Then sProgramFiles = WshShell.RegRead("HKLM\Software\Microsoft\Windows CurrentVersion\ProgramFilesDir")

which means that the WshShell.RegRead call is causing the error. Since earlier functions used to create and use the FSO (which resides in scrrun.dll) succeeded, the problem s probably not with scrrun.dll or it's registration- and is unique to this line.

WshShell is not in scrrun.dll, but rather an object in wshom.dll, the Windows Script Host Object Model.

So- try:

Code: [Select]

regsvr32 "%systemroot%\system32\wshom.dll"

then see if you can run the utility.

[Kerjifire]

this happened:

[recovering disk space - old attachment deleted by admin]

[patio]

Go to Start/Run and type in sfc /scannow and hit Enter...
Have your XP CD handy.
Let it run to completion...remove the CD and re-boot.

[BC_Programmer]

oops, my mistake. it's wshom.ocx, not dll.

[kristain]

Click Start, Run and type:
regsvr32 scrrun.dll
Press Enter

[Kerjifire]

Click Start, Run and type:
regsvr32 scrrun.dll
Press Enter

this was already tried above =.=

[Kerjifire]

ty BC_Programmer  it works now

[BC_Programmer]

ty BC_Programmer  it works now

Excellent!