Hi,

I need to uninstall an MSI from my code but i do not know the product code so i cannot use msiexec/x {Product Code}. Is there another way to do this? Can i search the registry for the product code? What search string should i use? Thanks!

Use a script like this to list the ProductCodes of everything installed on that system :

Option Explicit
Public installer, fullmsg, comp, prod, a, fso, pname, ploc, pid,contxt, sid, psorce, pcache, pvers

Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("prodex.txt", True)

' Connect to Windows Installer object
Set installer = CreateObject("WindowsInstaller.Installer")
a.writeline ("Products")
'on error resume next
For Each prod In installer.ProductsEx("", "", 7)
   pid = prod.ProductCode
   contxt = prod.Context
   sid=prod.usersid
   pname = prod.InstallProperty("InstalledProductName")
   psorce=prod.InstallProperty( "InstallSource")
   ploc =prod.InstallProperty( "InstallLocation")  
   pcache = prod.InstallProperty("LocalPackage") 
  pvers=prod.InstallProperty("VersionString")
   a.writeline (pid & " " & pname & " " & pvers & " installed at <" & ploc & "> from " & psorce & " Context " & contxt)
Next

---

Phil Wilson

Use a script like this to list the ProductCodes of everything installed on that system :

Option Explicit
Public installer, fullmsg, comp, prod, a, fso, pname, ploc, pid,contxt, sid, psorce, pcache, pvers

Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("prodex.txt", True)

' Connect to Windows Installer object
Set installer = CreateObject("WindowsInstaller.Installer")
a.writeline ("Products")
'on error resume next
For Each prod In installer.ProductsEx("", "", 7)
   pid = prod.ProductCode
   contxt = prod.Context
   sid=prod.usersid
   pname = prod.InstallProperty("InstalledProductName")
   psorce=prod.InstallProperty( "InstallSource")
   ploc =prod.InstallProperty( "InstallLocation")  
   pcache = prod.InstallProperty("LocalPackage") 
  pvers=prod.InstallProperty("VersionString")
   a.writeline (pid & " " & pname & " " & pvers & " installed at <" & ploc & "> from " & psorce & " Context " & contxt)
Next

---

Phil Wilson

Thanks!