Listing 2: manuf.vbs Determining the BIOS version
dim Systemset, System, Bios, Manuf, Model, BiosVersion, BiosName Set SystemSet = GetObject("winmgmts:").InstancesOf _ ("Win32_ComputerSystem") for each System in SystemSet Manuf = System.Manufacturer Model = System.Model exit for next for each Bios in GetObject("winmgmts:").InstancesOf ("win32_bios") BiosName = Bios.name BiosVersion = Bios.Version exit for next if Manuf = "HP" and Left(Model, 9) = "NetServer" and _ Left(BiosVersion, 9)="05/01/00" then Property("NEWBIOS") = "yes" end if Msgbox (Property("NEWBIOS") )