strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48) For Each objItem In colItems Msgbox objItem.SerialNumber Next
'My Project > References > Add > System.Managment Imports System.Management Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sys As New ManagementObjectSearcher("Select * from Win32_bios") Dim infoBios As ManagementObject For Each infoBios In sys.Get() TextBox1.Text = "SerialNumber : " & infoBios("SerialNumber").ToString() Next End Sub End Class