INFOS WMI DES DISQUES DURS (LIEN LECTEUR LOGIQUE / LECTEUR PHYSIQUE)

Commentaire de moogliber le 03/02/2009 15:24:45

Pourrais tu stp donner un exemple d'utilisation de la fonction GetDiskDriveFromLogical.
Par ex, comment retourner le numéro de série du dd, qui correspond au lecteur logique C: ?

Commentaire de moogliber le 03/02/2009 18:13:12

dsl j'aurais dû regarder dans le zip.
J'ai un autre code qui lui fonctionne sous bien sous XP, comme sous vista.
Seulement il faut lui fournir en entrée le NUMERO(intDriveNumber) de lecteur logique (et non la lettre du lecteur C:)

Le seul truc manquant est donc de faire le lien entre le numéro de lecteur(ex: 0) et le nom du lecteur (C:\).
Si j'arrive à faire le lien entre les 2 c'est gagné.

------------------------------
Private Function GetDriveSerialNumber(intDriveNumber As Integer) As String
    Dim objWMIService As Object, _
        colItems As Object, _
        objItem As Object, _
        strDrive As String
    strDrive = "\\\\.\\PHYSICALDRIVE" & intDriveNumber
    'On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia Where Tag = '" & strDrive & "'", , 16)
    'Set objItem = colItems.Item(strKey)
    For Each objItem In colItems
        GetDriveSerialNumber = Trim(objItem.SerialNumber)
   'exit for
    Next

End Function
-------------------------------------

Commentaire de Renfield le 03/02/2009 18:29:07 administrateur CS

si ton code fonctionne

en relevant tes manches, tu parviendras surement a adapter mon code pour récuperer un Win32_PhysicalMedia

tu apprendras plus en mettant les yeux dans MSDN et tes mains dans le code

Commentaire de moogliber le 03/02/2009 18:33:14

Mais ton code ne marche pas sous XP

Commentaire de Renfield le 04/02/2009 08:55:43 administrateur CS

comme je te le disais, en utilisant WMI Helper, simple de savoir comment récuperer un physicalMedia, et donc, le SerialNumber...



Private Function GetDriveSerialNumber(ByRef vsDriveLetter As String) As String
Dim sBuffer As String
Dim oWMI As Object
Dim oItem As Object
Dim oCol As Object
    If LenB(vsDriveLetter) Then
        sBuffer = Left$(vsDriveLetter, 1)
    Else
        sBuffer = Left$(App.Path, 1)
    End If
    
    Set oWMI = GetObject("winmgmts:root\cimv2")
    If Not Nothing Is oWMI Then
        '# On récupère la partition liée au lecteur logique
        Set oCol = oWMI.ExecQuery("REFERENCES OF {Win32_LogicalDisk='" & sBuffer & ":'} WHERE ResultClass = Win32_LogicalDiskToPartition")
        For Each oItem In oCol
            '# On passe du lien, à la partition
            Set oItem = GetObject("winmgmts:" & oItem.Antecedent)
            Exit For
        Next oItem
        
        '# On refait la même, on passe de la partition au disque physique
        sBuffer = oItem.DeviceId
        Set oCol = oWMI.ExecQuery("REFERENCES OF {Win32_DiskPartition='" & sBuffer & "'} WHERE ResultClass=Win32_DiskDriveToDiskPartition")
        For Each oItem In oCol
            '# On passe du lien "partition/disque" au disque
            Set oItem = GetObject("winmgmts:" & oItem.Antecedent)
            Exit For
        Next oItem
        
        '# On refait la même, on passe du disque physique au physical media
        sBuffer = oItem.DeviceId
        Set oCol = oWMI.ExecQuery("REFERENCES OF {Win32_PhysicalMedia='" & sBuffer & "'} WHERE ResultClass=Win32_DiskDrivePhysicalMedia")
        For Each oItem In oCol
            '# On passe du lien "partition/disque" au disque
            Set oItem = GetObject("winmgmts:" & oItem.Antecedent)
            Exit For
        Next oItem
        
        GetDriveSerialNumber = Trim$(oItem.SerialNumber)
    End If
End Function

Commentaire de Renfield le 05/02/2009 17:08:46 administrateur CS

bien d'accord ^^

Commentaire de Renfield le 06/04/2009 10:55:01 administrateur CS

le code fonctionne, sous .NET (je viens de tester)
suffit de l'adapter un peu (App.Path a virer, etc.)

    Private Function GetDriveSerialNumber(ByRef vsDriveLetter As String) As String
        Dim sBuffer As String
        Dim oWMI As Object
        Dim oItem As Object = Nothing
        Dim oCol As Object

        GetDriveSerialNumber = vbNullString

        oWMI = GetObject("winmgmts:root\cimv2")
        If Not Nothing Is oWMI Then
            '# On récupère la partition liée au lecteur logique
            oCol = oWMI.ExecQuery("REFERENCES OF {Win32_LogicalDisk='" & vsDriveLetter & ":'} WHERE ResultClass = Win32_LogicalDiskToPartition")
            For Each oItem In oCol
                '# On passe du lien, à la partition
                oItem = GetObject("winmgmts:" & oItem.Antecedent)
                Exit For
            Next oItem

            If Not Nothing Is oItem Then
                '# On refait la même, on passe de la partition au disque physique
                sBuffer = oItem.DeviceId
                oCol = oWMI.ExecQuery("REFERENCES OF {Win32_DiskPartition='" & sBuffer & "'} WHERE ResultClass=Win32_DiskDriveToDiskPartition")
                For Each oItem In oCol
                    '# On passe du lien "partition/disque" au disque
                    oItem = GetObject("winmgmts:" & oItem.Antecedent)
                    Exit For
                Next oItem

                If Not Nothing Is oItem Then
                    '# On refait la même, on passe du disque physique au physical media
                    sBuffer = oItem.DeviceId
                    oCol = oWMI.ExecQuery("REFERENCES OF {Win32_PhysicalMedia='" & sBuffer & "'} WHERE ResultClass=Win32_DiskDrivePhysicalMedia")
                    For Each oItem In oCol
                        '# On passe du lien "partition/disque" au disque
                        oItem = GetObject("winmgmts:" & oItem.Antecedent)
                        Exit For
                    Next oItem

                    GetDriveSerialNumber = Trim$(oItem.SerialNumber)
                End If
            End If
        End If
    End Function



c'est pas du bon .NET, hein, par contre ^^

Commentaire de Christ_OFF le 28/11/2009 16:49:15

Bonjour (et help),

Précieuses infos que ces manipulations WMI !
Je viens de les intégrer dans un de mes 'tit prog. pour lister les Disques Physiques/Disques logiques/...

Mais j'ai un petit problème avce ce WMI : Au démarrage, lorsqu'on liste les disques présents (For each ...) l'appli se fige pendant quelques secondes et je pense que c'est dû à la détection du lecteur disquette (présence voyant allumé et tests sur plusieurs PC).
Il y a peut être aussi une autre raison  car cela me parait bizarrement long !
Par la suite, je liste les unités avec fso.Drives qui ne me provoque pas ce "bug", puisque filtrage DriveType.

Question : il y aurait-il une méthode pour ce "check" WMI des disques physiques évite la détection Disquette, comme par exemple commencer à la lettre C:\ ? Ou bien y a t-il une autre raison de ce "freeze" ? Ou avez-vous des symptômes différents ?

Merci d'avance pour votre aide

Commentaire de Renfield le 29/11/2009 17:43:39 administrateur CS

possible de jouer en async ^^

mais c'est globalement lent, on est d'accord