Getting Windows Mobile Device ID

I got email today asking me how to get the device ID from a pocket pc with vb

?
Imports System.Text
 
Public Class Form1
 
    <System.Runtime.InteropServices.DllImport("coredll.dll")> _
Private Shared Function GetDeviceUniqueID(ByVal appdata As Byte(), ByVal cbApplictionData As Integer, ByVal dwDeviceIDVersion As Integer, ByVal deviceIDOuput As Byte(), ByRef pcbDeviceIDOutput As Integer) As Integer
    End Function
 
    Private Function GetDeviceId(ByVal appData As String) As Byte()
 
        Dim appDataBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(appData)
        Dim outputSize As Integer = 20
        Dim output(19) As Byte
 
        Dim result As Integer = GetDeviceUniqueID(appDataBytes, appDataBytes.Length, 1, output, outputSize)
 
        Return output
 
    End Function
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sbId As New StringBuilder
 
        Dim bID() As Byte = GetDeviceId("MyAppName")
 
        For Each b In bID
            sbId.Append(String.Format("{0:x2}", b))
        Next
 
        Debug.WriteLine(sbId.ToString)
    End Sub
End Class


Comments