FoxPro/Visual FoxPro - usuario

Buenos días

De antemano agradezco su atencion

Mi pregunta es muy concreta que variable debo y como lo debo hacer para tomar desde mi programa Vfp el usuario conque ingreso al equipo por windwows


En verdad agradeceria su colaboracion


Rey

#DEFINE NO_ERROR 0

DECLARE INTEGER IsUserAnAdmin IN shell32

DECLARE INTEGER WNetGetUser IN mpr;
INTEGER lpName, STRING @lpUserName, INTEGER @lpnLength

LOCAL lcUser, lnBufsize
lnBufsize = 250
lcUser = Repli(Chr(0), lnBufsize)

IF WNetGetUser(0, @lcUser, @lnBufsize) = NO_ERROR
? "Nombre de Usuario:", SUBSTR(lcUser, 1, AT(Chr(0),lcUser)-1)
? "Es Administrador:", Iif(IsUserAnAdmin()=0, "No", "Si")
ENDIF

Gracias Edgar