How To Get Bios Info

[arunendra]

I'VE GOT CODE TO FIND BIOS INFO ON WIN XP.
but that code is not working on win9x and 2000, too

[DaveBo]

Can you post your code here?
That might encourage people to try it and maybe find a solution for Win9x etc.

DaveBo

[chemicalNova]

Curious:

What sort of Bios info?

chem

[sciguyryan]

You may want to look into WMI, it comes nstalledwith Win2000 and above but, not with anything below, you'll have to check that they have it installed:

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_BIOS.txt", ForAppending, True)
TextFile.WriteLine 
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
    TextFile.WriteLine "BiosCharacteristics: " & SubItems.BiosCharacteristics
    TextFile.WriteLine "BIOSVersion: " & SubItems.BIOSVersion
    TextFile.WriteLine "BuildNumber: " & SubItems.BuildNumber
    TextFile.WriteLine "Caption: " & SubItems.Caption
    TextFile.WriteLine "CodeSet: " & SubItems.CodeSet
    TextFile.WriteLine "CurrentLanguage: " & SubItems.CurrentLanguage
    TextFile.WriteLine "Description: " & SubItems.Description
    TextFile.WriteLine "IdentificationCode: " & SubItems.IdentificationCode
    TextFile.WriteLine "InstallableLanguages: " & SubItems.InstallableLanguages
    TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
    TextFile.WriteLine "LanguageEdition: " & SubItems.LanguageEdition
    TextFile.WriteLine "ListOfLanguages: " & SubItems.ListOfLanguages
    TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
    TextFile.WriteLine "Name: " & SubItems.Name
    TextFile.WriteLine "OtherTargetOS: " & SubItems.OtherTargetOS
    TextFile.WriteLine "PrimaryBIOS: " & SubItems.PrimaryBIOS
    TextFile.WriteLine "ReleaseDate: " & SubItems.ReleaseDate
    TextFile.WriteLine "SerialNumber: " & SubItems.SerialNumber
    TextFile.WriteLine "SMBIOSBIOSVersion: " & SubItems.SMBIOSBIOSVersion
    TextFile.WriteLine "SMBIOSMajorVersion: " & SubItems.SMBIOSMajorVersion
    TextFile.WriteLine "SMBIOSMinorVersion: " & SubItems.SMBIOSMinorVersion
    TextFile.WriteLine "SMBIOSPresent: " & SubItems.SMBIOSPresent
    TextFile.WriteLine "SoftwareElementID: " & SubItems.SoftwareElementID
    TextFile.WriteLine "SoftwareElementState: " & SubItems.SoftwareElementState
    TextFile.WriteLine "Status: " & SubItems.Status
    TextFile.WriteLine "TargetOperatingSystem: " & SubItems.TargetOperatingSystem
    TextFile.WriteLine "Version: " & SubItems.Version
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_BIOS.txt",1,True

Cheers,

RyanJ

[arunendra]

Thanks!
But i already know this code. but this does not work on win98.
the bios serial no that is vital for me is returned as : 00000000

[sciguyryan]

Thanks!
But i already know this code. but this does not work on win98.
the bios serial no that is vital for me is returned as : 00000000

It could be that WMI is not installed, I'll have to check on that.


Cheers,

RyanJ

[arunendra]

if the problem could be solved by installing WMI then
how do i do it?
will it work on 98 m/c , too?

[sciguyryan]

if the problem could be solved by installing WMI then
how do i do it?
will it work on 98 m/c , too?

Yes WMI will work on Win98, I'm using Win98 and have WMI installed so, I suppose it must

And you can get it from the MS Download center.

Actually, on further inspection there is no need to have to install this on every computer you would use it on, you can simpley use the WMI Redistributable Components version 1.0

Cheers,

RyanJ

[arunendra]

thank you!
i suppose this will work on 98 to get me the bios serial no!
for the time being i'm usin the RESOLED symbol!

[manavo11]

To indicate that your question is answered, you should edit your first post and select the green checkmark as the post's icon.

Thanks

[skv_noida]

hi there is a software api viewer using that you can do code on win 98 also

Try this one

[arunendra]

dear skv_noda!
I think u have forgotten to post the Code!!!!!

[Keithuk]

http://www.vbforums.com/showthread.php?t=344832