Estoy elaborando un programa el cual necesito que tome datos unicos de una pc, es decir quiero saber como y que datos podria yo leer de la pc donde este corriendo dicho programa los cuales hagan unica a esa maquina, ya que mi intencion es que posteriormente se registren en un archivo de texto que se encuentra en un ftp


La idea es para realizar algo asi como un control de licenciamiento


Gracias por su apoyo !!!

a ver si te ayuda te devuelve las variables del environment de la maquina





Sub pepe()
Dim mat() As String
lista mat()


End Sub


Public Function lista(ByRef mat() As String)
Dim x As Long
Dim str() As String
Dim aux As String


ReDim mat(0) As String
x = 1


aux = Environ(x)


Do While aux <> ""
str = Split(aux, "=")
ReDim Preserve mat(UBound(mat) + 1) As String
mat(UBound(mat)) = str(1)
x = x + 1
aux = Environ(x)
Loop


End Function