I'VE GOT CODE TO FIND BIOS INFO ON WIN XP.
but that code is not working on win9x and 2000, too
Printable View
I'VE GOT CODE TO FIND BIOS INFO ON WIN XP.
but that code is not working on win9x and 2000, too
Can you post your code here?
That might encourage people to try it and maybe find a solution for Win9x etc.
DaveBo
Curious:
What sort of Bios info?
chem
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:
VB Code:
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
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
Quote:
Originally Posted by arunendra
It could be that WMI is not installed, I'll have to check on that.
Cheers,
RyanJ
if the problem could be solved by installing WMI then
how do i do it?
will it work on 98 m/c , too?
Quote:
Originally Posted by arunendra
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
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!
To indicate that your question is answered, you should edit your first post and select the green checkmark as the post's icon.
Thanks :)
hi there is a software api viewer using that you can do code on win 98 also
Try this one
dear skv_noda!
I think u have forgotten to post the Code!!!!!