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.