Hi

I used the following code which I found at:
Post
Code:

 Break On
 
$=SetOption('WrapAtEOL','on')
$=SetOption('NoVarsInStrings','on')
$=SetOption('Explicit','on')
 
Dim $D,$T,$sDate,$sWhat,$sFrom,$sFilter,$sScope,$aResults,$r
 
Call 'Functions\fnActiveTimeZone.kix' 
Call 'Functions\fnDateCalc.kix'
Call 'Functions\fnFlipcTime.kix'
Call 'Functions\fnInteger8Date.kix'
Call 'Functions\fnLDAPQuery.kix'
 
$D = DateCalc(@DATE,-90)
$T = '00:00:00'
 
$sDate=''+FlipcTime($D,$T,fnActiveTimeZone,'1601/01/01')+'0000000'
 
$sWhat = 'ADsPath','Name','pwdLastSet'
 
$sFrom = 'LDAP://'+GetObject('LDAP://rootDSE').Get('defaultNamingContext')
 
$sFilter = '(&(objectClass=computer)(pwdLastSet<='+$sDate+'))'
 
$sScope = 'subtree'
 
$aResults = fnLDAPQuery($sWhat,$sFrom,$sFilter,'pwdLastSet',$sScope)
@ERROR ' : ' @SERROR ??
 
For $r = 0 to Ubound($aResults)
   $aResults[$r,1] + ': ' + fnInteger8Date($aResults[$r,2]) ?
Next
 
 ? 'Password unchanged since ' + $D + ': ' + (Ubound($aResults) + 1) ?
 
Get $


and changed
$sFilter = '(&(objectClass=computer)(pwdLastSet<='+$sDate+'))'
to
$sFilter = '(&(objectClass=user)(pwdLastSet<='+$sDate+'))'

and now I get users but I also get computers. Anyone know how I can only get users ?