Returns a list of features for all the software installed on a computer using Windows Installer.
This script was tested using Kixtart 2001 (412) for Microsoft Windows, available from Kixtart.org.
$strComputer = "." $objWMIService = GetObject("winmgmts:\\"+ $strComputer + "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select * from Win32_SoftwareFeature") For Each $objItem in $colItems ? "Accesses:" + $objItem.Accesses ? "Attributes:" + $objItem.Attributes ? "Caption:" + $objItem.Caption ? "Description:" + $objItem.Description ? "Identifying Number:" + $objItem.IdentifyingNumber ? "Install Date:" + $objItem.InstallDate ? "Install State:" + $objItem.InstallState ? "Last Use:" + $objItem.LastUse ? "Name:" + $objItem.Name ? "Product Name:" + $objItem.ProductName ? "Status:" + $objItem.Status ? "Vendor:" + $objItem.Vendor ? "Version:" + $objItem.Version Next
$strComputer = "." $objWMIService = GetObject("winmgmts:\\"+ $strComputer + "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select * from Win32_SoftwareFeature") For Each $objItem in $colItems ? "Accesses:" + $objItem.Accesses ? "Attributes:" + $objItem.Attributes ? "Caption:" + $objItem.Caption ? "Description:" + $objItem.Description ? "Identifying Number:" + $objItem.IdentifyingNumber ? "Install Date:" + $objItem.InstallDate ? "Install State:" + $objItem.InstallState ? "Last Use:" + $objItem.LastUse ? "Name:" + $objItem.Name ? "Product Name:" + $objItem.ProductName ? "Status:" + $objItem.Status ? "Vendor:" + $objItem.Vendor ? "Version:" + $objItem.Version Next