Bilgisayar Bilgilerini Özetleme

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 Sub