Moin moin
Bein meinem Code hier werden mir zwar die Infos ausgegeben aber die Zuordnung stimmt nicht. Ich habe schon so vieles versucht aber alles ohne Erfolg.
Die "ManufactorSerial" wir dem falschen Laufwerk zugewiesen.
In der Debungausgabe müsste die erste ManufactorSerial beim zweiten stehen.
Debugausgabe:
Bein meinem Code hier werden mir zwar die Infos ausgegeben aber die Zuordnung stimmt nicht. Ich habe schon so vieles versucht aber alles ohne Erfolg.
Die "ManufactorSerial" wir dem falschen Laufwerk zugewiesen.
In der Debungausgabe müsste die erste ManufactorSerial beim zweiten stehen.
VB.NET-Quellcode
-
- Private Sub LoadDatafromWMI()
- Try
- Dim queryUSBDrive As New SelectQuery("Win32_LogicalDisk", "DriveType=2") ' Filter for(USB)
- Dim searcher As New ManagementObjectSearcher(queryUSBDrive)
- Dim drives As ManagementObjectCollection = searcher.Get()
- Dim manufactorSearcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'")
- Dim manufactorDrives As ManagementObjectCollection = manufactorSearcher.Get()
- Dim manufactorDriveEnumerator As IEnumerator = manufactorDrives.GetEnumerator()
- For Each drive As ManagementObject In drives
- If manufactorDriveEnumerator.MoveNext() Then
- Dim manufactorDrive As ManagementObject = DirectCast(manufactorDriveEnumerator.Current, ManagementObject)
- manufactorSerialNumber = manufactorDrive("SerialNumber").ToString()
- volumenSerialNumber = TryCast(drive("VolumeSerialNumber"), String)
- volumenLabel = TryCast(drive("VolumeName"), String)
- Debug.WriteLine("ManufactorSerial: " & manufactorSerialNumber)
- Debug.WriteLine("VolumenSerial: " & volumenSerialNumber)
- Debug.WriteLine("VolumenLabel: " & volumenLabel)
- Debug.WriteLine("-------------------------------")
- Else
- Exit For
- End If
- Next
- Debug.WriteLine("Get Infos Successful")
- Catch ex As ManagementException
- MessageBox.Show("An error occurred: " & ex.Message)
- End Try
- End Sub
Debugausgabe:
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.