How To Get Computer Serial Number In Vbnet

I am writing an application in Visual Basic that pulls basic information about the computer and outputs the data onto a form. Currently, I am trying to pull the serial number for the machine I would be using. For example, pulling a serial number of a laptop from the BIOS. Nov 21, 2005 - Does anyone know how to retrieve the system serial number? I'm writing an. Number and with a computer connected to a LAN or whatever that uses a network adapter. Ever-so-slightly to work in VB.NET. But it retrieves.

I am writing an application in Visual Basic that pulls basic information about the computer and outputs the data onto a form. Currently, I am trying to pull the serial number for the machine I would be using. For example, pulling a serial number of a laptop from the BIOS. I have looked around the internet and haven't really found how to do this in Visual Basic without using WMI or C. Switchgear protection and power systems sunil s rao pdf free download.

Is there a way to do this in Visual Basic? Below is what I have currently in the form, so you can get an idea of what I am trying to do: TextBoxComputerName.Text = Environment.MachineName TextBoxOSVersion.Text = System.Environment.OSVersion.ToString TextBoxOSFullName.Text = My.Computer.Info.OSFullName TextBoxCurrentUser.Text = System.Environment.UserName TextBox64Bit.Text = System.Environment.Is64BitOperatingSystem TextBoxSystemDirectory.Text = System.Environment.SystemDirectory TextBoxDomain.Text = System.Environment.UserDomainName ' CHECK SERIAL NUMBER HERE. Thank you all so much! This will work for you just great!

First add reference to System.Management and then make sure to import it at the top of your class as well. I did this on a form load event, but you can put it anywhere. Imports System.Management Dim q As New SelectQuery('Win32_bios') Dim search As New ManagementObjectSearcher(q) Dim info As New ManagementObject For Each info In search.Get MessageBox.Show('Serial Number: ' & info('serialnumber').ToString & vbNewLine & vbNewLine & 'Bios Version: ' & info('version').ToString) Next You can declare a string first if you would like and then set it to: info('serialnumber').ToString and the set that to you txtSerial.Text = your declared string Here is what I get. I found a way to get to this a bit backwards in VBA, using the FileSystemObject.

You will need to set a reference to the Windows Scripting Runtime. Option Explicit Public Sub GetHDSerial() Dim objFSO As FileSystemObject Dim objFolder As Folder Dim strComputer As String strComputer = 'myComputer' Set objFSO = New FileSystemObject Set objFolder = objFSO.GetFolder(' ' & strComputer & ' c$') Debug.Print Hex(objFolder.Drive.SerialNumber) Set objFSO = Nothing Set objFolder = Nothing End Sub This does not account for multiple physical drives, which wasn't a problem in my environment.