Tablet Serial #

margret · Jul 28, 2011

Hello,

Any way to pull the serial # from a tablet that just has Wi-Fi and/or the Mac address of the NIC card. Needing some unique identifier from device for key activation. I have been through the Phone Lib and the unit I am testing returns null for most all the phone events because it's a tablet.:sign0163:

Thank,

Margret

Gary Miyakawa · Jul 28, 2011

I had the same issue. I used the Wifi module to pull the Mac Address..

B4X:

Sub Process_Globals
   Dim myWifi As ABWifi
End Sub

Sub Activity_Create(FirstTime As Boolean)

   myWifi.ABLoadWifi
   Log("mac " & myWifi.ABGetCurrentWifiInfo().MacAddress)
   Log("BSSID " & myWifi.ABGetCurrentWifiInfo().BSSID)
   Log("Cap " & myWifi.ABGetCurrentWifiInfo().Capabilities)
   Log("Freq " & myWifi.ABGetCurrentWifiInfo().Frequency  )
   Log("FullS " & myWifi.ABGetCurrentWifiInfo().FullString  )
   Log("Hidden " & myWifi.ABGetCurrentWifiInfo().HiddenSSID  )
   Log("IsCon " & myWifi.ABGetCurrentWifiInfo().IsConnected  )
   Log("Level " & myWifi.ABGetCurrentWifiInfo().Level  )
   Log("LSpeed " & myWifi.ABGetCurrentWifiInfo().LinkSpeed  )
   Log("NetID " & myWifi.ABGetCurrentWifiInfo().NetworkId  )
   Log("Rssi " & myWifi.ABGetCurrentWifiInfo().Rssi  )
   Log("SSID " & myWifi.ABGetCurrentWifiInfo().SSID  )
   Log("State " & myWifi.ABGetCurrentWifiInfo().State  )
End Sub

Cheers,

GaryM

margret · Jul 28, 2011

Mac Address & Serial

Gary Miyakawa said:

I had the same issue. I used the Wifi module to pull the Mac Address..

B4X:

Sub Process_Globals
   Dim myWifi As ABWifi
End Sub

Sub Activity_Create(FirstTime As Boolean)

   myWifi.ABLoadWifi
   Log("mac " & myWifi.ABGetCurrentWifiInfo().MacAddress)
   Log("BSSID " & myWifi.ABGetCurrentWifiInfo().BSSID)
   Log("Cap " & myWifi.ABGetCurrentWifiInfo().Capabilities)
   Log("Freq " & myWifi.ABGetCurrentWifiInfo().Frequency  )
   Log("FullS " & myWifi.ABGetCurrentWifiInfo().FullString  )
   Log("Hidden " & myWifi.ABGetCurrentWifiInfo().HiddenSSID  )
   Log("IsCon " & myWifi.ABGetCurrentWifiInfo().IsConnected  )
   Log("Level " & myWifi.ABGetCurrentWifiInfo().Level  )
   Log("LSpeed " & myWifi.ABGetCurrentWifiInfo().LinkSpeed  )
   Log("NetID " & myWifi.ABGetCurrentWifiInfo().NetworkId  )
   Log("Rssi " & myWifi.ABGetCurrentWifiInfo().Rssi  )
   Log("SSID " & myWifi.ABGetCurrentWifiInfo().SSID  )
   Log("State " & myWifi.ABGetCurrentWifiInfo().State  )
End Sub

Cheers,

GaryM

Thanks Gary,

I will try it out and see how it works. Looks like it will do the job!!:sign0098:

Thanks Again,

Margret

margret · Jul 29, 2011

Gary Miyakawa said:

I had the same issue. I used the Wifi module to pull the Mac Address..

B4X:

Sub Process_Globals
   Dim myWifi As ABWifi
End Sub

Sub Activity_Create(FirstTime As Boolean)

   myWifi.ABLoadWifi
   Log("mac " & myWifi.ABGetCurrentWifiInfo().MacAddress)
   Log("BSSID " & myWifi.ABGetCurrentWifiInfo().BSSID)
   Log("Cap " & myWifi.ABGetCurrentWifiInfo().Capabilities)
   Log("Freq " & myWifi.ABGetCurrentWifiInfo().Frequency  )
   Log("FullS " & myWifi.ABGetCurrentWifiInfo().FullString  )
   Log("Hidden " & myWifi.ABGetCurrentWifiInfo().HiddenSSID  )
   Log("IsCon " & myWifi.ABGetCurrentWifiInfo().IsConnected  )
   Log("Level " & myWifi.ABGetCurrentWifiInfo().Level  )
   Log("LSpeed " & myWifi.ABGetCurrentWifiInfo().LinkSpeed  )
   Log("NetID " & myWifi.ABGetCurrentWifiInfo().NetworkId  )
   Log("Rssi " & myWifi.ABGetCurrentWifiInfo().Rssi  )
   Log("SSID " & myWifi.ABGetCurrentWifiInfo().SSID  )
   Log("State " & myWifi.ABGetCurrentWifiInfo().State  )
End Sub

Cheers,

GaryM

This works great!! Just wanted to update you. Thanks so much for the information on this..!!

Thanks,

Margret

Tablet Serial #

margret

Well-Known Member

Gary Miyakawa

Active Member

margret

Well-Known Member

margret

Well-Known Member

Tablet Serial #

margret

Well-Known Member

Gary Miyakawa

Active Member

margret

Well-Known Member

margret

Well-Known Member

Privacy & Transparency

Privacy & Transparency