Personally, I would prefer to be in control of this myself - you will know why a person is in the 'Sin Bin' and, you know that nobody can be put in there by accident etc.
On the other hand, I don't think it's all that complex, you might need some funky string functions to work out the real OU etc...
Code:
strUserDN = "cn=username,ou=intake01,ou=students,dc=domain,dc=local"
strOUDN = "ou=sinbin,ou=students,dc=domain,dc=local"
Set objUser = GetObject("LDAP://" & strUserDN)
Set objOU = GetObject("LDAP://" & strOUDN)
objOU.MoveHere objUser.ADsPath, objUser.Name