| |
|
|
| | Собственно, сабж.
Заранее, спасибо :)
ЗЫ: http://hiprog.com/index.php?option=com_content&task=view&id=463&Itemid=35
это пробовал - не работает :( | |
| |
| |
| |
|
|
| | Сорри за беспокойство - нашёл :)
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
|
| |
| |
| |
