Hi Steve,
Not sure exactly what you want, what about this:
clear
loLDAP = Getobject('Winmgmts://./root/directory/ldap')
loUsers = loLDAP.ExecQuery('Select * from ds_user where ds_SAMAccountName="' + Getenv("USERNAME") + '"')
for each loUser in loUsers
? loUser.ds_name, loUser.ds_SAMAccountName
endfor
"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