VBS 脚本查询电脑序列号

On Error Resume Next
strComputer = "."
strSerialNumber = 0
Set objWMIService = GetObject("winmgmts:\\\" & strComputer & "\\root\\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
    strSerialNumber = objItem.SerialNumber
Next
WScript.Echo strSerialNumber