Wmi Bilgi Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 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 Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 wmi bilgi 2 wmi bios 3 işlemci bilgilerini hücreye aktarma 4 wmi mouse 5 wmi sistem 6 wmi anakart 7 wmi ekran kartı 8 wmi windows 9 veri olan iki ayrı sütunu birleştirme 10 text dosyası 1 oluşturma 11 şifrelemede son nokta 12 forma otomatik resim getirme 13 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 14 özel altbilgi sayfa1'de sol alt köşede kitap ismi 15 userformu kilitlemek 3 16 resim çekmek (printscreen) 17 belirli bir sütundaki bilgileri silen bir makro ? 18 dtpickerin değerinin database den gelen bir değer olmasını istiyorsak 19 özelaltbilgi sağda dosya yolu, sağda kitap ismi 20 bilgisayar ismi