Re: Windows Installer error on bootup
From: Torgeir Bakken \(MVP\) (Torgeir.Bakken-spam_at_hydro.com)
Date: 12/13/04
- Next message: Kenny S: "LG DVD Recorder - allergic to sony DVD player"
- Previous message: Stan Kay: "Wierd msconfig operation!!!!"
- In reply to: Deb: "Re: Windows Installer error on bootup"
- Next in thread: Deb: "Re: Windows Installer error on bootup"
- Reply: Deb: "Re: Windows Installer error on bootup"
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 13 Dec 2004 19:39:48 +0100
Deb wrote:
> Well, I did my best to follow your instructions but they may be a bit too
> technical in nature for me! I ran eventvwr.msc and viewed the installer log.
> There are 3401 entries in there. I look at some of the more recent ones,
> i.e. generated after bootup this morning and discovered this entry: Detection
> of product (then what looks like a registry key) feature 'Complete' failed
> during request for component (then another registry key).
>
> I did a search in the registry using regedit and found the first key (which
> refers to MSInstaller) but the second key was not found.
Hi
Yes, the "Detection of product ... " is the correct entry, but the ID
string following right after "Detection of product" doesn't really
refer to a registry key (even if you found it as a key in registry),
it is the ID that represents a program that have been installed by
Windows Installer.
Below is a VBScript that will create a list that maps product ID's to
the actual program name it represents.
Put it in a text file and save it as e.g. WI_Products.vbs, run it by
double clicking on it. The result will be presented in Notepad.
'--------------------8<----------------------
Const OverwriteIfExist = -1
Const OpenAsASCII = 0
Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
sFile = oShell.ExpandEnvironmentStrings("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)
On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False
'--------------------8<----------------------
-- torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway Administration scripting examples and an ONLINE version of the 1328 page Scripting Guide: http://www.microsoft.com/technet/scriptcenter/default.mspx
- Next message: Kenny S: "LG DVD Recorder - allergic to sony DVD player"
- Previous message: Stan Kay: "Wierd msconfig operation!!!!"
- In reply to: Deb: "Re: Windows Installer error on bootup"
- Next in thread: Deb: "Re: Windows Installer error on bootup"
- Reply: Deb: "Re: Windows Installer error on bootup"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|