Set objSession = CreateObject("Microsoft.Update.Session") Set objSearcher = objSession.CreateUpdateSearcher Set objResults = objSearcher.Search("Type='Software'") Set colUpdates = objResults.Updates For i = 0 to colUpdates.Count - 1 If colUpdates.Item(i).IsInstalled <> 0 Then Wscript.Echo "[Installed]: " & colUpdates.Item(i).Title Else Wscript.Echo "[Not Installed]: " & colUpdates.Item(i).Title En