翻译《The Old New Thing》- How do I obtain the computer manufacturer’s name?

How do I obtain the computer manufacturer's name? - The Old New Thing (microsoft.com)https://devblogs.microsoft.com/oldnewthing/20081218-00/?p=19783

Raymond Chen 2008年08月08日

如何获取计算机制造商的名字？

一位客户想要一种方法来确定计算机制造商的名称。例如，他们想要通过某种函数调用并得到返回结果“IBM”、“Compaq”或“Dell”。

我不知道他们为什么想要这些信息，目前我也不关心。

当然，当你寻找信息时，你不会去搜索 MSDN；那是疯狂的人会做的事情。不，让我们直接启动注册表编辑器（regedit）并按 Ctrl+F（搜索）。

我无法想象有多少应用程序兼容性错误是由注册表编辑器中那个“有用”的 Ctrl+F 对话框造成的。

客户找到了用于自定义系统控制面板的注册表键，以及也参与其中的 OEMINFO.INI 文件。但随后出现了可靠性问题。

毕竟，由于它只是一个注册表键和一个 INI 文件，用户可以编辑它并让它显示任何他们想要的内容。

如果客户擦除了他们的硬盘并从头开始重新安装 Windows，那么这些信息也会丢失。

这位客户想要某种程度的保证，即如果计算机声明它是 Dell，那么它确实是 Dell。

进入 WMI（Windows 管理工具）。

脚本团队对 WMI 非常熟悉。如果你搜索短语“from Win32_ComputerSystem”，你将从《嘿，脚本小子！》栏目中找到一次又一次的命中。

恰好 WMI 也暴露了计算机制造商信息。

如果你查看脚本团队发布的脚本，可能三分之二的脚本都遵循这种模式：

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from something“)
For Each objItem in colItemsWscript.Echo objItem.something
Next

我们所要做的就是填充“something”。

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_ComputerSystem“)
For Each objItem in colItemsWscript.Echo “System Name: ” & objItem.NameWscript.Echo “Manufacturer: ” & objItem.ManufacturerWscript.Echo “Model: ” & objItem.ModelWscript.Echo
Next

好的，我们可以利用 WMI 获取这些信息。但它有多可靠呢？

嗯，WMI 团队告诉我，他们通过直接查询 SMBIOS 来获取信息，所以它的可靠性和你的 BIOS 一样。

主要制造商会把他们的名字写入 BIOS，但如果你是在家用机器上运行，那么这些值就是主板上附带的。

BIOS 制造商通常会在他们的 SMBIOS 中放置占位符字符串，将制造商设置为一个通用字符串，比如“Manufacturer”。

当主板制造商安装 BIOS 时，他们应该用更有意义的内容替换占位符字符串，但大多数制造商并不在意。

结果是，你从当地电脑商店购买零件组装的机器，制造商很可能只会显示“Manufacturer”。

总结来说，如果你查询 WMI 获取计算机制造商，如果返回“Dell”，那么你可以相当确定你有一台 Dell 计算机。