Hallo nochmal,
ich habe mal Deine Werte eingetragen. So müsste es funktionieren:
set objuser = GetObject("LDAP:// CN="& Nachname &"\, "& Vorname,OU=Lehrer,OU=Benutzer,OU=HBS-MS.intern,DC=hbs-ms,DC=intern")
set objgroup = GetObject("LDAP:// CN=Schueler,OU=User,OU=HBS-MS.intern,DC=hbs-ms,DC=intern")
objgroup.add objuser.adspath
objgroup.setinfo
Gruß Xele