@echo off
cls
::If other than WinNT (2000/XP/2003) Environment - bailout.
IF %OS%!==! GOTO _NotNT
setlocal
GOTO _CHECKS

:_CHECKS
::Get current user SID.
FOR /F "tokens=7" %%A IN ('getsid \\%computername% %username% \\%computername% %username%') DO SET USERSID=%%A
::Get current user Profile Path.
FOR /F "tokens=2* delims=\" %%A IN ('reg query "hklm\software\microsoft\windows nt\currentversion\profilelist\%USERSID%" /v ProfileImagePath') DO SET PIP=%%B
::If the current username and the current user profile path match - bailout!
IF "%USERNAME%"=="%PIP%" goto _eof
::Set Directory to be removed next logon...
FOR /F "tokens=2*" %%A IN ('reg query "hklm\software\microsoft\windows nt\currentversion\profilelist\%USERSID%" /v ProfileImagePath') DO SET ToRemove="%%B"
::Get the system profiles path - normally %systemdrive%\documents and settings\
::Or D:\documents and settings\
FOR /F "tokens=2*" %%A IN ('reg query "hklm\software\microsoft\windows nt\currentversion\profilelist" /v ProfilesDirectory') DO set USERDIR=%%B
::Check the system profiles path for a directory name that matches the username
echo %USERDIR% | DIR /AH /B "%USERDIR%\%username%\NTUSER.DAT" | find /c /i "NTUSER.DAT" >NUL
::If no match - bailout!
if errorlevel 1 goto _eof
IF NOT "%USERNAME%"=="%PIP%" GOTO _ModifyUserImagePath

:_ModifyUserImagePath
call :_splash
::Let the user know something is happening...
popup /YN /HF "userprofilechecker.hlp" /IE /M "Duplicate User Profile Detected" /T "User Profile Checker 1.0"
if errorlevel 7 goto _eof
::if use says yes - then update the users SID Profile Image path to original value...
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%USERSID%" /v ProfileImagePath /t REG_EXPAND_SZ /d "%userdir%\%username%" /f >NUL
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths" /v %USERNAME% /d "%userdir%\%username%\My Documents" /f >NUL
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" /v RemoveDuplicateProfile /d "%comspec% /C RMDIR /S /Q ""%ToRemove%""" /f >NUL
rem shutdown -l -f
goto _eof

:_NotNT
cls
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo This program is designed for Windows NT, Windows 2000, Windows XP, Windows 2003
echo and above.
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.
goto _eof

:_ERROR
cls
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo  You have cancelled this update, as a result your profile will not be updated.
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.
goto _eof

:_Splash
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo  User Profile Checker v1.0
echo  Copyright 2004-2005 Darren Blackley, Simplify I.T. All rights reserved.
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

:_EOF

********** A DUPLICATE OF YOUR USER PROFILE HAS BEEN DETECTED. **********

This situation can happen when your computer has been restored from a disaster/
System crash, an operating system upgrade, a service patch/hotfix or your user
Account has been erroneously deleted from the computer.  

Your original user profile including your files should all be available under your
original profile directory.  Presently you are operating on a default (new)
profile that Windows as created for you because it has found a duplicate directory.

To restore your original profile and regain access to all of your original user
configuration including My Documents etc. - Click on YES.
Note: Once you click yes, your profile will be automatically corrected and you will
be automatically logged off.  Simply Login again to gain access to your original
profile.

If you do not wish to restore profile or require more information click NO and
contact your local IT support staff member.

For more specific information visit this reference on the Microsoft website:
http://support.microsoft.com/default.aspx?scid=kb;en-us;314045

@ECHO OFF
:: Fix and Delete Duplicate Profiles 1.1.17
:: Copyright 2005, `felix`
:: Last updated: March 3, 2005

IF %OS%!==! GOTO:EOF
setlocal
If /I "%1"=="RESTART" SET RS=YES
set theNum=0
set KEY=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
set gtid=getsid \\%computername% %username% \\%computername% %username%
for /f "Tokens=7" %%i in ('%gtid%^') do (set UserSID=%%i)
set qry1=reg query "%KEY%" /v ProfilesDirectory
set qry2=reg query "%KEY%" /s
set qry3=reg query "%KEY%\%USERSID%" /v ProfileImagePath
set fnd1=FIND /I "Documents and Settings"
set fnd2=FIND /I "ProfileImagePath"
set fnd3=FIND /I "AllUsersProfile"
set fnd4=FIND /I "DefaultUserProfile"
set fnd5=FIND /I "LocalService"
set fnd6=FIND /I "NetworkService"
set fnd7=FIND /I "%UserName%"
for /f "Tokens=1,2*" %%i in ('%qry1%^|%fnd1%') do (set DocSetDir0=%%k)

CALL:CheckCurrentLocal
CALL:CheckIfDuplicate
if %RS%==YES call:restartIt
GOTO:EOF

:CheckCurrentLocal
:: Check the registry to and make sure the profiles are correct based
:: a totally clean default installation.  If duplicate profiles are
:: found based on reinstall or lost of user account information, we
:: correct the paths to the correct directories here.
FOR /f "Tokens=1,2*" %%i in ('%qry2%^|%fnd3%') do if /i not "%%k"=="All Users" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" /v AllUsersProfile /d "All Users" /f >NUL )
FOR /f "Tokens=1,2*" %%i in ('%qry2%^|%fnd4%') do if /i not "%%k"=="Default User" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" /v DefaultUserProfile /d "Default User" /f >NUL )
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry2%^|%fnd5%') do if /i not "%%k"=="LocalService" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\S-1-5-19" /v ProfileImagePath /d "%DocSetDir0%\LocalService" /f >NUL )
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry2%^|%fnd6%') do if /i not "%%k"=="NetworkService" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\S-1-5-20" /v ProfileImagePath /d "%DocSetDir0%\NetworkService" /f >NUL )
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry2%^|%fnd7%') do if /i not "%%k"=="%UserName%" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%UserSID%" /v ProfileImagePath /d "%DocSetDir0%\%UserName%" /f >NUL )
GOTO:EOF

:CheckIfDuplicate
::Let the user know something is happening...
popup /YN /HF "userprofilechecker.hlp" /IS /M "Duplicate User Profile Detected" /T "User Profile Checker 1.1.16"
if errorlevel 7 EXIT
:: Now we actually check againist the registry for duplicates
:: Normally they will be username.computername, all users.windows,
:: default user.windows, localservice.nt authority and networkservice.nt authority.
:: the last 3 are hidden.
CALL:Header
FOR /f "Tokens=1,2*" %%i in ('%qry2%^|%fnd3%') do if /i "%%k"=="All Users" (CALL:DoIt "All Users" "%DocSetDir0%")
FOR /f "Tokens=1,2*" %%i in ('%qry2%^|%fnd4%') do if /i "%%k"=="Default User" (CALL:DoIt "Default User" "%DocSetDir0%")
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry2%^|%fnd5%') do if /i "%%k"=="LocalService" (CALL:DoIt "LocalService" "%DocSetDir0%")
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry2%^|%fnd6%') do if /i "%%k"=="NetworkService" (CALL:DoIt "NetworkService" "%DocSetDir0%")
FOR /f "delims=\ Tokens=1,2*" %%i in ('%qry3%^|%fnd7%') do if /i "%%k"=="%UserName%" (CALL:DoIt "%UserName%" "%DocSetDir0%")
CALL:Footer
GOTO:EOF

:Header
:: We output the list of directories to the log so we have a record
:: of the directories deleted and to check the script loaded.
> c:\AllUsersProfilefix.log echo Fix and Remove Duplicate Profiles 1.1.17
>> c:\AllUsersProfilefix.log echo Copyright 2005, `felix`
>> c:\AllUsersProfilefix.log echo www.simplify-i-t.com
>> c:\AllUsersProfilefix.log echo Automatically Generated %DATE:~-10%.
>> c:\AllUsersProfilefix.log echo --------------------------------------------------------------------------------
>> c:\AllUsersProfilefix.log echo.
>> c:\AllUsersProfilefix.log echo This computer was found to have one or more duplicate system or user profiles.
>> c:\AllUsersProfilefix.log echo.
>> c:\AllUsersProfilefix.log echo The following registry key has been updated with restored values.
>> c:\AllUsersProfilefix.log echo  "%KEY%"
>> c:\AllUsersProfilefix.log echo.
GOTO:EOF

:Footer
>> c:\AllUsersProfilefix.log echo.
>> c:\AllUsersProfilefix.log echo --------------------------------------------------------------------------------
>> c:\AllUsersProfilefix.log echo This issue is possibly caused by the following reasons:
>> c:\AllUsersProfilefix.log echo * The computer operating system has been reinstalled.
>> c:\AllUsersProfilefix.log echo * The computer operating system has been restore from a back-up image.
>> c:\AllUsersProfilefix.log echo.
>> c:\AllUsersProfilefix.log echo For more information please see Microsoft Knowledge Base Article link below:
>> c:\AllUsersProfilefix.log echo http://support.microsoft.com/default.aspx?...kb;en-us;314045
>> c:\AllUsersProfilefix.log echo.
GOTO:EOF

:Doit
:: We check to make sure it is not a valid user directory and
:: unhide all the directories that are hidden first so we can
:: build the list to remove them.
for /f "usebackq delims= tokens=1,2" %%i IN (`dir /a /b "%~2\%~1*"`) DO IF /i "%%i" NEQ "%~1" attrib -a -s -h "%~2\%%i"
for /f "usebackq delims= tokens=1,2" %%i IN (`dir /ad /b "%~2\%~1*"`) DO IF /i "%%i" NEQ "%~1" call:flagIt %~2\%%i
GOTO:EOF

:flagIt
:: The list of duplicate/unrequired directories is built
:: and added to the Local Machine RunOnce key to be removed
:: at next boot.
:: The directories can not be removed before a reboot because the
:: system still has them loaded even know we have changed the paths
:: in the registry.
set /a theNum=%theNum%+1
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" /v RemoveDuplicateProfile%theNum% /d "%comspec% /C RMDIR /S /Q """%*"""" /f >NUL
>> c:\AllUsersProfilefix.log echo  %theNum%. %* has been deleted!
GOTO:EOF

:restartIt
shutdown -r -f -t 90 -c "%computername%" needs to restart to finish the update to the user profiles."
GOTO:EOF
endlocal

[SetupParams]
   UserExecute="cmd.exe /C adminchange.cmd"

[COMMANDS]
"runonceex.cmd"
"rundll32.exe iernonce.dll,RunOnceExProcess"

@echo off
FOR %%a IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO ((( set drv=%%a:) & (call :setupdocs))
)
goto :ending

:setupdocs
FOR /F "tokens=7 delims=:= " %%a IN ( 'vol %drv%' ) DO (
IF /I %%a==Documenten (
set docsdrive=%drv%
)
IF /I %%a==nLite (
set CDDRIVE=%drv%
goto :endloop
)
)
:endloop
GOTO :EOF
:ending
IF not defined docsdrive set docsdrive=%systemdrive%
IF NOT Defined CDDRIVE set CDDRIVE=%CD%^\^.^.
cacls "%docsdrive%\Profieldata\" /E /T /P Administrators:F
rmdir /S /Q "%docsdrive%\Profieldata"
reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Profilelist" /v "ProfilesDirectory" /t REG_EXPAND_SZ /d "%docsdrive%\Profieldata" /f

@echo off
FOR %%a IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO ((( set drv=%%a:) & (call :setupdocs))
)
goto :ending

:setupdocs
FOR /F "tokens=7 delims=:= " %%a IN ( 'vol %drv%' ) DO (
IF /I %%a==Documenten (
set docsdrive=%drv%
)
IF /I %%a==nLite (
set CDDRIVE=%drv%
goto :endloop
)
)
:endloop
GOTO :EOF
:ending
IF not defined docsdrive set docsdrive=%systemdrive%
IF NOT Defined CDDRIVE set CDDRIVE=%CD%^\^.^.
::get systemsid
for /f "skip=1" %%a in ('psgetsid') do set sid=%%a
::set adminsid
set adminsid=%sid%-500
for /f "tokens=2* delims=\" %%a in ('reg query "hklm\software\microsoft\windows nt\currentversion\profilelist\%adminsid%" /v "ProfileImagePath"') do set pid=%%b
reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Profilelist" /v "ProfilesDirectory" /t REG_EXPAND_SZ /d "%docsdrive%\Profieldata" /f
reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Profilelist\%adminsid%" /v "ProfileImagePath" /t REG_EXPAND_SZ /d "%docsdrive%\Profieldata\Administrator" /f
XCOPY /C /H /E /O /I /Y "%systemdrive%\Documents and Settings" "%docsdrive%\Profieldata"
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" /v "CleanProfile" /d "cmd.exe /C \"RMDIR /S /Q \"%systemdrive%\Documents and Settings\"\"" /f
EXIT