Этой функцией я получаю данные по дискам в 32 битной версии.
мне надо получить эти данные в 64 битной версии.
какова будет строка запроса?.Данные в инете не нашел
- Код: Выделить всё
Private Function M_Drive ()
Dim sAns As String = ""
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_DiskDrive WHERE InterfaceType like '%ID%' ")
Dim s As Object
s = searcher
For Each queryObj As ManagementObject In searcher.Get()
sAns = sAns & "Caption:" & queryObj("Caption").ToString() & vbCrLf
sAns = sAns & "Signature:" & queryObj("Signature").ToString() & vbCrLf
Next
Return sAns
Catch ex As Exception
End Try
End Function
