Récupérer le numéro de série d'un PDA en VB.NET

Bonjour,

Travaillant sur une application pour un appareil mobile (MC1000), j'aurais besoin de récupérer le numéro de série inscrit sur l'appareil sous la batterie.
En effet, il serait nécessaire que je le récupère afin de vérifier que l'appareil utilisé est bien un des nôtres.

J'ai effectué des recherches depuis hier mais non concluantes.

Savez-vous si cela est possible et si oui comment ?
De plus, savez quel est la différence entre le numéro de série et le 'DEVICE ID' (terme récurrent lors de mes recherches) ?

Merci d'avance.
Spfo

Je pense que le device ID est un numéro qui identifie chaque appareil au niveau logiciel alors que le numéro de série est plutôt un numéro qui identifie l'appareil au niveau composants.

Citation:

Envoyé par 2h15Crew

Je pense que le device ID est un numéro qui identifie chaque appareil au niveau logiciel alors que le numéro de série est plutôt un numéro qui identifie l'appareil au niveau composants.

Oui merci tu as raison, c'est bien cela la différence.

Pour répondre à ma question, j'ai utilisé le SDK de Motorola 2.0 qui contient la dll Symbol.ResourcesCoordination. Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim w_retour As String = ""
        Dim w_OemInfo As String
        Dim b_outBuffer(128) As Byte
        Dim i_outBuffSize As Int32 = b_outBuffer.Length
        Dim o_terminfo As Symbol.ResourceCoordination.TerminalInfo = New Symbol.ResourceCoordination.TerminalInfo()
        Dim f_retour As Boolean

        ' Recherche du modèle du Terminal
        BitConverter.GetBytes(i_outBuffSize).CopyTo(b_outBuffer, 0)

        Try
            f_retour = SystemParametersInfo(C_getoeminfo, i_outBuffSize, b_outBuffer, 0)
        Catch ex As Exception
            f_retour = False
            w_retour = "Erreur à l'identification du terminal = '" & ex.ToString & "'"
        End Try

        If f_retour Then
            w_OemInfo = Encoding.Unicode.GetString(b_outBuffer, 0, i_outBuffSize)
            P_w_modele_terminal = w_OemInfo.ToString
        Else
            w_retour = "Impossible d'identifier le terminal utilisé !"
        End If

        ' Recherche du numéro de série
        P_w_numserie = o_terminfo.ESN

        Return w_retour

Et la déclaration :

Code:

1
2
3
<DllImport("Coredll")> _
    Public Function SystemParametersInfo(ByVal uiAction As Int32, ByVal uiParam As Int32, ByVal pvParam() As Byte, ByVal fWinIni As Int32) As Boolean
    End Function ' Fin SystemParametersInfo

Merci en tout cas ;-)