wmi sistem Hazır Excel Makroları (VBA) | Excel Programları

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 SysInfo()
Dim MyMsg As String, oSystem As Object, Item As Object

Set oSystem = GetObject("winmgmts:").instancesOf("Win32_ComputerSystem")

For Each Item In oSystem
    MyMsg = "Bilgisayar hakkında " & vbCrLf
    MyMsg = MyMsg & "-------------------------------" & vbCrLf
    MyMsg = MyMsg & "Ad: " & item.Name & vbCrLf
    MyMsg = MyMsg & "Tip: " & item.SystemType & vbCrLf
    MyMsg = MyMsg & "Üretici: " & item.Manufacturer & vbCrLf
    MyMsg = MyMsg & "Model: " & item.Model & vbCrLf
    MyMsg = MyMsg & "RAM: " & item.TotalPhysicalMemory  1024000 & " Mb" & vbCrLf
    MyMsg = MyMsg & "Domain: " & item.Domain & vbCrLf
    MyMsg = MyMsg & "Kayıtlı kullanıcı: " & item.UserName & vbCrLf
    MsgBox MyMsg, vbInformation, "Sistem Bilgileri...... (Raider ®)"
Next
Set oSystem = Nothing

End Sub

Benzer Sonuçlar
No	Makro Adı
1	wmi sistem
2	dosya sistemini öğrenme
3	dosya sistemini gösterme
4	geçici klasörler
5	versiyon numaralarını öğrenme
6	dtpickerin değerinin database den gelen bir değer olmasını istiyorsak
7	işletim sistemini öğrenme
8	wmi windows
9	disketten .bat dosyası açma
10	veri değiştirirken uyarı alma
11	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
12	işlemci hızı
13	wmi bios
14	işlemci bilgilerini hücreye aktarma
15	wmi network adaptörleri
16	wmi mouse
17	wmi anakart
18	wmi bilgi
19	wmi ekran kartı
20	forma otomatik resim getirme

Benzer Sonuçlar

Makro Adı

wmi sistem

dosya sistemini öğrenme

dosya sistemini gösterme

geçici klasörler

versiyon numaralarını öğrenme

dtpickerin değerinin database den gelen bir değer olmasını istiyorsak

işletim sistemini öğrenme

wmi windows

disketten .bat dosyası açma

veri değiştirirken uyarı alma