Source language: Translate to:

Extract MachinID

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

Moderators: Neosoft Support, Wrangler

Postby Neosoft Support » Tue Feb 03, 2009 11:10 am

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
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Postby Wrangler » Tue Feb 03, 2009 11:15 am

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
User avatar
Wrangler
 
Posts: 1505
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA

Postby David de Argentina » Tue Feb 03, 2009 11:53 am

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
User avatar
David de Argentina
 
Posts: 1553
Joined: Mon Apr 04, 2005 4:13 pm
Location: Buenos Aires, Argentina

Postby Neosoft Support » Tue Feb 03, 2009 4:12 pm

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
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Postby dbz » Wed Feb 04, 2009 11:05 am

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
dbz
 
Posts: 42
Joined: Mon Apr 04, 2005 4:12 am
Location: Varel, Germany

Postby Wrangler » Wed Feb 04, 2009 11:13 am

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
Wrangler
 
Posts: 1505
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA

Postby dpayer » Wed Feb 04, 2009 12:10 pm

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
dpayer
 
Posts: 1380
Joined: Mon Apr 11, 2005 5:55 am
Location: Iowa - USA

Postby Wrangler » Wed Feb 04, 2009 12:30 pm

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
Wrangler
 
Posts: 1505
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA

Postby beno » Wed Feb 04, 2009 3:01 pm

Hi,

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

:?

beno
User avatar
beno
 
Posts: 678
Joined: Fri Apr 01, 2005 9:03 am
Location: México

Postby dbz » Thu Feb 19, 2009 8:17 am

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
dbz
 
Posts: 42
Joined: Mon Apr 04, 2005 4:12 am
Location: Varel, Germany

Postby smartmedia » Sun Aug 15, 2010 8:26 am

Hi..

I test them both without luck...
User avatar
smartmedia
 
Posts: 889
Joined: Fri Apr 01, 2005 6:50 am
Location: Hellas

Postby Neosoft Support » Mon Aug 16, 2010 10:04 am

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
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Postby smartmedia » Mon Aug 16, 2010 10:23 am

Hi..

That was the first solution i tried without luck...
User avatar
smartmedia
 
Posts: 889
Joined: Fri Apr 01, 2005 6:50 am
Location: Hellas

Postby Neosoft Support » Mon Aug 16, 2010 10:29 am

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
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Postby Wrangler » Mon Aug 16, 2010 12:58 pm

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
User avatar
Wrangler
 
Posts: 1505
Joined: Thu Mar 31, 2005 11:40 pm
Location: USA

PreviousNext

Return to Distributing, Marketing and Selling NeoBook Applications

Who is online

Users browsing this forum: No registered users and 1 guest