查计算机硬盘品牌,教你获取查询电脑硬件信息，我想说这是验证机器真假的一个好方法...

最新推荐文章于 2023-08-07 17:38:34 发布

我的小可乐

最新推荐文章于 2023-08-07 17:38:34 发布

阅读量443

点赞数

文章标签：查计算机硬盘品牌

这段VBS脚本用于获取Windows服务器的硬件信息，包括SN号、CPU、内存、硬盘、品牌、系统类型、BIOS、MAC地址和网络信息，并通过curl.exe发送到API接口。代码通过WMI查询系统详细信息并打印，为系统管理和硬件验证提供便利。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

此源代码是VBS脚本编写的，可以获取电脑的硬件信息包含：Chipset主板芯片信息、BIOS信息、SN号、CPU信息、网卡信息、CPU信息和内存信息等。获取到这些信息后可以和包装箱上的还有官网上的核对一下。

获取win服务器的硬件信息，提交给一api 接口，最后用vbs实现了功能，主要是用到了WMI 发包是调用curl.exe来实现的，代码如下：

REM '获取SN号'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BIOS",,48)

For Each objItem in colItems

SN=objItem.SerialNumber

Wscript.Echo "Sn: " & SN

REM '获取CPU信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_Processor",,48)

For Each objItem in colItems

Processor=objItem.Name

Wscript.Echo "Processors: " & Processor

REM '获取内存信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_ComputerSystem",,48)

For Each objItem in colItems

Memory= Round(objItem.TotalPhysicalMemory/1024^3) & "GB"

Wscript.Echo "Memory: " & Memory

REM '获取硬盘信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_DiskDrive",,48)

For Each objItem in colItems

Disk=objItem.Model

Wscript.Echo "Disk: " & Disk

REM '获取电脑品牌'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BaseBoard",,48)

For Each objItem in colItems

Pinpai=objItem.Manufacturer

REM '获取Summary信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BaseBoard",,48)

For Each objItem in colItems

Product=objItem.Product

Summary=Pinpai & " " & Product & "," & Processor & "," & Memory

Wscript.Echo "Summary: " & Summary

REM '获取Chipset信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_Processor",,48)

For Each objItem in colItems

Chipset=objItem.Caption

Wscript.Echo "Chipset: " & Chipset

REM '获取系统类型'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_OperatingSystem",,48)

For Each objItem in colItems

OS=objItem.Caption

Wscript.Echo "OS: " & OS

REM '获取BIOS信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BIOS",,48)

For Each objItem in colItems

If isNull(objItem.BIOSVersion) Then

Wscript.Echo "BIOS: "

Else

BIOS=Join(objItem.BIOSVersion,",")

Wscript.Echo "BIOS: " & BIOS

End If

REM '获取计算机名'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_ComputerSystem",,48)

For Each objItem in colItems

Hostname=objItem.DNSHostName

Wscript.Echo "Hostname:" & Hostname

REM '获取MAC地址'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True",,48)

For Each objItem in colItems

Macaddress=objItem.MACAddress

Wscript.Echo "MACAddress: " & Macaddress

REM '获取Network信息'

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True",,48)

For Each objItem in colItems

Network=Mid(objItem.Caption,InStr(objItem.Caption,"]")+1) & " " & Macaddress

Wscript.Echo "Network: " & Network

REM 'curl发包'

Dim Info

Info="Summary: " & Summary & Chr(13) & "Processors: " & Processor & Chr(13) & "Memory: " & Memory & Chr(13) & "Disk: " & Disk & Chr(13) & "Chipset: " & Chipset & Chr(13) & "Network: " & Network & Chr(13) & "BIOS: " & BIOS

dim curlcmd

dim cmdstr

set curlcmd=Createobject("wscript.shell")

cmdstr = "curl.exe -d ""ip=" & IP & "&sn=" & SN & "&info=" & Info & """ http://ams.nxadmin.com/api/hwinfo"

curlcmd.run cmdstr