Page 2 of 2

Re: How make a demo verion?

PostPosted: Sat May 15, 2010 9:54 am
by Jeff Barnes
Hi Alvaro,

I use this code:

Code: Select all  Expand view

FUNCTION cSerialMB()
   LOCAL oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" )
   LOCAL oSrv := oLoc:ConnectServer()
   LOCAL oJbs := oSrv:ExecQuery( "SELECT * FROM Win32_BaseBoard" )
   LOCAL oJob
   LOCAL cMBSerial
   FOR EACH oJob IN oJbs
       cMBSerial := oJob:SerialNumber
   NEXT
RETURN cMBSerial
 

Re: How make a demo verion?

PostPosted: Sat May 15, 2010 12:22 pm
by Bayron
Jeff,

Do you need to have Administrator's access to use this code???

Re: How make a demo verion?

PostPosted: Sat May 15, 2010 2:31 pm
by Jeff Barnes
Hi Bayron,

I don't think you need admin rights but I'm not 100% sure.
I have had situations where I can't get the motherboard serial number so my code will then return the hard drive serial number. It's not a perfect solution but it works for me :D