IBM服务器会在表面上写着服务器的型号和序列号。

但是很难判别字母O和数字0，重启服务器的时候可以F1进入BIOS中查看硬件信息看到。

但是不在服务器身边的时候是无法直接查看了。

IBM服务器可以安装DSA软件，也能从收集的文件中清晰的看到，不过那是需要安装程序，需要下载程序才能执行。

其实远程在服务器本地执行VBS脚本也可以查看的。

微软Script自动生成的查看产品信息的脚本test.vbs如下文：

On Error Resume Next

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

arrComputers = Array("AAA")

For Each strComputer In arrComputers

WScript.Echo

WScript.Echo

"=========================================="

WScript.Echo "Computer: "

& strComputer

WScript.Echo

"=========================================="

Set objWMIService =

GetObject("winmgmts:\" & strComputer

& "\root\CIMV2")

Set colItems =

objWMIService.ExecQuery("SELECT * FROM

Win32_ComputerSystemProduct", "WQL", _

wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In

colItems

WScript.Echo "Caption: " & objItem.Caption

WScript.Echo "Description: " &

objItem.Description

WScript.Echo "IdentifyingNumber: " &

objItem.IdentifyingNumber

WScript.Echo "Name: " & objItem.Name

WScript.Echo "SKUNumber: " &

objItem.SKUNumber

WScript.Echo "UUID: " & objItem.UUID

WScript.Echo "Vendor: " & objItem.Vendor

WScript.Echo "Version: " & objItem.Version

WScript.Echo

Next

Next

在命令行下执行：

cscript.exe /NoLogo

test.vbs

C:\>cscript /nologo 1.vbs

==========================================

Computer: AAA

==========================================

Caption: 计算机系统产品

Description: 计算机系统产品

IdentifyingNumber: 99WCBC5

Name: eserver xSeries 345 -[8670L1C]-

SKUNumber:

UUID: B391C58E-1DEA-11B2-A674-B8885A382193

Vendor: IBM

Version:

其实有用的信息就三行：

服务器厂商，型号，和序列号。

所以简化下脚步就可以得到

On Error Resume Next

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

strComputer = "."

For Each strComputer In arrComputers

Set objWMIService =

GetObject("winmgmts:\" & strComputer

& "\root\CIMV2")

Set colItems =

objWMIService.ExecQuery("SELECT * FROM

Win32_ComputerSystemProduct", "WQL", _

wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In

colItems

WScript.Echo "产品序列号: " &

objItem.IdentifyingNumber

WScript.Echo "产品型号: " & objItem.Name

WScript.Echo "厂商: " & objItem.Vendor

WScript.Echo

Next

Next

运行结果得到

C:\>cscript /nologo

test.vbs

产品序列号: 99WCBC5

产品型号: eserver xSeries 345 -[8670L1C]-

厂商: IBM

在sina上第一次写blog，希望对大家日常维护有些用处。