local loProducts, loProduct, loWMI loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator') loWMI = loLocator.ConnectServer() loProducts = loWMI.ExecQuery("SELECT * FROM Win32_Product") For Each loProduct in loProducts with loProduct if Isnull(.Name) loop endif ? .Name, .Caption, .Description, .IdentifyingNumber, .InstallDate, .InstallDate2, .InstallLocation, .SKUNumber, .Vendor, .Version endwith endfor