Sub GetDeviceIMEI As String
Dim deviceUniqueIdentifier As String = ""
Dim tm As TelephonyManager
tm.Initialize
' Check if TelephonyManager is available
If tm.IsInitialized Then
deviceUniqueIdentifier = tm.GetDeviceId
End If
' If IMEI is not available, use Android ID
If deviceUniqueIdentifier = "" Then
deviceUniqueIdentifier = Settings.Secure.GetString(ContentResolver, "android_id")
End If
Return deviceUniqueIdentifier
End Sub