' Name: Bios-Info.vbs ' ' Written by: Jim Cameron (scripts @ moonpoint.com) ' Date Created: 2009-02-15 ' Last Modified: 2009-02-15 ' Version: 0.1 ' Download URL: ' http://support.moonpoint.com/downloads/computer_languages/VBScript/bios-info.vbs ' Usage: cscript bios-info.vbs ' Purpose: Display information obtained from the system's BIOS on ' the manufacturer, BIOS version, release date, and serial number for the ' system. ' Notes: For further information, see "Retrieving Information About the BIOS" at ' http://www.microsoft.com/technet/scriptcenter/guide/sas_cpm_jtzr.mspx?mfr=true 'Read Machine Name Set objComputer = CreateObject("Shell.LocalMachine") Wscript.Echo "Computer name: " & objComputer.MachineName 'Read BIOS details strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colBIOS = objWMIService.ExecQuery _ ("Select * from Win32_BIOS") For each objBIOS in colBIOS Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer Wscript.Echo "BIOS Name: " & objBIOS.Name Wscript.Echo "Release Date: " & objBIOS.ReleaseDate Wscript.Echo "Status: " & objBIOS.Status Wscript.Echo "Version: " & objBIOS.Version Wscript.Echo "Build Number: " & objBIOS.BuildNumber Wscript.Echo "BIOS Current Language: " & objBIOS.CurrentLanguage Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent Wscript.Echo "BIOS Serial Number: " & objBIOS.SerialNumber Next