Extract MachinID

Questions related to the distribution, marketing and selling of applications created with NeoBook. (Formally titled: "Making Money with NeoBook")

Moderator: Neosoft Support

Neosoft Support
NeoSoft Team
Posts: 5628
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA
Contact:

Post by Neosoft Support »

Both versions of the VBScript work on my Intel-based Vista PC.

It could be that not all BIOS versions support this feature.
NeoSoft Support
User avatar
Wrangler
Posts: 1531
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA
Contact:

Post by Wrangler »

Dave:

Do you have an XP machine you can try it on? I'm running XP Pro SP2.
Wrangler
--------------
"You never know about a woman. Whether she'll laugh, cry or go for a gun." - Louis L'Amour

Windows 7 Ultimate SP1 64bit
16GB Ram
Asus GTX 950 OC Strix
Software made with NeoBook
http://highdesertsoftware.com
David de Argentina
Posts: 1596
Joined: Mon Apr 04, 2005 4:13 pm
Location: Buenos Aires, Argentina
Contact:

Post by David de Argentina »

Hi DavidP,

I had got this kind of info using several ways..
But, mi BIOS does not have serial number.

I think the MAC address is the correct way to get an unique value...

my devaluated cent,
David de Argentina
Neosoft Support
NeoSoft Team
Posts: 5628
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA
Contact:

Post by Neosoft Support »

Do you have an XP machine you can try it on?
The VBScript works correctly on both my XP and Vista machines.
...But, mi BIOS does not have serial number.
I can't find any definitive information on this, but it may be that not all manufacturers provide a BIOS serial number.
NeoSoft Support
User avatar
dbz
Posts: 42
Joined: Mon Apr 04, 2005 4:12 am
Location: Varel, Germany

Post by dbz »

El plugin tmSystemInfo nos muestra mucha información sobre la Bios:

-------------------------
The plugin tmSystemInfo shows us lots of information about BIOS:


http://www.neosoftware.com/neobook/modu ... 6&start=10


MACHINE:

15: MachineName
16: User
17: Computer
18: BIOS Copyright
19: BIOS Date
20: BIOS ExtendedInfo
21: BIOS NameString
22: BIOS Version
23: BIOS Revision
24: BIOS SystemModel
25: BIOS SystemManufacturer
26: BIOS SystemVersion
27: BIOS SystemSerial
28: BIOS SystemUUID
29: BIOS BIOSVendor
30: BIOS BIOSVersion
31: BIOS BIOSDate
32: BIOS MainBoardModel
33: BIOS MainBoardManufacturer
34: BIOS MainBoardVersion
35: BIOS MainBoardSerial
36: BIOS MainBoardLocationInChassis
37: BIOS ChassisManufacturer
38: BIOS ChassisVersion
39: BIOS ChassisSerial
40: CapsLock - True/False
41: NumLock- True/False
42: ScrollLock - True/False
43: LastBoot
44: System UpTime
User avatar
Wrangler
Posts: 1531
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA
Contact:

Post by Wrangler »

Good one, Softsing. I had bought that plug and forgot all about it.
Wrangler
--------------
"You never know about a woman. Whether she'll laugh, cry or go for a gun." - Louis L'Amour

Windows 7 Ultimate SP1 64bit
16GB Ram
Asus GTX 950 OC Strix
Software made with NeoBook
http://highdesertsoftware.com
User avatar
dpayer
Posts: 1394
Joined: Mon Apr 11, 2005 5:55 am
Location: Iowa - USA

Post by dpayer »

Wrangler wrote:Good one, Softsing. I had bought that plug and forgot all about it.
You know, I bet Alberto uses the WMI interface to do those functions.

I see that many of his projects are wrappers for other programs that are available in both the opensource and commercial world. That is why some things could be fixed and other things could not.

I for one am still waiting for some video software that is scheduled to be released in October of 2007 by Alberto

David P.
User avatar
Wrangler
Posts: 1531
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA
Contact:

Post by Wrangler »

You mean October of 3007, don't you? Gotta give'em time. :lol:

I just tested Al's sysinfo plug on my machine, and get nothing for 'Bios System Serial', which I assume is the bios serial we are talking about. 'Mainboard Manufacturer' is also empty, and a few others.

Although I still believe all that info is in there, apparently it isn't accessible in certain configurations, so can't be depended upon to work on every machine.
Wrangler
--------------
"You never know about a woman. Whether she'll laugh, cry or go for a gun." - Louis L'Amour

Windows 7 Ultimate SP1 64bit
16GB Ram
Asus GTX 950 OC Strix
Software made with NeoBook
http://highdesertsoftware.com
User avatar
beno
Posts: 678
Joined: Fri Apr 01, 2005 9:03 am
Location: México
Contact:

Post by beno »

Hi,

Maybe a plugin that looks in the bottom of the CPU box can help here.

:?

beno
User avatar
dbz
Posts: 42
Joined: Mon Apr 04, 2005 4:12 am
Location: Varel, Germany

Post by dbz »

Script WMI para obtener información de BIOS.
En teoria debe funcionar en cualquier sistema Win32

-----------------------------------------------------------------
WMI Script to get information from BIOS.
In theory it should work on any Win32 system

------------------------------------------------------------------

Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")

For each objBIOS in colBIOS
Wscript.Echo "Build Number: " & objBIOS.BuildNumber
Wscript.Echo "Current Language: " & objBIOS.CurrentLanguage
Wscript.Echo "Installable Languages: " & objBIOS.InstallableLanguages
Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer
Wscript.Echo "Name: " & objBIOS.Name
Wscript.Echo "Primary BIOS: " & objBIOS.PrimaryBIOS
Wscript.Echo "Release Date: " & objBIOS.ReleaseDate
Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion
Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion
Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion
Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent
Wscript.Echo "Status: " & objBIOS.Status
Wscript.Echo "Version: " & objBIOS.Version
For i = 0 to Ubound(objBIOS.BiosCharacteristics)
Wscript.Echo "BIOS Characteristics: " & _
objBIOS.BiosCharacteristics(i)
Next
Next
User avatar
smartmedia
Posts: 889
Joined: Fri Apr 01, 2005 6:50 am
Location: Hellas
Contact:

Post by smartmedia »

Hi..

I test them both without luck...
Neosoft Support
NeoSoft Team
Posts: 5628
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA
Contact:

Post by Neosoft Support »

Try this:

Code: Select all

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")

For each objBIOS in colBIOS
  publication.nbSetVar "[BIOSSerialNum]", objBIOS.SerialNumber
Next
NeoSoft Support
User avatar
smartmedia
Posts: 889
Joined: Fri Apr 01, 2005 6:50 am
Location: Hellas
Contact:

Post by smartmedia »

Hi..

That was the first solution i tried without luck...
Neosoft Support
NeoSoft Team
Posts: 5628
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA
Contact:

Post by Neosoft Support »

It seems to work for me. I just created a VBScript function:

Code: Select all

{NeoBook Function}
Version=5.60
Language=VBScript
{End}
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")

For each objBIOS in colBIOS
  publication.nbSetVar "[BIOSSerialNum]", objBIOS.SerialNumber
Next
It may be that this code doesn't work with some brands of BIOS. I don't know.
NeoSoft Support
User avatar
Wrangler
Posts: 1531
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA
Contact:

Post by Wrangler »

I get an invalid character error for:

{NeoBook Function}
Wrangler
--------------
"You never know about a woman. Whether she'll laugh, cry or go for a gun." - Louis L'Amour

Windows 7 Ultimate SP1 64bit
16GB Ram
Asus GTX 950 OC Strix
Software made with NeoBook
http://highdesertsoftware.com
Locked