:(
What happens with this code? It is slow, in particular the first time, but just to see what happens
clear
lnStart = Seconds()
loLDAP = Getobject('Winmgmts://./root/directory/ldap')
loUsers = loLDAP.ExecQuery([Select * from ds_user where DS_sAMAccountName = '] + Getenv('USERNAME') + ['])
loSelectedUser = null
for each loUser in loUsers
loSelectedUser = loUser
exit
endfor
? loSelectedUser.DS_Name, Seconds() - lnStart
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges