List Microsoft Visio Installs and Their End of Life Dates
This report provides an overview of all the Visio installations in your network along with their end-of-life date. If you have a Microsoft Visio version that is EOL, make sure you update it as soon as possible. You can read more in our Microsoft Visio end-of-life blog post.
Microsoft Visio allows you to create visual representations of your data using diagrams, flowcharts, organizational charts, and more. It provides you with templates to quickly and easily visualize your information, but you can of course customize everything to your preferences. Once a version of Visio goes end-of-life, it will no longer receive any updates, security fixes, or support. Over time this will start affecting performance as well as cause security risks. Regularly audit your MS Visio installations to make sure you are still fully supported.
Microsoft Visio EOL Lansweeper Classic Query
Select Distinct Top 1000000 tblAssets.AssetID,
tblAssets.AssetName,
tblAssets.Domain,
tsysAssetTypes.AssetTypename As AssetType,
tblAssets.Username,
tblAssets.Userdomain,
tsysAssetTypes.AssetTypeIcon10 As icon,
tblAssets.IPAddress,
tsysIPLocations.IPLocation,
tblAssetCustom.Manufacturer,
tblAssetCustom.Model,
tsysOS.OSname As OS,
tblAssets.Version As OSVersion,
tblAssets.SP,
subquery1.Software,
subquery1.Version,
subquery1.Publisher,
subquery1.EOLDate,
Case
When IsDate(subquery1.EOLDate) = 1 and GetDate() < subquery1.EOLDate Then Cast(DateDiff(DAY, GetDate(),
subquery1.EOLDate) As NVARCHAR) + ' days remaining'
End As [Days Remaining],
tblAssets.Lastseen,
tblAssets.Lasttried,
Case
When subquery1.EOLDate = 'EOL' then '#ffadad'
When IsDate(subquery1.EOLDate) = 1 and GetDate() > subquery1.EOLDate Then '#ffadad'
When IsDate(subquery1.EOLDate) = 1 and GetDate() >= DateAdd(month, -1, subquery1.EOLDate) Then '#ffd152'
Else '#d4f4be'
End As backgroundcolor
From tblAssets
Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID
Inner Join tsysAssetTypes On tsysAssetTypes.AssetType = tblAssets.Assettype
Inner Join tsysIPLocations On tsysIPLocations.LocationID =
tblAssets.LocationID
Inner Join tblState On tblState.State = tblAssetCustom.State
Left Join tsysOS On tsysOS.OScode = tblAssets.OScode
Left Join (Select tblSoftwareUni.softwareName As Software,
tblsoftware.softwareVersion As Version,
tblSoftwareUni.SoftwarePublisher As Publisher,
Case
When Cast(ParseName(tblsoftware.softwareVersion, 4) As int) <= 14 Then
'EOL'
When tblsoftware.softwareVersion Like '15.%' Then '2023-04-11'
When tblsoftware.softwareVersion Like '16.%'
and tblSoftwareUni.softwareName like '%2016%'
Then '2025-10-14'
When tblsoftware.softwareVersion Like '16.%'
and tblSoftwareUni.softwareName like '%2019%'
Then '2025-10-14'
When tblsoftware.softwareVersion Like '16.%'
and tblSoftwareUni.softwareName like '%2021%'
Then '2026-10-13'
End As EOLDate,
tblsoftware.AssetID
From tblsoftware
Inner Join tblSoftwareUni On tblSoftwareUni.SoftID = tblsoftware.softID
Where
(tblSoftwareUni.softwareName Like '%Microsoft Visio%'
and tblSoftwareUni.softwareName not like '%compatibility%'
And tblSoftwareUni.SoftwarePublisher Like '%Microsoft%')) As subquery1 On
subquery1.AssetID = tblAssets.AssetID
Where (subquery1.Software Like '%Microsoft Visio%' and subquery1.Software not Like '%compatibility%'
And subquery1.Publisher Like '%Microsoft%')
and tblState.Statename = 'Active'
