id de usuario o nombe del equipo

Jose Castro
22 de Junio del 2005
Amigos, necesito saver como obtengo en id de usuario o el nombre del equipo.
Gracias

mvallejos
22 de Junio del 2005
Con dos APIs

GetUserName y GetComputerName

Ejemplo

Function NombrePC() as String
Dim Aux as String
Posi as Integer

Aux = String(chr$(0),40)
GetComputerName Aux, 40
Posi = Instr(1,Aux,chr$(0))
NombrePC = Mid(Aux,1,Posi-1=
End Function

Saludos