SET  WDir=%~1
ECHO  ᥪ権 inf 䠩.
Call :SetChcp
Chcp 1251 >nul

%WDir%\INFCLEAN "%I386%\txtsetup.sif" >nul
%WDir%\INFCLEAN "%I386%\dosnet.inf" >nul

Expand -r "%I386%\SYSOC.IN_" Temp\ >nul
Type Temp\SYSOC.inf>Temp\SYSOC0.inf
Del /F /Q Temp\SYSOC.inf
Ren Temp\SYSOC0.inf SYSOC.inf
%WDir%\INFCLEAN "Temp\SYSOC.INF" >nul
Del /F /Q "%I386%\SYSOC.IN_"
MakeCab /L "%I386%" Temp\SYSOC.INF SYSOC.IN_ >nul

If Exist "%I386%\SVCPACK.IN_" (
    Expand -r "%I386%\SVCPACK.IN_" Temp\ >nul
  ) Else (
    If Exist "%I386%\SVCPACK.INF" Copy "%I386%\SVCPACK.INF" Temp\ >nul
  )

If Exist Temp\SVCPACK.INF (
    Type Temp\SVCPACK.INF>Temp\SVC.INF
    Del /F /Q Temp\SVCPACK.INF
    Ren Temp\SVC.INF SVCPACK.INF
    %WDir%\INFCLEAN "Temp\SVCPACK.INF" >nul
    If Exist "%I386%\SVCPACK.IN_" Del /F /Q "%I386%\SVCPACK.IN_"
    If Exist "%I386%\SVCPACK.INF" Del /F /Q "%I386%\SVCPACK.INF"
    MakeCab /L "%I386%" Temp\SVCPACK.INF SVCPACK.IN_ >nul
  )
Chcp %Chcp% >nul
GoTo :EOF

:SetChcp
  For /F "Tokens=2 Delims=:" %%I In ('Chcp') Do (
    Set Chcp=%%I
  )
GoTo :EOF