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