I have some code that I use to show which systems visio is installed on.

This brings back a short list which is great, could you add install date to it?

Select
ID.Name as 'Computer Name',
ID.[User],
ARP.DisplayName as 'Application Name'
From
Inv_AddRemoveProgram ARP Join
vComputer ID On ARP._ResourceGuid = ID.Guid
Where
(ARP.DisplayName) Like 'Microsoft Office%' And
(ARP.Publisher) Like 'Microsoft%' And
(ARP.DisplayName) Not Like '%Service%' And
(ARP.DisplayName) Not Like '%Security%' And
(ARP.DisplayName) Not Like '%Validation%' And
(ARP.DisplayName) Not Like '%Component%' And
(ARP.DisplayName) Not Like '%Lab%' And
(ARP.DisplayName) Not Like '%Sound%' And
(ARP.DisplayName) Not Like '%Add-in%' And
(ARP.DisplayName) Not Like '%MUI%' And
(ARP.DisplayName) Not Like '%Project%' And
(ARP.DisplayName) Like '%Visio%' And
(ARP.DisplayName) Not Like '%Disc 2%' And
(ARP.DisplayName) Not Like '%Communicator%' And
(ARP.DisplayName) Not Like '%Viewer%' And
(ARP.DisplayName) Not Like '%Visual%' And
(ARP.DisplayName) Not Like '%Resource%' And
(ARP.DisplayName) Not Like '%Share%' And
(ARP.DisplayName) Not Like '%Publisher%' And
(ARP.DisplayName) Not Like '%Producer%' And
(ARP.DisplayName) Not Like '%proof%' And
(ARP.DisplayName) Not Like '%Powerpoint%' And
(ARP.DisplayName) Not Like '%outlook%' And
(ARP.DisplayName) Not Like '%onenote%' And
(ARP.DisplayName) Not Like '%live%' And
(ARP.DisplayName) Not Like '%infopath%' And
(ARP.DisplayName) Not Like '%frontpage%' And
(ARP.DisplayName) Not Like '%converter%' And
(ARP.DisplayName) Not Like '%access%' And
(ARP.DisplayName) Not Like '%web%' And
(ARP.DisplayName) Not Like '%excel%' And
(ARP.DisplayName) Not Like '%groove%' And
(ARP.DisplayName) Not Like '%word%' And
(ARP.DisplayName) Not Like '%interop%'

Where
(ARP.DisplayName) Like 'Microsoft Office%' And
(ARP.Publisher) Like 'Microsoft%' And
(ARP.DisplayName) Not Like '%Service%' And
(ARP.DisplayName) Not Like '%Security%' And
(ARP.DisplayName) Not Like '%Validation%' And
(ARP.DisplayName) Not Like '%Component%' And
(ARP.DisplayName) Not Like '%Lab%' And
(ARP.DisplayName) Not Like '%Sound%' And
(ARP.DisplayName) Not Like '%Add-in%' And
(ARP.DisplayName) Not Like '%MUI%' And
(ARP.DisplayName) Not Like '%Project%' And
(ARP.DisplayName) Like '%Visio%' And
(ARP.DisplayName) Not Like '%Disc 2%' And
(ARP.DisplayName) Not Like '%Communicator%' And
(ARP.DisplayName) Not Like '%Viewer%' And
(ARP.DisplayName) Not Like '%Visual%' And
(ARP.DisplayName) Not Like '%Resource%' And
(ARP.DisplayName) Not Like '%Share%' And
(ARP.DisplayName) Not Like '%Publisher%' And
(ARP.DisplayName) Not Like '%Producer%' And
(ARP.DisplayName) Not Like '%proof%' And
(ARP.DisplayName) Not Like '%Powerpoint%' And
(ARP.DisplayName) Not Like '%outlook%' And
(ARP.DisplayName) Not Like '%onenote%' And
(ARP.DisplayName) Not Like '%live%' And
(ARP.DisplayName) Not Like '%infopath%' And
(ARP.DisplayName) Not Like '%frontpage%' And
(ARP.DisplayName) Not Like '%converter%' And
(ARP.DisplayName) Not Like '%access%' And
(ARP.DisplayName) Not Like '%web%' And
(ARP.DisplayName) Not Like '%excel%' And
(ARP.DisplayName) Not Like '%groove%' And
(ARP.DisplayName) Not Like '%word%' And
(ARP.DisplayName) Not Like '%interop%'