Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")

for each SN in SNSet
 Wscript.Echo "BIOS Manufacturer of this computer is: " & SN.Manufacturer
 Wscript.Echo "BIOS Version of this computer is: " & SN.Version
 Wscript.Echo "BIOS Version date of this computer is: " & SN.ReleaseDate
 Wscript.Echo "SMBIOS Version of this computer is: " & SN.SMBIOSBIOSVersion
Next

I'ts nice but I can't do anything with it...

Edited December 6, 200915 yr by maartenbren

Strange, please check this article. It should help you:

http://www.aspfree.com/c/a/VB.NET/Getting-Hardware-Information-using-Visual-BasicNET-and-VBScript-continued/