nombre de pc

net
16 de Marzo del 2004
como saber cual es el nombre de la pc, donde se esta ejecutando un programa ¿? gracias

lechusg
16 de Marzo del 2004
La siguiente instrucción te devuelve el nombre de la PC y el del usuario en la forma "PC # usuario"

SYS(0)

para separalos hace lo siguiente:

cInfo = SYS(0)
nPos = AT("#",cInfo)

cNombrePC = LEFT(cInfo, nPos - 1)
cUsuario = SUBSTR(cInfo, nPos + 1)