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") )
Previous Page |
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
24
Next Page
|
 |
|
|||||||||||||||||||||||||||
|
|
|
