Call ProgrammList

Sub ProgrammList()
    On Error Resume Next
       
    Dim objWMIService
    Dim colItems
    Dim objItem
    Dim strComputer

    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product")

    For Each objItem In colItems
        MsgBox "Название: " & objItem.Name _
          & " Описание: " & objItem.Description _
          & " Дата установки: " & fnWMIDateStringToDate(objItem.InstallDate2) _
          & " Продавец: " & objItem.Vendor _
          & " Версия: " & objItem.Version
    Next
End Sub

Function fnWMIDateStringToDate( _
  dtmDate)
   fnWMIDateStringToDate = CDate(Mid(dtmDate,  5 ,  2 ) & "/" & _
     Mid(dtmDate,  7 ,  2 ) & "/" & Left(dtmDate,  4 ) & " " & _
     Mid(dtmDate,  9 ,  2 ) & ":" & Mid(dtmDate,  11 ,  2 ) & ":" & Mid(dtmDate,  13 ,  2 ))
End Function