... WScript.CreateObject("WScript.Shell") Dim ws, t, p1, n, cn, MyBox, Title Dim itemtype p1 = "HKCR\CLSID\{2559a1f 3-2 1d 7 -1 1d4-bdaf-00c04f60b9f0}\" n = ws.RegRead(p1 & "LocalizedString") ... %%Q IN ("%DCT%") DO SET LABL=%%~nQ ECHO. ECHO Creating ISO CDIMAGE.EXE -l%LABL% -yd -n -h -x -o -m -d %DIRE% %DIRE%.iso ECHO. PAUSE EXIT Lưu tập tin này lại trong thư mục H:\Boot ... %%Q IN ("%DCT%") DO SET LABL=%%~nQ ECHO. ECHO Creating ISO CDIMAGE.EXE -l%LABL% -h -j1 -m -o - b%SystemRoot%\system32\img\xpBoot.img %DIRE% %DIRE%.iso ECHO. PAUSE EXIT Lưu tập...