Microsoft July 2024 Patch Tuesday Audit
Patch Tuesday Security Vulnerability- This is a static report and therefore not updated automatically, which means that out-of-band updates are not included. However, you can adapt the query to your own needs. This report requires Lansweeper version 8.0 or higher.
Run Our July 2024 Patch Tuesday Audit Report
Lansweeper’s audit report for the Microsoft July 2024 Patch Tuesday report provides an overview of all Windows computers and their Windows patch status. Scan your network with our report to give you a quick and easy overview that allows you to find devices that might have issues receiving Microsoft updates. Detect outdated machines, start updating or simply manage your updating process in your network. Run our audit to keep your devices safe. In this month’s Patch Tuesday Microsoft brings 142 new fixes, 5 of which are listed as critical. You can read all about the changes in the Patch Tuesday July blog post.
Run the Microsoft July 2024 Patch Tuesday Audit Now!
![Patch Tuesday audit example.png](https://www.lansweeper.com/wp-content/uploads/Patch-Tuesday-audit-example.png-1024x177.webp)
Patch Tuesday July 2024 Lansweeper On-Prem Query
Select Distinct Top 1000000 Coalesce(tsysOS.Image, tsysAssetTypes.AssetTypeIcon10) As icon, tblAssets.AssetID, tblAssets.AssetName, tblAssets.Domain, tblState.Statename As State, Case tblAssets.AssetID When SubQuery1.AssetID Then 'Up to date' Else 'Out of date' End As [Patch status], Case When tblComputersystem.Domainrole > 1 Then 'Server' Else 'Workstation' End As [Workstation/Server], tblAssets.Username, tblAssets.Userdomain, tblAssets.IPAddress, tsysIPLocations.IPLocation, tblAssetCustom.Manufacturer, tblAssetCustom.Model, tsysOS.OSname As OS, tblAssets.SP, tblAssets.Version, tblAssets.BuildNumber, tblAssets.Lastseen, tblAssets.Lasttried, Case When tblErrors.ErrorText Is Not Null Or tblErrors.ErrorText != '' Then 'Scanning Error: ' + tsysasseterrortypes.ErrorMsg Else '' End As ScanningErrors, Case When tblAssets.AssetID = SubQuery1.AssetID Then '' Else CASE WHEN tsysOS.OSname = 'Win 2008' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OSname IN ('Win 7', 'Win 7 RC', 'Win 2008 R2') THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OSname = 'Win 8' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OSname = 'Win 2012' THEN 'KB5040485' WHEN tsysOS.OSname = 'Win 8.1' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OSname = 'Win 2012 R2' THEN 'KB5040456' WHEN tsysOS.OScode LIKE '10.0.10240' THEN 'KB5040448' WHEN tsysOS.OScode LIKE '10.0.10586' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.14393' OR tsysOS.OSname = 'Win 2016' THEN 'KB5040434' WHEN tsysOS.OScode LIKE '10.0.15063' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.16299' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.17134' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.17763' AND tblOperatingsystem.Caption NOT LIKE '%LTSC%' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.17763' AND tblOperatingsystem.Caption LIKE '%LTSC%' THEN 'KB5040430' WHEN tsysOS.OSname = 'Win 2019' THEN 'KB5040430' WHEN tsysOS.OScode LIKE '10.0.18362' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.18363' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.19041' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.19042' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.19043' THEN 'EOL, update to a higher Windows version' WHEN tsysOS.OScode LIKE '10.0.19044' THEN 'KB5040427' WHEN tsysOS.OScode LIKE '10.0.19045' THEN 'KB5040427' WHEN tsysOS.OSname = 'Win 2022' THEN 'KB5040437' WHEN tsysOS.OScode LIKE '10.0.22000%' THEN 'KB5040431' WHEN tsysOS.OScode LIKE '10.0.22621%' OR tsysOS.OScode LIKE '10.0.22631%' THEN 'KB5040442' WHEN tsysOS.OScode LIKE '10.0.25398%' THEN 'KB5040438' ELSE '' END End As [Install one of these updates], Convert(nvarchar,DateDiff(day, QuickFixLastScanned.QuickFixLastScanned, GetDate())) + ' days ago' As WindowsUpdateInfoLastScanned, Case When Convert(nvarchar,DateDiff(day, QuickFixLastScanned.QuickFixLastScanned, GetDate())) > 3 Then 'Windows update information may not be up to date. We recommend rescanning this machine.' Else '' End As Comment, Case tblAssets.AssetID When SubQuery1.AssetID Then '#d4f4be' Else '#ffadad' End As backgroundcolor From tblAssets Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID Inner Join tsysAssetTypes On tsysAssetTypes.AssetType = tblAssets.Assettype Inner Join tblOperatingsystem On tblOperatingsystem.AssetID = tblAssets.AssetID Inner Join tblState On tblState.State = tblAssetCustom.State Inner Join tblComputersystem On tblAssets.AssetID = tblComputersystem.AssetID Left Join tsysOS On tsysOS.OScode = tblAssets.OScode Left Join (Select Top 1000000 tblQuickFixEngineering.AssetID From tblQuickFixEngineering Inner Join tblQuickFixEngineeringUni On tblQuickFixEngineeringUni.QFEID = tblQuickFixEngineering.QFEID Where tblQuickFixEngineeringUni.HotFixID In ('KB5040485', 'KB5040456', 'KB5040448', 'KB5040434', 'KB5040430', 'KB5040427', 'KB5040437', 'KB5040438', 'KB5040431', 'KB5040442')) As SubQuery1 On tblAssets.AssetID = SubQuery1.AssetID Left Join tsysIPLocations On tblAssets.IPNumeric >= tsysIPLocations.StartIP And tblAssets.IPNumeric <= tsysIPLocations.EndIP Left Join (Select Distinct Top 1000000 TsysLastscan.AssetID As ID, TsysLastscan.Lasttime As QuickFixLastScanned From TsysWaittime Inner Join TsysLastscan On TsysWaittime.CFGCode = TsysLastscan.CFGcode Where TsysWaittime.CFGname = 'QUICKFIX') As QuickFixLastScanned On tblAssets.AssetID = QuickFixLastScanned.ID Left Join (Select Distinct Top 1000000 tblErrors.AssetID As ID, Max(tblErrors.Teller) As ErrorID From tblErrors Group By tblErrors.AssetID) As ScanningError On tblAssets.AssetID = ScanningError.ID Left Join tblErrors On ScanningError.ErrorID = tblErrors.Teller Left Join tsysasseterrortypes On tsysasseterrortypes.Errortype = tblErrors.ErrorType Where tsysOS.OSname <> 'Win 2000 S' And tsysOS.OSname Not Like '%XP%' And tsysOS.OSname Not Like '%2003%' And (Not tsysOS.OSname Like 'Win 7%' Or Not tblAssets.SP = 0) And tblAssetCustom.State = 1 And tsysAssetTypes.AssetTypename Like 'Windows%' Order By tblAssets.Domain, tblAssets.AssetName