通过Visual Basic拉出硬件序列号？

Question

我正在Visual Basic中编写一个应用程序,它提取有关计算机的基本信息并将数据输出到表单上.目前,我正在尝试拉出我将要使用的机器的序列号.例如,从BIOS中提取笔记本电脑的序列号.我已经浏览了互联网,并没有真正找到如何在不使用WMI或C的情况下在Visual Basic中执行此操作.有没有办法在Visual Basic中执行此操作？

以下是我目前在表单中的内容,因此您可以了解我要做的事情:

        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.

非常感谢你们!

Answer 1

这对你很有帮助!首先添加对System.Management的引用,然后确保将其导入到类的顶部.我在表单加载事件上做了这个,但你可以把它放在任何地方......

  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

您可以首先声明一个字符串,如果你想,然后将其设置为:信息("SERIALNUMBER")的ToString和组到您txtSerial.Text =你声明的字符串

这是我得到的......