vbs 获取硬件序列号等信息 、 bios信息、machine name

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")


Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")

For each objBIOS in colBIOS
  WScript.Echo "SERIAL=" & objBIOS.SerialNumber & vbCrlf & _
        "Manufacturer=" & objBIOS.Manufacturer &vbCrlf & _
        "Name=" & objBIOS.Name &vbCrlf & _
        "Status=" & objBIOS.Status &vbCrlf & _
        "Version=" & objBIOS.Version &vbCrlf & _
        "Caption=" & objBIOS.Caption &vbCrlf & _
        "Description=" & objBIOS.Description &vbCrlf & _
        "CodeSet=" & objBIOS.CodeSet &vbCrlf & _
        "BuildNumber=" & objBIOS.BuildNumber &vbCrlf & _
        "CurrentLanguage=" & objBIOS.CurrentLanguage &vbCrlf & _
        "TargetOperatingSystem=" & objBIOS.TargetOperatingSystem &vbCrlf & _
        "OtherTargetOS=" & objBIOS.OtherTargetOS &vbCrlf & _
        "SoftwareElementID=" & objBIOS.SoftwareElementID &vbCrlf & _
        "SoftwareElementState=" & objBIOS.SoftwareElementState &vbCrlf & _
        "InstallDate=" & objBIOS.InstallDate &vbCrlf
Next

Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WScript.Echo "Computer Name: " & strComputerName