ник: DeBob
Сорри за беспокойство - нашёл :)
Option Explicit
Private Sub CommandButton1_Click()
Dim objWMI As Object
Dim softCollection As Object
Dim objSoft As Object
Dim listSoft As String
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set softCollection = objWMI.ExecQuery("select * from Win32_Product")
For Each objSoft In softCollection
Debug.Print objSoft.Caption & vbTab & objSoft.Version
Next
End Sub
|