怎么在服务器上注册vbs组件,Windows下查看PC服务器硬件序列号的vbs脚本

刺骨的言语ヽ痛彻心扉 2022-09-02 04:07 134阅读 0赞

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 "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

在命令行下执行：

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

运行结果得到

C:\\>cscript /nologo

test.vbs

产品序列号: 99WCBC5

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

厂商: IBM

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

怎么在服务器上注册vbs组件,Windows下查看PC服务器硬件序列号的vbs脚本

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关怎么查看电脑硬盘序列号

相关 VBS脚本知识

相关【VBS脚本】VBS复制Excel工作簿

相关查看服务器硬件信息

相关 vbs 获取跨服务器文件,用vbs读取远程计算机上的文本文件的代码

相关怎么在服务器上注册vbs组件,Windows下查看PC服务器硬件序列号的vbs脚本

相关 wincc VBS脚本解密

相关 windows下运行vbs脚本

相关 SecureCRT脚本(VBS)运行

相关 Linux 系统查看服务器SN序列号以及服务器型号