<StructLayout(LayoutKind.Sequential)> Public Structure sDrvInfo
        Dim cbSize As Long
        Dim DriverType As Long
        Dim Reserved As Long
        <MarshalAs(UnmanagedType.LPWStr)> Dim Description As String
        <MarshalAs(UnmanagedType.LPWStr)> Dim MfgName As String
        <MarshalAs(UnmanagedType.LPWStr)> Dim ProviderName As String
        Sub New(ByVal b As Boolean)
            cbSize = Marshal.SizeOf(Me) : DriverType = 0 : Reserved = 0
        End Sub
    End Structure
 
...
 
        <DllImport("setupapi.dll")> Private Shared Function _
          SetupDiEnumDriverInfoW(ByVal DeviceInfoSet As IntPtr, ByRef _
          DeviceInfoData As Devices.clsDeviceInfo.sDevInfo, ByVal DriverType As _
          UInt32, ByVal MemberIndex As UInt32, ByRef DriverInfoData As _
          sDrvInfo) As Boolean
        End Function

        Public Sub GetDriverList(ByVal mPointer As UInt32, ByVal mDevinfo As _
          Devices.clsDeviceInfo.sDevInfo)
            Dim res As Boolean = SetupDiBuildDriverInfoList(mPointer, mDevinfo, _
            &H2)
            Console.WriteLine(res & " " & mDevinfo.ClassGuid.ToString) 'TRUE, 
            ' also OK
 
            DrvInfo.cbSize = Marshal.SizeOf(DrvInfo) '40, also OK
 
            res = SetupDiEnumDriverInfoW(mPointer, mDevinfo, &H2, 0, DrvInfo)
 
            Console.WriteLine(res & " " & GetLastError()) 'FALSE 1784, NICHT OK
        End Sub

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com