Computer Daten auslesen

  • VB.NET

Es gibt 41 Antworten in diesem Thema. Der letzte Beitrag () ist von bla.

    Computer Daten auslesen

    Hallo Community,
    wie kann ich die Leistung des CPU, Grafikkarte und arbeitsspeicher auslesen? ich habe schon in google gesucht aber nichts gutes gefunden!
    ich möchte nicht die aktuelle auslastung auslesen!
    als ergebnis soll vllt herrauskommen:

    Quellcode

    1. Prozessor: AMD Athlon 64 4400+ X2, 2x 2,1 GHZ
    2. GrafikKarte: NVidea Geforce 9800 GT, 512MB
    3. Arbeitsspeicher: 1024 MB-Ram

    oder so ähnlich!

    Danke im vorraus

    Stichwort WMI, mit dieser API sollte man seine Hardwaredaten auslesen können.
    Beispiel:

    VB.NET-Quellcode

    1. Dim DiskDrive As Collections.Generic.Dictionary(Of String, String)
    2. DiskDrive = WMI.Hardware.GetProperties(WMI.Hardware.Win32._DiskDrive)
    3. MsgBox(DiskDrive("Caption"))

    Musst natürlich noch einen Verweis auf die DLL System.Management hinzufügen.
    Hier noch der MSDN Link: msdn.microsoft.com/en-us/library/aa394572(VS.85).aspx

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. GetCPUData()
    3. End Sub
    5. Private Sub GetCPUData()
    6. Dim cpuItem As Object
    7. Dim cpu As Object
    8. ListBox1.Items.Clear()
    9. Try
    10. cpuItem = GetObject("winmgmts:").InstancesOf("Win32_Processor")
    12. If Err.Number = 0 Then
    13. ListBox1.Items.Add("Anzahl der Prozessoren incl. Co-Prozessoren: " & _
    14. cpuItem.Count.ToString.Trim)
    16. For Each cpu In cpuItem
    17. ListBox1.Items.Add("Prozessor: " & cpu.DeviceID)
    18. ListBox1.Items.Add("Bezeichnung: " & Trim$(cpu.Name))
    19. ListBox1.Items.Add("Takt (MHz): " & cpu.MaxClockSpeed)
    20. ListBox1.Items.Add("CPU-ID: " & cpu.ProcessorId)
    21. Next
    23. cpuItem = Nothing
    24. End If
    25. Catch
    26. End Try
    27. End Sub
    29. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    30. Close()
    31. End Sub
    GOOGLE ist mein Meister :)

    danke erstmal aber das liest ja nich die ganzen daten des cpu aus :rolleyes: es soll ja herrauskommen AMD Athlon ... ... das hatte ich auch gerade im blick^^

    EDIT: Danke,klappt ich hab jetzt:

    VB.NET-Quellcode

    1. Private Function GetCPUName()
    2. Dim cpuItem As Object
    3. Dim f As String = "Fehler!"
    4. Try
    5. cpuItem = GetObject("winmgmts:").InstancesOf("Win32_Processor")
    7. For Each CPU In cpuItem
    8. f = CPU.name
    9. Next
    10. Catch ex As Exception : f = "Fehler " & ex.Message : End Try
    11. Return f
    12. End Function

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

    Naja, dann musst du halt 2 Checkboxen einfügen die jeweils die Bezeichnung Intel bzw. AMD haben und musst den User das halt selbst eintragen lassen (sollte man ja wissen). Was anderes fällt mir dazu spontan leider auch net mehr ein.

    sry werde dir hier sicher ned alles am stück posten google und die sufu helfen dir 101% weiter
    bisschen eigeniniziative bitte...

    EDIT:
    Also zumindestens den RAM müssteste selber rauskriegen der ist doch nur kinderleicht grad mal eine zeile...
    GOOGLE ist mein Meister :)

    na dann fehlt dir ja nur noch die grafigkarte:

    VB.NET-Quellcode

    1. Sub GetGrakaInfos()
    2. Dim objCPUItem As Object, objCPU As Object
    4. On Error Resume Next
    5. objCPUItem = GetObject("winmgmts:").InstancesOf("Win32_VideoController")
    7. For Each objCPU In objCPUItem
    8. ListBox1.Items.Add("Grafikkarte: " & objCPU.Description)
    9. ListBox1.Items.Add("Auflösung: " & objCPU.VideoModeDescription & " @" & My.Computer.Screen.BitsPerPixel & " Bit")
    10. Application.DoEvents()
    11. Next
    12. End Sub
    GOOGLE ist mein Meister :)

    Huhu :)

    Irgendwie seid Ihr meine letzte Hoffnung.

    Hier habe ich meine Frage gestellt, Antworten kommen da sehr dürftig. MSDN Forum

    Das oben behandelte Thema trifft eigentlich auf mein Projekt zu.

    2. Zu den Feldern, die Daten ermitteln soll: Betriebssystem, Netzwerkkarte, Netzwerkkarten-Treiberversion.
    Betriebssystem habe ich schon einige Informationen finden können. Nur in Sachen Netzwerk konnte ich nur folgendes im Internet finden:
    MAC-Adresse, IP ermitteln, Netzwerk vorhanden, usw..
    Wie kann ich die aktuelle gebrauchte/genutzte Netzwerkkarte (Hersteller) und die installierte Treiberversion ermitteln?

    Ich habe im Formular-Code (also indem das ausgegeben werden soll) folgenden Code:

    VB.NET-Quellcode

    1. Imports System.Management
    2. Public Class Hauptfenster
    4. Dim DiskDrive As Collections.Generic.Dictionary(Of String, String)
    5. DiskDrive = WMI.Hardware.GetProperties(WMI.Hardware.Win32._DiskDrive)
    6. MsgBox(DiskDrive("MaskedTextBox3"))
    8. End Class


    Ein Verweis auf die DLL System.Management muss vorher hinzugefügt werden.

    Was heißt das? Wie mache ich das genau?

    Habe Visual Studio 9 Testversion.

    Was habe ich bisher gemacht:

    Resources -> System.Management.dll

    VB.NET-Quellcode

    1. Public Class WMI
    2. Public Class Hardware
    3. Public Shared Function GetProperties(ByVal [Class] As Win32) As Collections.Generic.Dictionary(Of String, String())
    4. Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * from Win32" & [Class].ToString)
    5. Dim MOC As ManagementObjectCollection = MOS.Get
    6. Dim MO As ManagementObject
    7. Dim PD As PropertyData
    8. Dim HWList As New Collections.Generic.Dictionary(Of String, String())
    9. For Each MO In MOC
    10. For Each PD In MO.Properties
    11. If Not PD.Value Is Nothing Then
    12. If HWList.ContainsKey(PD.Name) = False Then
    13. HWList.Add(PD.Name, GetProperty([Class], PD.Name))
    14. End If
    15. End If
    16. Next
    17. Next
    18. Return HWList
    19. End Function
    21. Public Shared Function GetProperty(ByVal [Class] As Win32, ByVal [Property] As String) As String()
    22. Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select " & [Property] & " from Win32" & [Class].ToString)
    23. Dim MOC As ManagementObjectCollection = MOS.Get
    24. Dim MO As New ManagementObject
    26. Dim Values As New List(Of String)
    28. Try
    29. For Each MO In MOC
    30. Values.Add(MO.GetPropertyValue([Property]))
    31. Next
    32. Catch ex As Exception
    33. Return Nothing
    34. End Try
    36. Return Values.ToArray
    37. End Function
    39. Public Enum Win32 As Integer
    40. 'Cooling Device Classes
    41. _Fan
    42. _HeatPipe
    43. _Refrigeration
    44. _TemperatureProbe
    46. 'Input Device Classes
    47. _Keyboard
    48. _PointingDevice
    50. 'Mass Storage Classes
    51. _AutochkSetting
    52. _CDROMDrive
    53. _DiskDrive
    54. _FloppyDrive
    55. _PhysicalMedia
    56. _TapeDrive
    58. 'Motherboard, Controller, and Port Classes
    59. _1394Controller
    60. _1394ControllerDevice
    61. _AllocatedResource
    62. _AssociatedProcessorMemory
    63. _BaseBoard
    64. _BIOS
    65. _Bus
    66. _CacheMemory
    67. _ControllerHasHub
    68. _DeviceBus
    69. _DeviceMemoryAddress
    70. _DeviceSettings
    71. _DMAChannel
    72. _FloppyController
    73. _IDEController
    74. _IDEControllerDevice
    75. _InfraredDevice
    76. _IRQResource
    77. _MemoryArray
    78. _MemoryArrayLocation
    79. _MemoryDevice
    80. _MemoryDeviceArray
    81. _MemoryDeviceLocation
    82. _MotherboardDevice
    83. _OnBoardDevice
    84. _ParallelPort
    85. _PCMCIAController
    86. _PhysicalMemory
    87. _PhysicalMemoryArray
    88. _PhysicalMemoryLocation
    89. _PNPAllocatedResource
    90. _PNPDevice
    91. _PNPEntity
    92. _PortConnector
    93. _PortResource
    94. _Processor
    95. _SCSIController
    96. _SCSIControllerDevice
    97. _SerialPort
    98. _SerialPortConfiguration
    99. _SerialPortSetting
    100. _SMBIOSMemory
    101. _SoundDevice
    102. _SystemBIOS
    103. _SystemDriverPNPEntity
    104. _SystemEnclosure
    105. _SystemMemoryResource
    106. _SystemSlot
    107. _USBController
    108. _USBControllerDevice
    109. _USBHub
    111. 'Networking Device Classes
    112. _NetworkAdapter
    113. _NetworkAdapterConfiguration
    114. _NetworkAdapterSetting
    116. 'Power Classes
    117. _AssociatedBattery
    118. _Battery
    119. _CurrentProbe
    120. _PortableBattery
    121. _PowerManagementEvent
    122. _UninterruptiblePowerSupply
    123. _VoltageProbe
    125. 'Printing Classes
    126. _DriverForDevice
    127. _Printer
    128. _PrinterConfiguration
    129. _PrinterController
    130. _PrinterDriver
    131. _PrinterDriverDll
    132. _PrinterSetting
    133. _PrintJob
    134. _TCPIPPrinterPort
    136. 'Telephony Classes
    137. _POTSModem
    138. _POTSModemToSerialPort
    140. 'Video and Monitor Classes
    141. _DesktopMonitor
    142. _DisplayConfiguration
    143. _DisplayControllerConfiguration
    144. _VideoConfiguration
    145. _VideoController
    146. _VideoSettings
    147. End Enum
    148. End Class


    Funzt alles irgendwie nicht. Bitte helft mir ......... :)
    Grüße JackCimberly

    Deine Anfrage erledigt?
    Als erledigt markieren

    boah watt ne geile Klasse!
    Habs mal ein bißchen umgebaut, damit man direkt über den Namen der Enum gehen kann. Dauert zwar ewig lange, aber der liest ja echt alles aus ;)

    Umgefummelte Version:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Management
    3. Public Class WMI
    4. Public Class Hardware
    5. Public Shared Function GetProperties(ByVal ClassName As String) As Collections.Generic.Dictionary(Of String, String())
    6. Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * from Win32" & ClassName)
    7. Dim MOC As ManagementObjectCollection = MOS.Get
    8. Dim MO As ManagementObject
    9. Dim PD As PropertyData
    10. Dim HWList As New Collections.Generic.Dictionary(Of String, String())
    11. For Each MO In MOC
    12. For Each PD In MO.Properties
    13. If Not PD.Value Is Nothing Then
    14. If HWList.ContainsKey(PD.Name) = False Then
    15. HWList.Add(PD.Name, GetProperty(ClassName, PD.Name))
    16. End If
    17. End If
    18. Next
    19. Next
    20. Return HWList
    21. End Function
    23. Public Shared Function GetProperties(ByVal [Class] As Win32) As Collections.Generic.Dictionary(Of String, String())
    24. Return GetProperties([Class].ToString)
    25. End Function
    27. Public Shared Function GetProperty(ByVal Classname As String, ByVal [Property] As String) As String()
    28. Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select " & [Property] & " from Win32" & Classname.ToString)
    29. Dim MOC As ManagementObjectCollection = MOS.Get
    30. Dim MO As New ManagementObject
    32. Dim Values As New List(Of String)
    34. Try
    35. For Each MO In MOC
    36. Values.Add(MO.GetPropertyValue([Property]))
    37. Next
    38. Catch ex As Exception
    39. Return Nothing
    40. End Try
    42. Return Values.ToArray
    43. End Function
    45. Public Shared Function GetProperty(ByVal [Class] As Win32, ByVal [Property] As String) As String()
    46. Return GetProperty([Class].ToString, [Property])
    47. End Function
    49. Public Enum Win32 As Integer
    50. 'Cooling Device Classes
    51. _Fan
    52. _HeatPipe
    53. _Refrigeration
    54. _TemperatureProbe
    56. 'Input Device Classes
    57. _Keyboard
    58. _PointingDevice
    60. 'Mass Storage Classes
    61. _AutochkSetting
    62. _CDROMDrive
    63. _DiskDrive
    64. _FloppyDrive
    65. _PhysicalMedia
    66. _TapeDrive
    68. 'Motherboard, Controller, and Port Classes
    69. _1394Controller
    70. _1394ControllerDevice
    71. _AllocatedResource
    72. _AssociatedProcessorMemory
    73. _BaseBoard
    74. _BIOS
    75. _Bus
    76. _CacheMemory
    77. _ControllerHasHub
    78. _DeviceBus
    79. _DeviceMemoryAddress
    80. _DeviceSettings
    81. _DMAChannel
    82. _FloppyController
    83. _IDEController
    84. _IDEControllerDevice
    85. _InfraredDevice
    86. _IRQResource
    87. _MemoryArray
    88. _MemoryArrayLocation
    89. _MemoryDevice
    90. _MemoryDeviceArray
    91. _MemoryDeviceLocation
    92. _MotherboardDevice
    93. _OnBoardDevice
    94. _ParallelPort
    95. _PCMCIAController
    96. _PhysicalMemory
    97. _PhysicalMemoryArray
    98. _PhysicalMemoryLocation
    99. _PNPAllocatedResource
    100. _PNPDevice
    101. _PNPEntity
    102. _PortConnector
    103. _PortResource
    104. _Processor
    105. _SCSIController
    106. _SCSIControllerDevice
    107. _SerialPort
    108. _SerialPortConfiguration
    109. _SerialPortSetting
    110. _SMBIOSMemory
    111. _SoundDevice
    112. _SystemBIOS
    113. _SystemDriverPNPEntity
    114. _SystemEnclosure
    115. _SystemMemoryResource
    116. _SystemSlot
    117. _USBController
    118. _USBControllerDevice
    119. _USBHub
    121. 'Networking Device Classes
    122. _NetworkAdapter
    123. _NetworkAdapterConfiguration
    124. _NetworkAdapterSetting
    126. 'Power Classes
    127. _AssociatedBattery
    128. _Battery
    129. _CurrentProbe
    130. _PortableBattery
    131. _PowerManagementEvent
    132. _UninterruptiblePowerSupply
    133. _VoltageProbe
    135. 'Printing Classes
    136. _DriverForDevice
    137. _Printer
    138. _PrinterConfiguration
    139. _PrinterController
    140. _PrinterDriver
    141. _PrinterDriverDll
    142. _PrinterSetting
    143. _PrintJob
    144. _TCPIPPrinterPort
    146. 'Telephony Classes
    147. _POTSModem
    148. _POTSModemToSerialPort
    150. 'Video and Monitor Classes
    151. _DesktopMonitor
    152. _DisplayConfiguration
    153. _DisplayControllerConfiguration
    154. _VideoConfiguration
    155. _VideoController
    156. _VideoSettings
    157. End Enum
    158. End Class
    159. End Class


    Und hier mal ein kleines Sample, dass einen Treeview vollmüllt ;)

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private isrunning As Boolean = False
    5. Private Delegate Sub dlgAppendNode(ByVal n As TreeNode)
    6. Private Sub AppendNode(ByVal n As TreeNode)
    7. TreeView1.Nodes.Add(n)
    8. End Sub
    10. Private Sub BackgroundProcess()
    11. Try
    12. Dim dclass As New Dictionary(Of String, Dictionary(Of String, String()))
    13. Dim hwenum As WMI.Hardware.Win32
    14. Dim dlg As dlgAppendNode = AddressOf AppendNode
    15. For Each s As String In [Enum].GetNames(hwenum.GetType)
    16. Dim d As Dictionary(Of String, String()) = WMI.Hardware.GetProperties(s)
    17. If d.Count > 0 Then
    18. dclass.Add(s, d)
    20. Dim n As New TreeNode(s)
    21. For Each ss In d.Keys
    22. Dim nn As TreeNode = n.Nodes.Add(ss)
    23. If d(ss) IsNot Nothing AndAlso d(ss).Length > 0 Then
    24. For Each sss As String In d(ss)
    25. If sss IsNot Nothing Then
    26. nn.Nodes.Add(sss)
    27. End If
    28. Next
    29. End If
    30. Next
    31. TreeView1.Invoke(dlg, New Object() {n})
    32. End If
    33. Next
    34. Catch ex As Exception
    35. MessageBox.Show(ex.Message)
    36. End Try
    38. isrunning = False
    40. End Sub
    42. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    44. If Not isrunning Then
    45. isrunning = True
    46. TreeView1.Nodes.Clear()
    47. Dim t As New Threading.Thread(AddressOf BackgroundProcess)
    48. t.Start()
    49. End If
    51. End Sub
    53. End Class


    Ist jetzt mal nur QnD, aber wie man sieht, funzt das echt gut ;)

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

    Danke für Mühe.
    Bin da echt ein Anfänger.

    Wo kommt der Code hin (Umgefummelte Version - WMI)?

    Imports System.Management.
    Muss ich da irgendwas importieren? Falls ja, wie?


    Habe eine Form, die lautet Hauptfenster.
    Kommt da der Code rein?


    Form1 - also auch umbenennen in Hauptfenster?

    Habe da eine MaskedTextBox namens MaskedTextBox1.
    Wie bekomme ich die z.B. das Betriebssystem da in die o.g. MaskedTextBox? (ohne, dass ein Button geklickt wird - sozusagen beim Programmstart)

    Verstehe momentan nur Bahnhof ... sorry :(
    Grüße JackCimberly

    Deine Anfrage erledigt?
    Als erledigt markieren

    Danke.

    Hm - nur die Zeit habe ich nicht gerade, da die Testversion bald ausläuft. :(

    Lerne eigentlich meistens aus Beispielen. Sind eigentlich nur drei Felder, mehr ist das nicht.

    Bitte :)
    Grüße JackCimberly

    Deine Anfrage erledigt?
    Als erledigt markieren

Facebook
Telefonspende