WMI Abfragen sehr langsam

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    WMI Abfragen sehr langsam

    Moin moin

    Ich habe mir hier eine WMI Abfrage gemacht, um verschiedene Laufwerke zu ermitteln. Erstmal alles auf dem Form, später will ich das in eine Class setzen.
    Nun zu meinem Problem.

    Wenn ich das Prog. starte, dauert es viel länger die LW mit ListUSBDrive als mit ListDrive zu ermitteln.

    1.) Warum ist das so?
    2.) Kann ich die Abfrage kürzen? Weniger For/Each Schleifen?
    Das habe ich schon versucht, klappte aber nicht.

    Spoiler anzeigen

    Versuch zu Punkt 2.
    Ein Ausnahmefehler des Typs "System.Management.ManagementException" ist in System.Management.dll aufgetreten. Zusätzliche Informationen: Die Anfrage ist ungültig.

    VB.NET-Quellcode

    1. Private Sub ListUSBDrives()
    2. cmbDrives.Items.Clear()
    4. Dim query As String = "SELECT LD.DeviceID FROM Win32_DiskDrive DD " &
    5. "JOIN Win32_DiskDriveToDiskPartition DP ON DD.DeviceID=DP.Antecedent " &
    6. "JOIN Win32_LogicalDiskToPartition LP ON DP.Dependent=LP.Dependent " &
    7. "JOIN Win32_LogicalDisk LD ON LP.Dependent=LD.DeviceID " &
    8. "WHERE (DD.MediaType='External hard disk media' OR DD.MediaType='Removable media')"
    10. Dim searcher As New ManagementObjectSearcher(query)
    12. For Each logicalDisk As ManagementObject In searcher.Get()
    13. cmbDrives.Items.Add(logicalDisk("DeviceID").ToString())
    14. Next
    15. End Sub



    3.) Kann ich diese Abfragen bzgl. der "internen" und "externen" Laufwerke evtl noch anders gestallten? Die "DriveInfo" aus dem .Net filtert leider die USB-Festplatten zu "internen Festplatten" :(

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ListDrives()
    2. If Not isCleaning Then
    3. cmbDrives.Items.Clear()
    5. For Each drive As DriveInfo In allDrives
    6. If drive.IsReady Then
    7. Dim label As String = drive.VolumeLabel
    8. If Not String.IsNullOrEmpty(label) AndAlso label.All(Function(c) Char.IsLetterOrDigit(c) OrElse Char.IsWhiteSpace(c)) Then
    9. cmbDrives.Items.Add(drive.Name) ' & " (" & label & ")")
    10. Else
    11. cmbDrives.Items.Add(drive.Name)
    12. End If
    13. End If
    14. Next
    16. If cmbDrives.Items.Count > 0 Then
    17. cmbDrives.SelectedIndex = 0
    18. End If
    20. End If
    21. End Sub
    24. Private Sub ListUSBDrives()
    25. If Not isCleaning Then
    26. cmbDrives.Items.Clear()
    28. ' Suchabfrage nur für USB- und Wechselmedienlaufwerke
    29. Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE (MediaType='External hard disk media' OR MediaType='Removable media')")
    31. For Each drive As ManagementObject In searcher.Get()
    32. Dim partitionsQuery As String = $"ASSOCIATORS OF {{Win32_DiskDrive.DeviceID='{drive("DeviceID")}'}} WHERE AssocClass = Win32_DiskDriveToDiskPartition"
    33. Dim partitionSearcher As New ManagementObjectSearcher(partitionsQuery)
    35. For Each partition As ManagementObject In partitionSearcher.Get()
    36. Dim logicalDisksQuery As String = $"ASSOCIATORS OF {{Win32_DiskPartition.DeviceID='{partition("DeviceID")}'}} WHERE AssocClass = Win32_LogicalDiskToPartition"
    37. Dim logicalDisksSearcher As New ManagementObjectSearcher(logicalDisksQuery)
    39. For Each logicalDisk As ManagementObject In logicalDisksSearcher.Get()
    40. cmbDrives.Items.Add(logicalDisk("DeviceID").ToString())
    41. Next
    42. Next
    43. Next
    45. If cmbDrives.Items.Count > 0 Then
    46. cmbDrives.SelectedIndex = 0
    47. End If
    48. End If
    49. End Sub
    51. Private Sub chkOnlyUSB_CheckedChanged(sender As Object, e As EventArgs) Handles chkOnlyUSB.CheckedChanged
    52. If Not chkOnlyUSB.Checked Then
    53. ListDrives()
    54. Else
    55. ListUSBDrives()
    56. End If
    57. End Sub



    Verschoben. ~Thunderbolt
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Ich kenn mich mit WMI nicht aus aber Microsoft schreibt folgendes.

    MSDN schrieb:


    So verbessern Sie die Enumerationsleistung

    Legen Sie den Parameter lFlags fest, um die
    halbsynchrone Rückgabe der Daten mit einem Enumerator zu ermöglichen,
    der jedes Element aus WMI verwirft, während es übermittelt wird. Weitere
    Informationen finden Sie unter Aufrufen einer Methode.

    Verbessern der Enumerationsleistung

    Das bringt einen dann zu EnumerationOptions Klasse genauer gesagt zu der Eigenschaft ReturnImmediately mit Eigenschaft soll sich wohl die halbsynchrone Enumeration aktivieren lassen.

    Moin moin

    Vorweg zur Erklärung:
    Laufwerk " A:\ & B:\ " sind zwei M.2 SSD, welche mit jeweils einem identischem PCIe Adapter eingebunden sind. Alle anderen internen Laufwerke sind normale SSDs und eine HDD ( LW X:\ )

    Habe das ganze nun einmal in eine Class gebracht.
    Das Anzeigen der verschiedenen MediaTypen klappt, ist zwar noch immer etwas langsam beim ersten Starten und wenn ich von nur USB zu Internal umschalte, aber das geht wohl nicht schneller. :?:

    Das Problem:
    Wenn ich die Sortierung und die Filterung nach Duplikaten aus dem Code raus nehme ist die Liste durcheinander und LW A:\ wird doppelt ausgegeben. Siehe Bildanhang. ?(

    Spoiler anzeigen
    ​
    Die Class:

    VB.NET-Quellcode

    1. ​
    2. Public Class DriveManager
    3. Public Event DrivesListed As EventHandler(Of List(Of String))
    4. Friend onlyUSB As Boolean
    6. Public Enum MediaType
    7. ExternalOrRemovable = 1
    8. Fixed = 2
    9. End Enum
    11. Private Const ExternalOrRemovableQuery As String = "SELECT DeviceID FROM Win32_DiskDrive WHERE MediaType='External hard disk media' OR MediaType='Removable media'"
    12. Private Const FixedQuery As String = "SELECT DeviceID FROM Win32_DiskDrive WHERE MediaType='Fixed hard disk media'"
    14. Public Sub ListDrives(driveType As MediaType)
    15. Dim drivesList As New List(Of String)()
    17. Dim query As String = GetQueryByType(driveType)
    18. If query <> "" Then
    19. Dim searcher As New ManagementObjectSearcher(query)
    21. For Each drive As ManagementObject In searcher.Get()
    22. Dim partitionsQuery As String = $"ASSOCIATORS OF {{Win32_DiskDrive.DeviceID='{drive("DeviceID")}'}} WHERE AssocClass = Win32_DiskDriveToDiskPartition"
    23. Dim partitionSearcher As New ManagementObjectSearcher(partitionsQuery)
    25. For Each partition As ManagementObject In partitionSearcher.Get()
    26. Dim logicalDisksQuery As String = $"ASSOCIATORS OF {{Win32_DiskPartition.DeviceID='{partition("DeviceID")}'}} WHERE AssocClass = Win32_LogicalDiskToPartition"
    27. Dim logicalDisksSearcher As New ManagementObjectSearcher(logicalDisksQuery)
    29. For Each logicalDisk As ManagementObject In logicalDisksSearcher.Get()
    30. Dim driveID As String = logicalDisk("DeviceID").ToString() & "\"
    32. ' Prüfe auf Duplikate anhand einer anderen Eigenschaft
    33. If Not drivesList.Any(Function(d) d.StartsWith(driveID)) Then
    34. drivesList.Add(driveID)
    35. End If
    36. Next
    37. Next
    38. Next
    40. ' Sortiere die Liste der Laufwerksbuchstaben
    41. drivesList.Sort()
    43. RaiseEvent DrivesListed(Me, drivesList)
    44. End If
    45. End Sub
    47. Private Function GetQueryByType(driveType As MediaType) As String
    48. Select Case driveType
    49. Case MediaType.ExternalOrRemovable
    50. Return ExternalOrRemovableQuery
    51. Case MediaType.Fixed
    52. Return FixedQuery
    53. Case Else
    54. Return ""
    55. End Select
    56. End Function
    57. End Class


    Auf dem MainForm:

    VB.NET-Quellcode

    1. ​
    2. ' Aufruf in der Class
    3. Private Sub ListDrives()
    4. If driveManager.onlyUSB Then
    5. driveManager.ListDrives(CType(1, DriveManager.MediaType))
    6. Else
    7. driveManager.ListDrives(CType(2, DriveManager.MediaType))
    8. End If
    9. End Sub
    11. ' Event-Handler für das Event DrivesListed
    12. Private Sub driveManager_DrivesListed(sender As Object, drivesList As List(Of String)) Handles driveManager.DrivesListed
    13. cmbDrives.Items.Clear()
    14. For Each drive As String In drivesList
    15. cmbDrives.Items.Add(drive)
    16. Debug.WriteLine("Laufwerke: " & drive)
    17. Next
    19. If cmbDrives.Items.Count > 0 Then
    20. cmbDrives.SelectedIndex = 0
    21. End If
    22. End Sub
    24. ' Laufwerkerkennung basierend auf dem Zustand der Checkbox zu starten
    25. Private Sub chkOnlyUSB_CheckedChanged(sender As Object, e As EventArgs) Handles chkOnlyUSB.CheckedChanged
    26. driveManager.onlyUSB = chkOnlyUSB.Checked
    27. ListDrives()
    28. End Sub






    @Fakiz
    ​So verbessern Sie die Enumerationsleistung

    So ganz kapiere ich das nicht und das scheint wohl für Vb nicht zuzutreffen?
    Bilder

    • Laufwerke-1.jpg

      59,53 kB, 535×168, 81 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Also um die Duplikate rauszubekommen kannst du auch vor drivesList.Sort() driveList.Distinct() aufrufen damit würdes du dann drivesList.Any(...) nicht mehr benötigen.
    Aber unterschied dürfte das wohl kaum machen.

    Zu den MS Empfehlungen. Die Optimierung von MS haben bei mir auch nur 30ms Auswirkung. Aber egal was ich mache, mit dem von dir gezeigten Code läuft das bei mir im schlimmsten Fall in 278ms durch.

    @-Franky-

    Nach meinen Recherchen, kann .Net mir das eben nicht so ausgeben. Z.B. mit:

    VB.NET-Quellcode

    1. ​
    2. Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
    3. For Each drive As DriveInfo In allDrives
    4. cmbHdds.Items.Add(drive.Name)
    5. Next

    Das gibt mir "externe Festplatten" nicht separat aus sondern nur als Festplatte.
    Mit den API habe ich bis her noch nichts gemacht, soweit bin ich noch nicht.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @VB1963
    DriveType.Removable bzw. DriveType.Fixed sind leider wertlos,
    da manche über USB angeschlossene Festplatten als .Fixed erkannt werden.

    @Amelie
    Habe mal eine ähnliche, noch langsamere Methode :D rausgekramt, vieleicht bringts dir was:

    VB.NET-Quellcode

    1. Public Shared Function GetUSBDrives() As USBDriveInfo()
    2. Dim usbDriveInfos As New List(Of USBDriveInfo)
    3. Using Win32_PnPEntitySearcher As New ManagementObjectSearcher(
    4. "SELECT * FROM Win32_PnPEntity WHERE (DeviceID Like ""USBSTOR%"" OR DeviceID Like ""SCSI%"") AND PNPClass = ""DiskDrive""")
    5. For Each pnpEntityQueryObj As ManagementObject In Win32_PnPEntitySearcher.Get()
    6. Using Win32_DiskDriveSearcher As New ManagementObjectSearcher(
    7. "SELECT * FROM Win32_DiskDrive WHERE Not MediaType Like ""Fixed hard disk media""")
    8. For Each diskDriveQueryObj As ManagementObject In Win32_DiskDriveSearcher.Get()
    9. If Not pnpEntityQueryObj.GetPropertyValue("PNPDeviceID").Equals(diskDriveQueryObj.GetPropertyValue("PNPDeviceID")) Then
    10. For Each diskPartitionQueryObj As ManagementObject In diskDriveQueryObj.GetRelated("Win32_DiskPartition")
    11. For Each logicalDiskQueryObj As ManagementBaseObject In diskPartitionQueryObj.GetRelated("Win32_LogicalDisk")
    12. Dim usbDriveInfo As New USBDriveInfo(logicalDiskQueryObj.GetPropertyValue("Name").ToString)
    13. If Not usbDriveInfos.Exists(Function(_x) _x.Name = usbDriveInfo.Name) Then
    14. usbDriveInfos.Add(usbDriveInfo)
    15. End If
    16. Next
    17. Next
    18. End If
    19. Next
    20. End Using
    21. Next
    22. End Using
    23. Return usbDriveInfos.ToArray
    24. End Function

    Ziel war es, ausschließlich über USB angeschlossene Speichermedien zu erfassen,
    daher habe ich bei "SELECT * FROM Win32_PnPEntity WHERE (DeviceID Like ""USBSTOR%"" OR DeviceID Like ""SCSI%"") AND PNPClass = ""DiskDrive""" angesetzt.
    Wahrscheinlich eher suboptimal, ich habe es aber nicht anders hinbekommen.

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