RE: An Academic Exercise (was: RE: Minions (was RE: Undelete comm and) )

[Scharff, Chris]

> 2. Disable the user's NT account.

VB:
Dim User as IADsUser
Dim UserName as String
Dim UserDomain as String
UserDomin = "Your_NT_Domain"
UserName = "User_To_Be_Axed"
Set User = GetObject("WinNT://" & UserDomain & "/" & "Username & ",user")

Dim NewValue as Boolean
NewValue = True
User.AccountDisabled = NewValue
User.SetInfo


Perl:
if( Win32::AdminMisc::UserGetMiscAttributes( '', $User, \%Hash ) )
{
        # Turn on the &quoteAccount Disable&quote flag...
    $Hash{USER_FLAGS} = $Hash{USER_FLAGS} | UF_ACCOUNTDISABLE;
    Win32::AdminMisc::UserSetMiscAttributes( '', $User, USER_FLAGS,
$Hash{USER_FLAGS} );
}


> 1. Determine the user to be terminated.
> 3. Grant the primary NT account of the Manger's mailbox and 
> the Admins group
> owner rights to the terminated employee's mailbox.
> 4. Remove the Mailbox from any Exchange DLs for which it is a member.
> 5. Notify the manager and have them add the mailbox to the profile.
> 6. Once manager has added mailbox to profile, hide mailbox from GAL.
> 6.5 Make administrative note of pending deletion.
> 7. Run exmerge against mailbox.
> 8. Copy G: drive c: drive and pst files to CD burner machine.
> 9. Zip files (I hope).
> 10. Burn baby burn.
> 10.5 Interoffice to supervisor.
> 11. 90 days out.. Notify supervisor account is to be deleted.
> 12. Determine ownership of archived data.
> 13. Delete mailbox.
> 14. Delete NT account.
> 
> Comments? Suggestions? Problems?

_________________________________________________________________
List posting FAQ:       http://www.swinc.com/resource/exch_faq.htm
Archives:               http://www.swynk.com/sitesearch/search.asp
To unsubscribe:         mailto:[EMAIL PROTECTED]
Exchange List admin:    [EMAIL PROTECTED]