Pc Informationen auslesen mit (( WMI ))

    • VB.NET
    • .NET (FX) 4.0

    Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von 00yoshi.

      Pc Informationen auslesen mit (( WMI ))

      Verweis hinzufügen unter:
      Projekt - Verweis hinzufügen- System.Management

      Classe erstellen unter:
      Projekt - Klasse hinzufügen

      Und Code rein !

      Code für Classe:

      Spoiler anzeigen
      ​

      VB.NET-Quellcode

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


      Beispiel Form1 mit Aufruf von Drive :
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. Option Strict On
      2. Public Class Form1
      4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      6. Dim DiskDrive = WMI.Hardware.GetProperties(WMI.Hardware.Win32._DiskDrive)
      8. Dim Disk_Infos As String = ""
      9. For Each infos As String In DiskDrive!Caption
      10. Disk_Infos &= infos & vbNewLine
      11. Next
      12. MsgBox(Disk_Infos)
      13. End Sub
      15. End Class​

      Counterbug schrieb:

      Wird bei enum.ToString() tatsächlich der Name ausgegeben?
      Hättest Du das probiert, wärst Du schneller an dieser Information gewesen. Selbst die MSDN ist hier hilfreich:
      Bilder

      • Enum.png

        10,92 kB, 1.367×73, 285 mal angesehen
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      ich wollte mal was mit Temperatur probieren, da kam nur ein error:

      VB.NET-Quellcode

      1. Dim DiskDrive = WMI.Hardware.GetProperties(WMI.Hardware.Win32._HeatPipe)
      2. Dim Disk_Infos As String = ""
      3. For Each infos As String In DiskDrive!Caption
      4. Disk_Infos &= infos & vbNewLine
      5. Next
      6. MsgBox(Disk_Infos)

      Das war eine KeyNotFoundException bei DiskDrive!Caption

    Facebook
    Telefonspende