On Error Resume Next
Dim oSearcher, oSearchResult, i, oUpdate
Set oSearcher = CreateObject("Microsoft.Update.Searcher")
oSearcher.Online = False
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)
			oUpdate.IsHidden = False
		Next
	End If
End If