lcComputer = "."
loWMIService = Getobject("winmgmts:" ;
	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
colBIOS = loWMIService.ExecQuery ;
	("Select * from Win32_BIOS")
For Each loBIOS In colBIOS
	?"Build Number: " + loBIOS.BuildNumber
	?"Current Language: " + loBIOS.CurrentLanguage
	?"Installable Languages: " + TRANSFORM(loBIOS.InstallableLanguages)
	?"Manufacturer: " + loBIOS.Manufacturer
	?"Name: " + loBIOS.Name
	?"Primary BIOS: " + TRANSFORM(loBIOS.PrimaryBIOS)
	?"Release Date: " + TRANSFORM(loBIOS.ReleaseDate)
	?"Serial Number: " + loBIOS.SerialNumber
	?"SMBIOS Version: " + loBIOS.SMBIOSBIOSVersion
	?"SMBIOS Major Version: " + transf(loBIOS.SMBIOSMajorVersion)
	?"SMBIOS Minor Version: " + TRANSFORM((loBIOS.SMBIOSMinorVersion))
	?"SMBIOS Present: " + TRANSFORM(loBIOS.SMBIOSPresent)
	?"Status: " + loBIOS.Status
	?"Version: " + loBIOS.Version
	For i = 0 To 100
		?"BIOS Characteristics: " + ;
			TRANSFORM(loBIOS.BiosCharacteristics(i))
	Next
Next