Capture Serial Number

Targets macOS
1

Hello guys,

          I use a method of capturing the serial number of Macs with AppleScript, there is a way to capture the Serial Number for direct xojo?

Tanks for any help.

2

A quick google search shows that it could be done with a shell command. Maybe try this:
http://osxdaily.com/2011/04/25/get-mac-serial-number-command-line/

3

Hi Jason,

         How I use this on xojo Code ?
4

Have a look at http://documentation.xojo.com/index.php/Shell .

5

If you use our MBS Plugins, it would be
MsgBox SystemInformationMBS.MacSerialNumber

6

If you have the MacOSLib package, you can use MacSystemProfiler.

MsgBox MacSystemProfiler.HW_SerialNumber()
7

Tanks for all Guys !

8

I’ll make a more specific question, is there a native way to xojo capture the serial number of a Mac computer?

9

What’s not “native” about System Profiler?

10

try this…
https://www.mediafire.com/?sf256riyfpu3818

11

Kem, I did not refer unless native Mac OS but a direct way to make the code without downloading other libraries for Xojo!

12

This exact code will do it for you. The serial number will be in the variable sn:

  dim sh as new shell
  sh.Execute "system_profiler SPHardwareDataType | grep 'Serial Number'"
  dim sn as string = sh.Result.NthField( ":", 2 ).Trim
13

[quote=69935:@Kem Tekinay]If you have the MacOSLib package, you can use MacSystemProfiler.

MsgBox MacSystemProfiler.HW_SerialNumber() [/quote]

I get “This item does not exist” :frowning:

14

Sorry, you need the macoslib folder and my plist stuff from Additional Modules.

15

Works great :slight_smile: Thank you.

It is much faster than system_profiler.

16

Glad you like it.

17

Kem Tekinay, wanted to thank you so much to help, worked perfectly!

It is people like you who give me encouragement to continue studying programming, thank you and make sure that today made a friend here in Brazil!

18

You’re very welcome. :slight_smile:

19

this is what I use

  #If TargetMacOS
    sh.execute "/usr/sbin/ioreg -l | /usr/bin/grep IOPlatformSerialNumber"
    s=sh.Result
    x=InStr(s,"=")
    If x>0 Then s=ReplaceAll(Trim(Mid(s,x+1)),Chr(34),"")
  #ElseIf TargetWin32
    // use IPCONFIG /all and parse the "Physical Address from "Local Area Connection" Block
    // will be something like C4-2C-03-02-31-26  [C42c03023126 take first 11 char = C42C0302312]
    sh.Execute("ipconfig /all")
    If sh.ErrorCode = 0 Then
      s = sh.Result
      s = Mid(s,InStr(s,"Local Area Connection")+21)
      s = Mid(s,InStr(s,"Physical Address")+16)
      s = Left(s,InStr(s,EndOfLine))
      s= Left(ReplaceAll(Trim(Right(s,19)),"-","")+"Q9734WF",11)
    End If
  #EndIf
20

Dave, you soooo need to learn regular expressions. :slight_smile: