PDA Name

Question

Hello,

I'm new here and had a question.

I'm currently developing an application for PDA's, with this application I need to identify the PDA preferrably by computername (PDA name), or any other unique id on a network. (IP's vary) Normally i'd use the kernel dll to retrieve the computername but the PDA's don't have this by my knowledge. Does anyone have a solution for this?

Best regards,

Mark

Pavan Pareta · Answer

Hi, Add a module to your project and name it as you like, then copy the following code into it: Imports System Imports System.Collections Imports System.ComponentModel Imports System.Diagnostics Imports System.Runtime.InteropServices Imports System.Text Module Module1 Declare Function KernelIoControl Lib "CoreDll.dll" ( ByVal dwIoControlCode As Int32, ByVal lpInBuf As IntPtr, ByVal nInBufSize As Int32, ByVal lpOutBuf() As Byte , ByVal nOutBufSize As Int32, ByRef lpBytesReturned As Int32) As Boolean Public METHOD_BUFFERED As Int32 = 0 Public FILE_ANY_ACCESS As Int32 = 0 Public FILE_DEVICE_HAL As Int32 = &H101 Const ERROR_NOT_SUPPORTED As Int32 = &H32 Const ERROR_INSUFFICIENT_BUFFER As Int32 = &H7A Public IOCTL_HAL_GET_DEVICEID As Int32 = (&H10000 * FILE_DEVICE_HAL) Or (&H4000 * FILE_ANY_ACCESS) Or (&H4 * 21) Or METHOD_BUFFERED Public Function GetDeviceID() As String Dim outbuff(19) As Byte Dim dwOutBytes As Int32 Dim done As Boolean = False Dim nBuffSize As Int32 = outbuff.Length BitConverter.GetBytes(nBuffSize).CopyTo(outbuff, 0) dwOutBytes = 0 While Not done If KernelIoControl(IOCTL_HAL_GET_DEVICEID, IntPtr.Zero, 0, outbuff, nBuffSize, dwOutBytes) Then done = True Else Dim [error] As Integer = Marshal.GetLastWin32Error() Select Case [error] Case ERROR_NOT_SUPPORTED Throw New NotSupportedException( "IOCTL_HAL_GET_DEVICEID is not supported on this device" , New Win32Exception([error])) Case ERROR_INSUFFICIENT_BUFFER nBuffSize = BitConverter.ToInt32(outbuff, 0) outbuff = New Byte (nBuffSize) {} BitConverter.GetBytes(nBuffSize).CopyTo(outbuff, 0) Case Else Throw New Win32Exception([error], "Unexpected error" ) End Select End If End While Dim dwPresetIDOffset As Int32 = BitConverter.ToInt32(outbuff, &H4) ' DEVICE_ID.dwPresetIDOffset Dim dwPresetIDSize As Int32 = BitConverter.ToInt32(outbuff, &H8) ' DEVICE_ID.dwPresetIDSize Dim dwPlatformIDOffset As Int32 = BitConverter.ToInt32(outbuff, &HC) ' DEVICE_ID.dwPlatformIDOffset Dim dwPlatformIDSize As Int32 = BitConverter.ToInt32(outbuff, &H10) ' DEVICE_ID.dwPlatformIDBytes Dim sb As New StringBuilder Dim i As Integer For i = dwPresetIDOffset To (dwPresetIDOffset + dwPresetIDSize) - 1 sb.Append( String .Format( "{0:X2}" , outbuff(i))) Next i sb.Append( "-" ) For i = dwPlatformIDOffset To (dwPlatformIDOffset + dwPlatformIDSize) - 1 sb.Append( String .Format( "{0:X2}" , outbuff(i))) Next i Return sb.ToString() End Function End Module Now, from your application just do something like this: Dim result As String = GetDeviceID() MsgBox(result) Hope that this may be help