Jose Manuel
08 de Enero del 2003

Existe algun numero identificativo de un equipo, que se pueda obtener por codigo, si es así, como se obtiene.

JRB
08 de Enero del 2003

Mediante la función API siguiente puedes obtener algunas informaciones del sistema.

Public Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

Public Declare Sub GetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As SYSTEM_INFO)


Mediante la siguiente función API puedes obtener el nombre del equipo. Tal vez te sirva ...

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long