como obtener el nombre del equipo en vb6

rmillarm · #1 (**permalink**) 14/10/2010, 11:05

HOla a todos, soy un programador autodidacta y estoy haciendo un desarrollo para mi negocio. El problema es que no se como evitar que me lo copien y estaba pensando en obtener a traves del codigo el nombre que tiene registrado el equipo y guardarlo en la base de datos. De esta forma puedo obtener el nombre del equipo en tiempo de ejecución y compararlo con el nombre autorizado que esta en la base de datos, si no es el mismo que no corra el programa.
Alguien puede ayudarme para saber como hacer esto a traves del codigo?? de antemano gracias a todos.

Monimo · #2 (**permalink**) 14/10/2010, 11:23

Environment.MachineName, lo asignas a un string y listo. Esta en la clase System

lokoman · #3 (**permalink**) 14/10/2010, 19:57

O sea, en vb6.0:

Código vb:

Ver originalMsgBox Environ("computername")

erbuson · #4 (**permalink**) 15/10/2010, 06:50

Hola, personalmente creo que es mas fiable usar APIS

Código vb:

Ver original'--- API para obtener el nombre del equipo
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal LpBuffer As String, nsize As Long) As Long
 
 
Public Function ComputerName() As String
  '-- Funcion auxiliar que devuelve el nombre del equipo llamando al API
  ComputerName = Space$(260)
  GetComputerName ComputerName, Len(ComputerName)
  ComputerName = Left$(ComputerName, InStr(ComputerName, vbNullChar) - 1)
End Function

Saludos