FoxPro/Visual FoxPro - usuario windows

Hola amigos foxeros

Tengo un pequeño problemilla, necesito saber como dientres hago para saber quien es el usuario que ingreso en windows. especificamente win XP, me refiero al usuario del windows XP ejemplo minombre, administrador,invitado ,etc.

De antermano
Muchas gracias

? SUBSTR(ID(),AT("#",ID())+1,30)

Muchas gracias me ayudaron a encontrar la solucion, plinio lo que me entreregastes me entrega en nombre con el cual carge la licencia de windows que no necesariamente es el mismo como usuario mostrado en cuentas de uasuario de windows, almenos eso me paso a mi, lo solucionje de la siguiente forma:

Si tienen algo mejor... seria bueno verlo:

#DEFINE wbemFlagReturnImmediately 0x10
#DEFINE wbemFlagForwardOnly 0x20
LOCAL llError
LOCAL loWMIService, loColumnas, loItem
LOCAL lcNameSpace, lcWQL, lcPC
STORE .NULL. TO loWMIService, loColumnas, loItem && Variables locales.
STORE "\root\CIMV2" TO lcNameSpace && Explorar clases del Namespace.
STORE SPACE( 0 ) TO lcWQL && Sentencia SQL (WQL).
STORE ALLTRIM( SUBSTR( SYS( 0 ), 1, ATC( "#", SYS( 0 ) ) - 1 ) ) TO lcPC &&Ordenador que se desea explorar.
loWMIService = GETOBJECT("winmgmts:\\" + lcPC + lcNameSpace )
lcWQL = "SELECT * FROM Win32_UserAccount"
loColumnas = loWMIService.ExecQuery( lcWQL, "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
FOR EACH loItem IN loColumnas
IF ALLTRIM(SUBSTR(loItem.Caption,AT("\",loItem.Caption)+1,30)) = ALLTRIM(SUBSTR(ID(),AT("#",ID())+1,30))
?loItem.FullName
endif
ENDFOR

Lo malo es que no corre en fox 6

:-|

:-)

:-)