my $oContainer = Win32::OLE->GetObject("LDAP://OU=$ou, DC=nmh, DC=nmhschool, DC=ORG");
   my $oUser = $oContainer->MoveHere("LDAP://CN=$logon, cn=Users, DC=nmh, DC=nmhschool, DC=ORG","CN=$logon");
   $oUser->SetInfo();