Program Error
Cancel
Suspend
Ignore
Help
OLE error code 0x80041017: Unknown COM status code.

on the
for each loUser in loUsers line

After some pause.

>:(
>
>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
>