You want to set the Scope property on the ManagementObjectSearcher. In C# it looks something like this: System.Management.ConnectionOptions options = new System.Management.ConnectionOptions(); options.Username = 'username'; //could be in domain user format options.Password = 'Secret!!!'

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.

How to get mother board serial number from vb.net code. I use the following codes to get the mother board serial number. Computer SID + CPUID.

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. Ca driver 39 s license. 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.