installer problem

[JASON MCLEAN]

Any Installer garus out there? The following code works in MS Win 2K Pro but
fails in XP Pro, any ideas?

Public Function GetPath(strFolderName As String) As String
Dim objInstaller As WindowsInstaller.Installer
Dim objSession As WindowsInstaller.Session
Dim strGUID As String
Set objInstaller = _
CreateObject("WindowsInstaller.Installer")
objInstaller.UILevel = msiUILevelNone
strGUID = objInstaller.Products(0) ' *** Fails here ***
Set objSession = _
objInstaller.OpenProduct(strGUID)
GetPath = objSession.Property(strFolderName)
End Function


Thanks,


--
JASON MCLEAN
2245 TIFFANY GLENN CT.
BEDFORD, TEXAS 76021
(e-mail address removed)
(e-mail address removed)