>It's a computer in the network, but I don't know what we're using here.

As trying is easy, we can assume you are in a domain and using LDAP, so you can try this code, note that this is an old test I've done long time ago and never used it other than for testing, so there is no error checking

#define	ADS_NAME_INITTYPE_GC	3
#define	ADS_NAME_TYPE_1779		1
#define	ADS_NAME_TYPE_NT4		3
clear

loUser			= GetObject("LDAP://" + getDistinguishedName(Getenv("USERNAME")))
? loUser.CN

Function getDistinguishedName(tcSAMAccountName, tcDomain)
	local loNameTranslate, lcDistinguishedName, lcDomain
 
 	lcDomain			= Iif(Vartype(tcDomain) = 'C' and not Empty(tcDomain), tcDomain, Getenv("USERDOMAIN"))
	loNameTranslate			= CreateObject("NameTranslate", ADS_NAME_INITTYPE_GC, "")
 	loNameTranslate.Set(ADS_NAME_TYPE_NT4, lcDomain + "\" + tcSAMAccountName)
	lcDistinguishedName		= loNameTranslate.Get(ADS_NAME_TYPE_1779)
	return lcDistinguishedName
endfunc