|
Doc, I was just going to post a translation for you. You beat me to it.
Oh, well. At least I can help you with the Filter. Take a peek at this...
Dim $sFilter[0] $sFilter[0]="User"
$UserGroup = GetObject('LDAP://blah...')
$UserGroup.Filter = $sFilter
For Each $User in $UserGroup
If Not $User.profilePath =""
'Old ProfilePath for '+$User.Name+': '+$User.profilePath+"*" ?
$user.PutEx (1,"profilePath","")
;$user.profilePath="test"
$user.SetInfo
'New ProfilePath for '+$User.Name+': '+$User.profilePath+"*" ?
EndIf
Next
[ 23. June 2003, 20:28: Message edited by: Chris S. ]
| 
