On Error Resume Next 
Dim oSearcher, oSearchResult, i, oUpdate 


Set oSearcher = CreateObject("Microsoft.Update.Searcher") 


' use locally cached information 
oSearcher.Online = False 


' find updates that are hidden 
Set oSearchResult = oSearcher.Search("IsHidden=1") 


If Err.Number = 0 Then 
   If oSearchResult.Updates.Count > 0 Then 
     For i = 0 to oSearchResult.Updates.Count - 1 
       Set oUpdate = oSearchResult.Updates(i) 
       ' unhide the update 
       oUpdate.IsHidden = False 
     Next 
   End If 
End If