Alex C.
28 de Diciembre del 2004

Podría alguie decirme como puedo obtener el nombre del pc Windows Me si usar un control Winsock.

Se que usando la función api "GetComputerName", lo logro pero no hago que me funcione en Widows Me.
En Windows Xp el siguiente codigo me funciona:

dim nombre as string * 11
din n as long

n = GetComputerName (nombre, 11)

Label1.Caption = nombre

¿como hago para btener el nombre del pc en Windows Me?

mvallejos
28 de Diciembre del 2004

La variable Nombre funciona como Buffer, hay que rellenarla con caracteres

Dim Nombre as String
Dim Posi as integer
Nombre = String(20,chr$(0))
GetComputerName(Nombre,Len(Nombre))

'Luego se le quitan los caracteres sobrantes
Posi = Instr(1,Nombre,Chr$(0))
Nombre = Mid(Nombre,1,posi-1)

Espero que sirva

Saludos