Name = product.InstallProperty("ProductName") On Error Resume Next ' we ignore all errorsįor Each product In installer.ProductsEx("", "", 7) ![]() Set installer = CreateObject("WindowsInstaller.Installer") Set output = fso.CreateTextFile("msiinfo.csv", True, True) Set fso = CreateObject("Scripting.FileSystemObject") '# Retrieve all ProductCodes (with ProductName and ProductVersion)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |