Bilgisayar Bilgilerini Özetleme
07 Haziran 2021
840
Bilgisayar Bilgilerini Özetleme isimli kod, bilgisayarınızdaki temel bilgilerin Excel ile bulunmasını sağlayan bir makro örneğidir.
Sub SysInfo()
Dim s As String, oSystem As Object, item As Object
Set oSystem = GetObject("winmgmts:").instancesOf("Win32_ComputerSystem")
For Each item In oSystem
s = "Bilgisayar bilgileri" & vbCrLf
s = s & "-------------------------------" & vbCrLf
s = s & "İsim: " & item.Name & vbCrLf
s = s & "Durum: " & item.Status & vbCrLf
s = s & "Tipi: " & item.SystemType & vbCrLf
s = s & "Mfg: " & item.Manufacturer & vbCrLf
s = s & "Model: " & item.Model & vbCrLf
s = s & "RAM: " & item.TotalPhysicalMemory / 1024000 & "mb" & vbCrLf
s = s & "Ağ ismi: " & item.Domain & vbCrLf
s = s & "Role: " & TranslateDomainRole(item.DomainRole) & vbCrLf
s = s & "Kayıtlı kullanıcı: " & item.UserName & vbCrLf
MsgBox s
Next
Set oSystem = Nothing
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu çalıştırdıktan sonra aşağıdaki gibi bir ekran ile bilgisayar bilgilerinizi MsgBox nesnesinde görüntüleyebilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Kes / Alternatif | Shift Delete |
| Bul Penceresini Açma | Ctrl F |
| Eş Anlamlılar Sözlüğü | Shift F7 |
| İlişkili Hücre Aralığı Seçimi Yapma | Ctrl Shift Boşluk |
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |