Great idea Ramesh .... didn't know I could do this ... below is the content
of StartMSI.vbs:
So I guess that it start bugging at line one which is calling for
"Scripting.FileSystemObject"
I will look on my side ... would appreciate any help to find the good dll
missing/defect.
Regards
Stef ; )
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
--
Stef ; )
Ramesh said:
Hi Stef,
Click Start, Run and type:
%temp%\IXP0000.TMP\
If the file StartMsi.vbs is present, open it using Notepad. Copy the
contents and include them in your reply.
--
Regards,
Ramesh Srinivasan, Microsoft MVP [Windows XP Shell/User]
Windows® XP Troubleshooting
http://www.winhelponline.com
When trying to install the MS Clean-up utility as described in Article ID :
290301
I receive the following message (below) . Anyone has an idea on how to fix
this problem?
Stef ; )
Windows Script Host
Script: C:\DCOUME 1\Stef\Locals 1\Temp\IXP0000.TMP\StartMsi.vbs
Line: 1
Char: 1
Error: A dynamic link library (DLL) initialization routine failed
Code: 8007045A
Source: (null)