Le 07/12/11 13:43, Carlos Frías a écrit :
> I have trying for take the serial computer number but I don't obtain it!
> Can anyone help me, please?
> (I have the Future Basic 4.5)
> Thank you very much!
>
> --
> To unsubscribe, send ANY message to:
> futurebasic-unsubscribe@...
> <mailto:futurebasic-unsubscribe@...> To access the list
> archives, go to: http://freegroups.net/groups/futurebasic/
>
>

Carlos,

With FB 4.4, the following seems to work for me (the resulting string 
should be trimmed, I guess):

/*
  Getting Universally Unique Identifier
*/
Clear Local Mode
Local Fn GetMacSerial$
Dim As Str255 tempStr, sn

Open "Unix", 2, "system_profiler | grep 'Hardware UUID'"
While ( Not Eof(2) )
Line Input #2, tempStr
sn += tempStr
Wend
Close 2
End Fn = sn


/* Main Program */

Window 1
Dim serialNumber As Str255

serialNumber = Fn GetMacSerial$()

Print serialNumber

Do
HandleEvents
Until gFBquit


Cheers,

Alain