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:
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
- Dim searcher2 As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PhysicalMemory")
- Dim i5 As Integer = 0
- Dim ramst As String = ""
- Dim typ As String = ""
- Dim formFaktor As String = ""
- For Each queryObj As System.Management.ManagementObject In searcher2.[Get]()
- ramst = queryObj("Capacity")
- typ = queryObj("MemoryType")
- i5 += 1
- FormFaktor = queryObj("FormFactor")
- lb_RAM_HerstellerNummer.Items.Add(queryObj("PartNumber"))
- lbl_RAM_Speed.Text = queryObj("Speed") & " MHz (min: "
- If queryObj("Speed") = "400" Then
- lbl_GBSek.Text = "6,4 GB/s"
- ElseIf queryObj("Speed") = "533" Then
- lbl_GBSek.Text = "8,4 GB/s"
- ElseIf queryObj("Speed") = "667" Then
- lbl_GBSek.Text = "10,6 GB/s"
- ElseIf queryObj("Speed") = "800" Then
- lbl_GBSek.Text = "12,8 GB/s"
- ElseIf queryObj("Speed") = "1066" Then
- lbl_GBSek.Text = "17,0 GB/s"
- ElseIf queryObj("Speed") = "1333" Then
- lbl_GBSek.Text = "21,2 GB/s"
- ElseIf queryObj("Speed") = "1600" Then
- lbl_GBSek.Text = "25,6 GB/s"
- ElseIf queryObj("Speed") = "1866" Then
- lbl_GBSek.Text = "29,8 GB/s"
- ElseIf queryObj("Speed") = "2133" Then
- lbl_GBSek.Text = "34,0 GB/s"
- ElseIf queryObj("Speed") = "2400" Then
- lbl_GBSek.Text = "38,4 GB/s"
- ElseIf queryObj("Speed") = "2666" Then
- lbl_GBSek.Text = "42,6 GB/s"
- ElseIf queryObj("Speed") = "3200" Then
- lbl_GBSek.Text = "51,2 GB/s"
- End If
- Next
- If typ = 0 Then
- typ = "Unbekannt"
- ElseIf typ = 1 Then
- typ = "Andere"
- ElseIf typ = 2 Then
- typ = "DRAM"
- ElseIf typ = 3 Then
- typ = "Synchonous DRAM"
- ElseIf typ = 4 Then
- typ = "Cache DRAM"
- ElseIf typ = 5 Then
- typ = "EDO"
- ElseIf typ = 6 Then
- typ = "EDRAM"
- ElseIf typ = 7 Then
- typ = "VRAM"
- ElseIf typ = 8 Then
- typ = "SRAM"
- ElseIf typ = 9 Then
- typ = "RAM"
- ElseIf typ = 10 Then
- typ = "ROM"
- ElseIf typ = 11 Then
- typ = "Flash"
- ElseIf typ = 12 Then
- typ = "EEPROM"
- ElseIf typ = 13 Then
- typ = "FEPROM"
- ElseIf typ = 14 Then
- typ = "EPROM"
- ElseIf typ = 15 Then
- typ = "CDRAM"
- ElseIf typ = 16 Then
- typ = "3DRAM"
- ElseIf typ = 17 Then
- typ = "SDRAM"
- ElseIf typ = 18 Then
- typ = "SGRAM"
- ElseIf typ = 19 Then
- typ = "RDRAM"
- ElseIf typ = 20 Then
- typ = "DDR"
- ElseIf typ = 21 Then
- typ = "DDR2"
- ElseIf typ = 22 Then
- typ = "DDR2 FB-DIMM"
- ElseIf typ = 24 Then
- typ = "DDR3"
- ElseIf typ = 25 Then
- typ = "FBD2"
- End If