IBM服務(wù)器會(huì)在表面上寫著服務(wù)器的型號(hào)和序列號(hào)。

但是很難判別字母O和數(shù)字0，重啟服務(wù)器的時(shí)候可以F1進(jìn)入BIOS中查看硬件信息看到。

但是不在服務(wù)器身邊的時(shí)候是無法直接查看了。

IBM服務(wù)器可以安裝DSA軟件，也能從收集的文件中清晰的看到，不過那是需要安裝程序，需要下載程序才能執(zhí)行。

其實(shí)遠(yuǎn)程在服務(wù)器本地執(zhí)行VBS腳本也可以查看的。

微軟Script自動(dòng)生成的查看產(chǎn)品信息的腳本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

在命令行下執(zhí)行：

cscript.exe?/NoLogo

test.vbs

C:\>cscript /nologo 1.vbs

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

Computer: AAA

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

Caption: 計(jì)算機(jī)系統(tǒng)產(chǎn)品

Description: 計(jì)算機(jī)系統(tǒng)產(chǎn)品

IdentifyingNumber: 99WCBC5

Name: eserver xSeries 345 -[8670L1C]-

SKUNumber:

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

Vendor: IBM

Version:

其實(shí)有用的信息就三行：

服務(wù)器廠商，型號(hào)，和序列號(hào)。

所以簡化下腳步就可以得到

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 "產(chǎn)品序列號(hào): " &

objItem.IdentifyingNumber

WScript.Echo "產(chǎn)品型號(hào): " & objItem.Name

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

WScript.Echo

Next

Next

運(yùn)行結(jié)果得到

C:\>cscript?/nologo

test.vbs

產(chǎn)品序列號(hào): 99WCBC5

產(chǎn)品型號(hào): eserver xSeries 345 -[8670L1C]-

廠商: IBM

在sina上第一次寫blog，希望對大家日常維護(hù)有些用處。

總結(jié)

以上是生活随笔為你收集整理的怎么在服务器上注册vbs组件,Windows下查看PC服务器硬件序列号的vbs脚本的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。