########################################################################
#                                                                      #
# Changes ProfilePath, TsProfilePath, HomeDirectory and                #
# TsHomeDirectory of a user.                                           #
#                                                                      #
# Requires ActiveRoles Management Shell for Active Directory installed #
#                                                                      #
# Created 23-11-2009                                                   #
# by René Iversen                                                      #
#                                                                      #
########################################################################
cls
add-pssnapin -name Quest.ActiveRoles.ADManagement

$users = Get-QADuser -SearchRoot 'kvik.dk/Users' -SizeLimit 0 | Sort-Object Name

for( $i = 0; $i -lt $users.length; $i++ )
{
    $oldHomeDirectory = ""
    $oldProfilePath = ""
    $oldTsHomeDirectory = ""
    $oldTsProfilePath = ""

    $user = $users[$i]

    if( $user.HomeDirectory -ne $null )
    {
        $oldHomeDirectory = $user.HomeDirectory
        $user.HomeDirectory = $user.HomeDirectory -replace "\\\\balder\\homedirectories\$", "\\kvik.dk\system\homedirectories"
    }
    if( $user.ProfilePath -ne $null )
    {
        $oldProfilePath = $user.ProfilePath
        $user.ProfilePath = $user.ProfilePath -replace "\\\\balder\\profiles\$", "\\kvik.dk\system\profiles"
    }
    if( $user.TsHomeDirectory -ne $null )
    {
        $oldTsHomeDirectory = $user.TsHomeDirectory
        $user.TsHomeDirectory = $user.TsHomeDirectory -replace "\\\\balder\\homedirectories\$", "\\kvik.dk\system\homedirectories"
    }
    if( $user.TsProfilePath -ne $null )
    {
        $oldTsProfilePath = $user.TsProfilePath
        $user.TsProfilePath = $user.TsProfilePath -replace "\\\\balder\\tsprofiles\$", "\\kvik.dk\system\tsprofiles"
    }

    $user.commitchanges()
    $user.DisplayName + " (" + $user.sAMAccountName + ") updated"
    "HomeDir:`t"       + $oldHomeDirectory +   " >> " + $user.HomeDirectory
    "ProfilePath:`t"   + $oldProfilePath +     " >> " + $user.ProfilePath
    "TsHomeDir:`t"     + $oldTsHomeDirectory + " >> " + $user.TsHomeDirectory
    "TsProfilePath:`t" + $oldTsProfilePath +   " >> " + $user.TsProfilePath
    "----------------------------------------------"
}