主题：[求助]狐表如何读取电脑硬件信息和生产日期

获取硬件信息，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113855&skin=0

1、出厂时间等无法获取；能获取的信息，参考楼上代码，看懂代码。

2、序列号都是唯一的。你也可以用foxtable自带的msgbox(computerid)或者msgbox(harddiskid)

这个是获取硬盘号，如果你硬盘不变，就不会变。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85795&skin=0

参考

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine("wmic bios get releasedate")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)