strComputer ="."
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_BIOS")
For Each itm In colItems
      WScript.Echo "BIOSVersion: " & Join(itm.BIOSVersion, ",")
      WScript.Echo "BuildNumber: " & itm.BuildNumber
      WScript.Echo "SMBIOSBIOSVersion: " & itm.SMBIOSBIOSVersion
      WScript.Echo "SMBIOSMajorVersion: " & itm.SMBIOSMajorVersion
      WScript.Echo "SMBIOSMinorVersion: " & itm.SMBIOSMinorVersion
      WScript.Echo "Version: " & itm.Version
	  
	  WScript.Echo "Description: " & itm.Description
	  WScript.Echo "Manufacturer: " & itm.Manufacturer
	  WScript.Echo "Caption: " & itm.Caption
	  WScript.Echo "Serial Number: " & itm.SerialNumber
Next