List of installed windows updates

Dim oWU As New WUApiLib.UpdateSearcher
           Dim colUpdate As WUApiLib.IUpdateHistoryEntryCollection
           Dim iTHCount As Integer
           Dim oUpdate As WUApiLib.IUpdateHistoryEntry

           iTHCount = oWU.GetTotalHistoryCount
           If iTHCount > 0 Then
              colUpdate = oWU.QueryHistory(0, iTHCount)
               For Each oUpdate In colUpdate
                   If oUpdate.ResultCode = 2 Then ' only succeeded updates
                       console.writeline(oUpdate.Title.ToString.Trim.ToLower)
                       dtUpdates.Rows.Add(dr)
                   End If
               Next
           End If