RAM Typ auslesen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    RAM Typ auslesen

    Hallo. Kurze Frage:
    Gibt es eine Möglichkeit den Typ des Rams auszulesen ?
    derzeit lese ich aus Win32_PhysicalMemory den MemoryType aus.
    Laut
    MS gibt der Wert folgendes aus:
    Unknown (0)Other (1)DRAM (2)Synchronous DRAM (3)Cache DRAM (4)EDO (5)EDRAM (6)VRAM (7)SRAM (8)RAM (9)ROM (10)Flash (11)EEPROM (12)FEPROM (13)EPROM (14)CDRAM (15)3DRAM (16)SDRAM (17)SGRAM (18)RDRAM (19)DDR (20)DDR2 (21)DDR2 (21)DDR2 FB-DIMM (22)DDR3 (24)FBD2 (25)

    Leider kommt bei mir auf 2 Rechnern (Desktop und Laptop) immer 0 raus was normalerweise 24 sein sollte.

    Mein Code:

    Quellcode

    1. Dim searcher2 As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PhysicalMemory")
    2. Dim i5 As Integer = 0
    3. Dim ramst As String = ""
    4. Dim typ As String = ""
    5. Dim formFaktor As String = ""
    7. For Each queryObj As System.Management.ManagementObject In searcher2.[Get]()
    8. ramst = queryObj("Capacity")
    9. typ = queryObj("MemoryType")
    10. i5 += 1
    11. FormFaktor = queryObj("FormFactor")
    13. lb_RAM_HerstellerNummer.Items.Add(queryObj("PartNumber"))
    14. lbl_RAM_Speed.Text = queryObj("Speed") & " MHz (min: "
    15. If queryObj("Speed") = "400" Then
    16. lbl_GBSek.Text = "6,4 GB/s"
    17. ElseIf queryObj("Speed") = "533" Then
    18. lbl_GBSek.Text = "8,4 GB/s"
    19. ElseIf queryObj("Speed") = "667" Then
    20. lbl_GBSek.Text = "10,6 GB/s"
    21. ElseIf queryObj("Speed") = "800" Then
    22. lbl_GBSek.Text = "12,8 GB/s"
    23. ElseIf queryObj("Speed") = "1066" Then
    24. lbl_GBSek.Text = "17,0 GB/s"
    25. ElseIf queryObj("Speed") = "1333" Then
    26. lbl_GBSek.Text = "21,2 GB/s"
    27. ElseIf queryObj("Speed") = "1600" Then
    28. lbl_GBSek.Text = "25,6 GB/s"
    29. ElseIf queryObj("Speed") = "1866" Then
    30. lbl_GBSek.Text = "29,8 GB/s"
    31. ElseIf queryObj("Speed") = "2133" Then
    32. lbl_GBSek.Text = "34,0 GB/s"
    33. ElseIf queryObj("Speed") = "2400" Then
    34. lbl_GBSek.Text = "38,4 GB/s"
    35. ElseIf queryObj("Speed") = "2666" Then
    36. lbl_GBSek.Text = "42,6 GB/s"
    37. ElseIf queryObj("Speed") = "3200" Then
    38. lbl_GBSek.Text = "51,2 GB/s"
    39. End If
    42. Next
    44. If typ = 0 Then
    45. typ = "Unbekannt"
    46. ElseIf typ = 1 Then
    47. typ = "Andere"
    48. ElseIf typ = 2 Then
    49. typ = "DRAM"
    50. ElseIf typ = 3 Then
    51. typ = "Synchonous DRAM"
    52. ElseIf typ = 4 Then
    53. typ = "Cache DRAM"
    54. ElseIf typ = 5 Then
    55. typ = "EDO"
    56. ElseIf typ = 6 Then
    57. typ = "EDRAM"
    58. ElseIf typ = 7 Then
    59. typ = "VRAM"
    60. ElseIf typ = 8 Then
    61. typ = "SRAM"
    62. ElseIf typ = 9 Then
    63. typ = "RAM"
    64. ElseIf typ = 10 Then
    65. typ = "ROM"
    66. ElseIf typ = 11 Then
    67. typ = "Flash"
    68. ElseIf typ = 12 Then
    69. typ = "EEPROM"
    70. ElseIf typ = 13 Then
    71. typ = "FEPROM"
    72. ElseIf typ = 14 Then
    73. typ = "EPROM"
    74. ElseIf typ = 15 Then
    75. typ = "CDRAM"
    76. ElseIf typ = 16 Then
    77. typ = "3DRAM"
    78. ElseIf typ = 17 Then
    79. typ = "SDRAM"
    80. ElseIf typ = 18 Then
    81. typ = "SGRAM"
    82. ElseIf typ = 19 Then
    83. typ = "RDRAM"
    84. ElseIf typ = 20 Then
    85. typ = "DDR"
    86. ElseIf typ = 21 Then
    87. typ = "DDR2"
    88. ElseIf typ = 22 Then
    89. typ = "DDR2 FB-DIMM"
    90. ElseIf typ = 24 Then
    91. typ = "DDR3"
    92. ElseIf typ = 25 Then
    93. typ = "FBD2"
    94. End If

    Habs gerade mal bei mir getestet... sowohl unter Windows Server 2012R2 und Windows 10 Prev (VM) wird 0 zurückgegeben.... Wenn ich das Object mit der PowerShell auslese kommt auch 0 zurück....

    Laut diversen Foren ist das ein Fehler der immer Auftritt wenn DDR3 RAM verbaut ist.
    NETworkManager - A powerful tool for managing networks and troubleshoot network problems!

    @TE: der Code ist ziemlich grausig - sowas:

    VB.NET-Quellcode

    1. If queryObj("Speed") = "400" Then
    2. lbl_GBSek.Text = "6,4 GB/s"
    3. ElseIf queryObj("Speed") = "533" Then
    4. lbl_GBSek.Text = "8,4 GB/s"
    5. ElseIf queryObj("Speed") = "667" Then
    6. lbl_GBSek.Text = "10,6 GB/s"
    7. ElseIf queryObj("Speed") = "800" Then
    8. lbl_GBSek.Text = "12,8 GB/s"
    9. ElseIf queryObj("Speed") = "1066" Then
    10. lbl_GBSek.Text = "17,0 GB/s"
    11. ElseIf queryObj("Speed") = "1333" Then
    12. lbl_GBSek.Text = "21,2 GB/s"
    13. ElseIf queryObj("Speed") = "1600" Then
    14. lbl_GBSek.Text = "25,6 GB/s"
    15. ElseIf queryObj("Speed") = "1866" Then
    16. lbl_GBSek.Text = "29,8 GB/s"
    17. ElseIf queryObj("Speed") = "2133" Then
    18. lbl_GBSek.Text = "34,0 GB/s"
    19. ElseIf queryObj("Speed") = "2400" Then
    20. lbl_GBSek.Text = "38,4 GB/s"
    21. ElseIf queryObj("Speed") = "2666" Then
    22. lbl_GBSek.Text = "42,6 GB/s"
    23. ElseIf queryObj("Speed") = "3200" Then
    24. lbl_GBSek.Text = "51,2 GB/s"
    25. End If
    Lös das besser mit einem Select Case, oder noch besser, indem du ein Dictionary initialisierst, wo dann der Label-Wert in Abhängigkeit vom Speed drin ist.

    Und schalte Option Strict On - du wirst sehen, queryObj("Speed") ist gar kein String.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Dim speed5 As String = queryObj("Speed")
    Select Case speed5
    Case 400
    lbl_GBSek.Text = "3,2 GB je Modul oder 6,4 GB Dual-Channel"
    Case 533
    lbl_GBSek.Text = "4,2 GB je Modul oder 8,4 GB Dual-Channel"
    Case 667
    lbl_GBSek.Text = "5,3 GB je Modul oder 10,6 GB Dual-Channel"
    Case 800
    lbl_GBSek.Text = "6,4 GB je Modul oder 12,8 GB Dual-Channel"
    Case 1066
    lbl_GBSek.Text = "8,5 GB je Modul oder 17,0 GB Dual-Channel"
    Case 1333
    lbl_GBSek.Text = "10,6 GB je Modul oder 21,2 GB Dual-Channel"
    Case 1866
    lbl_GBSek.Text = "14,9 GB je Modul oder 39,8 GB Dual-Channel"
    Case 2133
    lbl_GBSek.Text = "17,0 GB je Modul oder 34,0 GB Dual-Channel"
    Case 2666
    lbl_GBSek.Text = "21,3 GB je Modul oder 42,6 GB Dual-Channel"
    Case 3200
    lbl_GBSek.Text = "25,6 GB je Modul oder 51,2 GB Dual-Channel"
    Case Else
    lbl_GBSek.Text = "unbekannt"
    End Select

    und jetzt noch mit Option Strict On, oder besser gleich VisualStuidio richtig einrichten: Visual Studio - Empfohlene Einstellungen

    Denn

    ErfinderDesRades schrieb:

    queryObj("Speed") ist gar kein String.



    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook