Thanks. I just tried that one. Looks like this with my LDAP data:

DIM $objNewOU,$objOldOU,$filter[0],$objUser

$objNewOU = GetObject("LDAP://ou=Oud Leerling,dc=TestServer,dc=local")
$objOldOU = GetObject("LDAP://ou=108,dc=TestServer,dc=local")

$filter[0] = "User"
$objOldOU.Filter = $filter

For Each $objUser In $objOldOU
If $objUser.class = "User"
$objNewOU.MoveHere($objUser.ADsPath,"")
EndIf
Next

So theres a user in 108 that needs to be moved to "Oud Leerling".
When I run the script it gets executed but the user is still in 108.