8 de marzo de 2000

Nombre del PC y del usuario

Sin utilizar la API, solo la función SYS(0) de VFP
Ejemplo:
? PC_USER(1)
? PC_USER(2)

*----------------------------
FUNCTION PC_USER(tn)
*----------------------------
* Retorna en nombre de la PC o el nombre del usuario
* Parametros: tn = 1 - Retorna el nombre de PC
*             tn = 2 - Retorna el nombre de usuario
*----------------------------
LOCAL lc, ln
  lc = SYS(0)
  ln = AT('#',lc)
  tn = IIF(EMPTY(tn) or type('tn')#'N',1,tn)
  IF tn = 1
    lc = LEFT(lc,ln-1)
  ELSE
    lc = SUBS(lc,ln+2)
  ENDIF

  RETURN lc
ENDFUNC
*----------------------------
Luis María Guayán

No hay comentarios. :

Publicar un comentario