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.softwareName not like '%3D%' 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.Software not like '%3D%' And subquery1.Publisher Like '%Microsoft%') and tblState.Statename = 'Active'