我正在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.
非常感谢你们!
这对你很有帮助!首先添加对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 =你声明的字符串
这是我得到的......