How To Get Computer Serial Number In Vbnet

by

Jul 21, 2005  home > topics >.net framework > questions > computer information in vb.net + Ask a Question. Post your question and get tips & solutions from a community of 424,342 IT Pros & Developers. How would I go about getting computer information on my local computer, i.e. Serial number, hard drive size, memory installed, etc. Jan 29, 2019 - Get mother board serial numbers and CPU IDs in. Management Instrumentation, Visual Basic.NET, VB.NET. Computer & ' root.I assume that.

Vb.net - Find harddisc serial number A lot of times you need to get the serial number of the harddisc of the user for all kind of purpeses. Plan raboti s rezervom starshej medsestri. Here you can learn how to do it fast and easy with vb.net Here is a copy of the function I used in this software: Public Function GetHDSerialNo(ByVal strDrive As String) As String 'Get HD Serial Number 'Ensure Valid Drive Letter Entered, Else, Default To C If strDrive = ' OrElse strDrive Is Nothing Then strDrive = 'C' End If Dim moHD As New ManagementObject('Win32_LogicalDisk.DeviceID='' + strDrive + ':'') 'Get Info moHD.[Get]() Return moHD('VolumeSerialNumber').ToString() End Function. Metro 2033 yandex disk windows 10.

Serial

' Function driveser (model) ' Returns the serial number of the drive specified in 'model' or an empty string. ' 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.