Also im Prinzip dann so:
Set oContainer=GetObject("LDAP://OU=abi2006,OU=Schüler,OU=Unterricht,DC=home,DC=de")
ModifyUsers oContainer
'cleanup
Set oContainer = Nothing
Sub ModifyUsers(oObject)
Dim oUser
oObject.Filter = Array("user")
For Each oUser in oObject
oUser.Put "profilePath","\\dc-01\profile\Schüler"
oUser.SetInfo
Next
Wenn alle Schüler das selbe Profilverzeichnis bekommen sollen.