topic-18796

Board index FiveWin for Harbour/xHarbour How make a demo verion?

Page: 1 2 (18 posts)

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Re: How make a demo verion?
Posted: Sat May 15, 2010 09:54 AM

Hi Alvaro,

I use this code:

Code (fw): Select all Collapse

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

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: How make a demo verion?
Posted: Sat May 15, 2010 12:22 PM

Jeff,

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Re: How make a demo verion?
Posted: Sat May 15, 2010 02:31 PM

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

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

Page: 1 2 (18 posts)

FiveTech Support Forums

Continue the discussion