Is there a way to output this information and create an html form

From: "Bob" <rmarsico@xxxxxxxxxxx>
Date: Sat, 21 May 2005 22:50:28 GMT

Is there a way to output this information and create an html form
Please help greatly appreciated

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array(".")
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS",
"WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
strBIOSVersion = Join(objItem.BIOSVersion, ",")
WScript.Echo "BIOSVersion: " & strBIOSVersion
WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next
Next

.

Follow-Ups:
- Re: Is there a way to output this information and create an html form
  - From: McKirahan

Prev by Date: Re: Getting path...
Next by Date: read the values of an object in LDAP
Previous by thread: Re: Any idea where the actual "Jim Warrington - wsh utilities and scripts" site is?
Next by thread: Re: Is there a way to output this information and create an html form
Index(es):
- Date
- Thread

Relevant Pages

RE: Identify mapped drives on a workstation
... Const wbemFlagReturnImmediately = &h10 ... Const wbemFlagForwardOnly = &h20 ... For Each strComputer In arrComputers ... > Is it possible to querry a workstation to see what the drive mappings ar for ...
(microsoft.public.windows.server.scripting)
Re: WMI slow
... Const wbemFlagReturnImmediately = &h10 ... Const wbemFlagForwardOnly = &h20 ... For Each strComputer In arrComputers ... Set colItems = objWMIService.ExecQuery("SELECT * FROM ...
(microsoft.public.scripting.vbscript)
How do you call a method?
... I am writting ascrit that uses the following; ... Const wbemFlagReturnImmediately = &h10 ... Const wbemFlagForwardOnly = &h20 ... For Each strComputer In arrComputers ...
(microsoft.public.scripting.vbscript)