wmi information Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub InstalledProgsByMSI()
Dim MyOBJ As Object
Dim MyProg As Variant
Dim MyMsg As String
On Error Resume Next
If Err.Number  0 Then
  MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
  "Windows Management Instrumentation"
  Exit Sub
On Error GoTo 0
End If
strComputer = "."
Set MyOBJ = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" _
    & strComputer & "
ootcimv2")
Set MSISoftware = MyOBJ.ExecQuery _
    ("Select * from Win32_Product")
    MyMsg = MyMsg & "MSI ile yüklenen programlar hakkında:" & vbCrLf
For Each MyProg In MSISoftware
    MyMsg = MyMsg & String(50, "-") & vbCrLf
    MyMsg = MyMsg & "Program: " & MyProg.Name & vbCrLf
    MyMsg = MyMsg & "Versiyon: " & MyProg.Version & vbCrLf
    MyMsg = MyMsg & "Üretici: " & MyProg.Vendor & vbCrLf
    MyMsg = MyMsg & "Kurulum: " & Left(MyProg.InstallDate, 4) & "/" & _
                                  Mid(MyProg.InstallDate, 5, 2) & "/" & _
                                  Mid(MyProg.InstallDate, 7, 2) & vbCrLf
Next
MsgBox MyMsg, vbInformation, "Programlar hakkında......   (Raider ®)"
End Sub

No	Macro Name
1	wmi information
2	processor speed
3	wmi bios
4	wmi network adapters
5	wmi mouse
6	wmi system
7	transfer processor information to a cell
8	wmi motherboard
9	wmi video card
10	wmi windows
11	to turn capslock on
12	do sorting into protected cells?
13	message when the sheet / page is active
14	nobody else save the file
15	Is there such a sheet / page name in the Excel file?
16	receive alerts when changing data
17	learning the file system
18	merge two separate columns with data
19	reporting text in textbox as message
20	double-line message box 1

Excel Free Macros (VBA)

Wmi İnformation

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords