' Function driveser (model) ' Returns the serial number of the drive specified in 'model' or an empty string. Klavomed suspenziya dozirovka. ' Please include this is you are going to use it. ' (C) By Zibri 2013 ' Free for non commercial use. ' zibri AT zibri DOT org Function driveser(ByVal model As String) As String Dim devid As String = ' driveser = ' Try Dim searcher As New ManagementObjectSearcher( _ 'root CIMV2', _ 'SELECT * FROM Win32_DiskDrive WHERE Model LIKE '%' + model + '%') For Each queryObj As ManagementObject In searcher.Get() If queryObj('SerialNumber') ' Then driveser = queryObj('SerialNumber') Debug.Print(queryObj('Model') + ':' + driveser) Next Catch err As ManagementException Debug.Print('An error occurred while querying for WMI data: ' & err.Message) End Try End Function.

How to get Lan card number,lan card name,hard disk drive number,processor,motherboard id,c drive volume serial number and d drive volume serial number Retrieve Motherboard Serial Number on. Incoming search terms. Get Computer Hardware Information using C#, How to get software & hardware information using ASP.NET, Get System Info using C#, Collecting Hardware Information using C#, Get Your Hardware Information Using C#, Get your System Information using C#, How To Get System Information Remotely Using C#, How To Get Hardware Information (CPU ID, MainBoard Info, Hard Disk Serial.