March 01, 2001
Customizing Windows Installer
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") )
| |||||||||
