@echo off
if [%1] == [] goto :usage
if [%2] == [] goto :usage
if [%3] == [] goto :usage
if [%4] == [] goto :usage
if [%5] == [] goto :usage
if not [%6] == [] goto :usage
if not exist "%~f1" (
echo Directory "%~f1" does not exist.
goto :usage
)
if not exist "%~f2" (
echo Directory "%~f2" does not exist.
goto :usage
)
if exist "%~f2\%3" (
echo "%~f2\%3" already exists so nothing to do, please delete it manually
goto :end
)

set pth=%~f1
set aio=%~f2
call set pth=%%pth:%aio%=%%
if "%pth%" == "%~f1" (
echo "%~f1" must be under "%~f2".
goto :end
)

if exist "%1\I386\TXTSETUP.SIF" (
set src_dir=%1\I386
set dest_dir=%2\%3
set archit=I386
) else if exist "%1\AMD64\TXTSETUP.SIF" (
set src_dir=%1\AMD64
set dest_dir=%2\%4
set archit=AMD64
) else (
echo Cannot find TXTSETUP.SIF in I386 or AMD64 in %1
)

type "%src_dir%\TXTSETUP.SIF" | findstr /r ",_[1-9] ,[1-9]_" | sed -e s/"=.*"/""/g -e s/" .*"/""/g > out.txt
type out.txt | sed -e s/".$"/"_"/g > out_.txt

mkdir "%dest_dir%"

for /f %%i in ('type out.txt') do copy "%src_dir%\%%i" "%dest_dir%" > nul 2>&1
for /f %%i in ('type out_.txt') do copy "%src_dir%\%%i" "%dest_dir%" > nul 2>&1

copy "%src_dir%\BOOTFONT.BIN" "%dest_dir%" > nul 2>&1
copy "%src_dir%\BOOTFONT.BIN" "%2" > nul 2>&1

mkdir "%dest_dir%\SYSTEM32"
copy "%src_dir%\system32\*.*" "%dest_dir%\SYSTEM32" > nul 2>&1

set pth=%pth:\=\\%
type "%src_dir%\TXTSETUP.SIF" | sed -e s/"SetupSourcePath = \""/"SetupSourcePath = \"%pth%"/g > "%dest_dir%\TXTSETUP.SIF"
unix2dos "%dest_dir%\TXTSETUP.SIF"

del "%dest_dir%\NTDLL.DLL" > nul 2>&1

if "%archit%" == "AMD64" (
mkdir "%2\%3"
copy "%1\I386\NTDETECT.COM" "%2\%3" > nul 2>&1
)

if "%5" == "1" (
copy SETUPLDR.BIN "%2\%3" > nul 2>&1
) else (
copy "%1\I386\SETUPLDR.BIN" "%2\%3" > nul 2>&1
)
start /w xvi32.exe "%2\%3\SETUPLDR.BIN" /S=replaceI386.xsc "%3"
if "%archit%" == "AMD64" (
start /w xvi32.exe "%2\%3\SETUPLDR.BIN" /S=replaceAMD64.xsc "%4"
)

copy BOOT.BIN "%2\%3.bin" > nul 2>&1
start /w xvi32.exe "%2\%3.bin" /S=universalrepl.xsc "I386" "%3"

del OUT.txt > nul 2>&1
del OUT_.txt > nul 2>&1

copy "%1\CDROM*.*" "%2"\ > nul 2>&1
copy "%1\WIN51*.*" "%2"\ > nul 2>&1

goto :end

:usage
echo Usage: %~n0 setup_dir aio_dir boot_dir1 boot_dir2 flag_for_using_cracked_setupldr
goto :end

:end

Usage: create_boot_folder setup_dir boot_dir1 boot_dir2 flag_for_using_cracked_setupldr

Usage: create_boot_folder setup_dir aio_dir boot_dir1 boot_dir2 flag_for_using_cracked_setupldr

Ex. DIR Structure:
***non-working***
$OEM$
Setup
-English
----WINXP
--------Original
------------I386
------------OEM

***Working*** (moved OEM to root)
$OEM$
Setup
OEM
-English
----WINXP
--------Original
------------I386
------------OEM