gunsmokingman

Just DownLoad The Royale Theme Place It In This Directory Your Hard Drive:\XPCD\$OEM$\$$\Resources\Themes\Royale After The Install You Should Have This Dir Your Hard Drive:\WINDOWS\Resources\Themes\Royale Doing It This way there is no need to makecab the files or replace any files.

Read This thread On The Subject Plus Use The Search Function Before Posting Thread

Make A Shortcut Of The Program In Windows Than Change Example "C:\Program Files\003RegTools\EasyClean\EasyClea.exe" To This "%systemdrive%\Program Files\003RegTools\EasyClean\EasyClea.exe" Than Place it In The Ua folder

Type This In Cmd promt Set Then Hit Enter To Get A List

Here Is A SFX Vbs File That Will Do What You Want. Dim Shell, AP, UP, SD, SP, Wd, fso, f V = Vbcrlf on error resume next Set Shell = WScript.CreateObject("WScript.Shell") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") SP = Shell.ExpandEnvironmentStrings("%SystemDrive%\Program Files") WD = Shell.ExpandEnvironmentStrings("%Windir%\") Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(AP & "\Application Data\Microsoft\Internet Explorer\Quick Launch") Wscript.sleep 300 if not objFolder is nothing then objFolder.CopyHere(AP & "\Desktop\*.lnk") end if set objShell = nothing set objFolder = nothing Wscript.sleep 300 On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(UP & "\Application Data\Microsoft\Internet Explorer\Quick Launch") Wscript.sleep 300 if not objFolder is nothing then objFolder.CopyHere(UP & "\Desktop\*.lnk") end if set objShell = nothing set objFolder = nothing Wscript.sleep 300 ''''''''HERE WHERE WE WILL PERFORM ALL THE CLEAN UPS ON ERROR RESUME NEXT fso.DeleteFile( AP & "\Desktop\*.lnk") fso.DeleteFile( UP & "\Desktop\*.lnk") fso.DeleteFile( AP & "\Start Menu\Set Program Access and Defaults.lnk") fso.DeleteFile( AP & "\Start Menu\Windows Catalog.lnk") fso.DeleteFolder( SD & "\Drivers") fso.DeleteFolder( SD & "\Install") shell.popup "Completed Clean Up preparing To Shut Down",5,"Gsm Clean Up",0+32 sh.Run ("shutdown.exe -r -f -t 60 -m ""Windows XP will now restart in 1 minute...""") fso.DeleteFile( SD & "\GsmClean.vbs")

No Win2 does not have that capacity.

Try This User Account Maker

Here This Makes A Folder Based On date In This Format 03-01-2005 @echo off cls color F2 mode con: Cols=55 Lines=3 Title What Year Is It Test 2 NLSFUNC SET D1=%date:~-4,10% SET D2=%date:~7,-5% SET D3=%date:~4,-8% SET D4=%date:~0,-10% if exist %D3%-%D2%-%D1% goto E1 if not exist %D3%-%D2%-%D1% goto W1 :W1 mkdir %D3%-%D2%-%D1% echo. echo Folder %D3%-%D2%-%D1% Was Made! ping -n 3 127.0.0.1>nul exit :e1 echo. echo Folder Was Already Made! ping -n 3 127.0.0.1>nul

Here is A VBS Box That Says Hello msgbox "hello", 0+48,"Vbs Box" Here A Wscript Popup That Says Hello And closes it self CreateObject("wscript.shell").popup "Hello",3,"WsPopUp Box",0 + 32 Here A Vbs Inputbox That Will Pass What You Type In To The Next WsPopUp Box strUser= InputBox("Type In Your Reply","VBS Inputbox","<-Type Reply Here->") CreateObject("wscript.shell").popup "You Type In:" & vbCrLf & strUser, 3, "WsPopUp Box", 0 + 32

This Will Allow 256 bit icons in the taskbar for W2k 256 tray icon fix

Here Is A script That Might Help You It Will Make A Text File In C:\ Than Move it to Program files than open the testme1.txt than it will close notepad.exe than clean up. echo off cls && Mode 55,3 && Color 19 && Test Program Files echo Today Is %date% >> "C:\testme1.txt" echo The Time Is %time% >> "C:\testme1.txt" echo Hello >> "C:\testme1.txt" echo This is a Test >> "C:\testme1.txt" ping -n 1 127.0.0.1>nul mkdir "%PROGRAMFILES%\ZZtemp" ping -n 1 127.0.0.1>nul move "C:\testme1.txt" "%PROGRAMFILES%\ZZtemp" ping -n 1 127.0.0.1>nul start notepad.exe "%PROGRAMFILES%\ZZtemp\testme1.txt" echo. && echo Here Is Your File && ping -n 5 127.0.0.1>nul taskKill /f /im notepad.exe del /s /q "%PROGRAMFILES%\ZZtemp\*.*" rmdir /s /q "%PROGRAMFILES%\ZZtemp" echo. && echo Completed!!! && ping -n 3 127.0.0.1>nul goto EOF exit

Try This Again echo test me >> %PROGRAMFILES%\testme1.txt echo test me >> "%systemdrive%\Program Files\testme2.txt" There will be only one file the one that works. That Is The One You Want On My computer The Red Does Not Work. The Green One Works.

Could You Run The Vbs Script At CmdLines.txt before nav is installed

Could You Have 2 reboots The first one say Install Nav Than Disable any services, than run the script, reboot and than have a new runonce start from that point, with the nav now running. That might work.

The first one will not output that text file The second one will output the text file To Test Open Cmd.exe Copy and paste the Red Example In To Cmd.exe Then hit enter Next Open Your Program Files And There Will Not Be A Text File There. Now Cut And Paste The Green Example Into Cmd.exe Hit Enter Open Program Files And There Will Be A Text File There Now. Hope This Helps

Thanks For Clearing That Up

Anything in the %AllUsersProfile% get removed Then Expalin How This Alway Works For Me Than fso.DeleteFile( AP & "\Desktop\Java Web Start.lnk") fso.DeleteFile( AP & "\Desktop\Nero StartSmart.lnk") fso.DeleteFile( AP & "\Desktop\Mozilla.lnk") fso.DeleteFile( AP & "\Start Menu\Set Program Access and Defaults.lnk") fso.DeleteFile( AP & "\Start Menu\Windows Catalog.lnk") fso.DeleteFolder( SD & "Drivers") fso.DeleteFolder( SD & "Install") fso.DeleteFile( SD & "GmanSilentCUP.VBS") and i call it from my runonceex.cmd REG ADD %KEY%\090 /VE /D "Wrar320ce" /f REG ADD %KEY%\090 /V 1 /D "%CDROM%Apps\Ua090\WinRar.exe" /f REG ADD %KEY%\170 /VE /D "Preparing Final Clean up ..." /f REG ADD %KEY%\170 /V 1 /D "%CDROM%Apps\SilentUaC.exe" /f Those Are Always Gone

Try This COPY /Y "%systemdrive%\Install\AdAware\defs.ref" "%systemdrive%\Program Files\Lavasoft\Ad-Aware SE Professional\" To Test Open Cmd.exe Cut And Paste The First One This One Will Fail echo test me >> %PROGRAMFILES%\testme.txt This One Works echo test me >> "%systemdrive%\Program Files\testme.txt"

This One Will Delete The File Plus Allow For A No Reply Plus Will Check And See If The File Is Present. The Defualt Time Out Action Is To Remove The Shortcuts. Cut And Paste And Save As GmanDelSC-v2.vbs V=vbCrLf ON ERROR RESUME NEXT Dim Shell, AP, UP, SD Dim fso, msg, D15 D15 = space(15) MSG1 = "Gsm Remove ShortCut" MSG2 = "The Defualt Time Out Action Is To Delete The Shortcut" MSG3 = "Performing Defualt Action And Removing This Shortcut" MSG4 = "This File Was Not There!" Set Shell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") Function APInetExplore filespec=(AP & "\Start Menu\Programs\Internet Explorer.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4,MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Internet Explorer.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Internet Explorer.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function UPInetExplore filespec=(UP & "\Start Menu\Programs\Internet Explorer.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4,MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Internet Explorer.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Internet Explorer.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function APWMP10 filespec=(AP & "\Start Menu\Programs\Windows Media Player.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4,MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function UPWMP10 filespec=(UP & "\Start Menu\Programs\Windows Media Player.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4,MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function APOutlookExpress filespec=(AP & "\Start Menu\Programs\Outlook Express.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4,MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function UPOutlookExpress filespec=(UP & "\Start Menu\Programs\Outlook Express.lnk") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function Function FINAL filespec=(SD & "\GmanDelSC-v2.vbs") Del1=filespec Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then BtnCode = Shell.Popup("Do You Want To Remove?" & V & Del1 & V &_ MSG2, 8, D15 & MSG1, 4 + 32) Select Case BtnCode case 6 Shell.Popup "Deleting" & V & del1,4, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\GmanDelSC-v2.vbs") case 7 Shell.Popup "User Selected Not To Delete" & V &_ Del1,5, D15 & MSG1, 0 + 64 case -1 Shell.Popup MSG3 & V &_ Del1, 5, D15 & MSG1, 0 + 64 fso.DeleteFile( UP & "\GmanDelSC-v2.vbs") End Select Else msg = Shell.Popup(filespec & V & MSG4, 5, D15 & MSG1, 0 + 48 ) End If ReportFileStatus = msg Set fso = nothing End Function APInetExplore wscript.sleep 1000 UPInetExplore wscript.sleep 1000 APWMP10 wscript.sleep 1000 UPWMP10 wscript.sleep 1000 APOutlookExpress wscript.sleep 1000 UPOutlookExpress wscript.sleep 1000 FINAL Here Is A SFX That Will Run Also

Sorry My Mistake Here A Re- Edit Save As Remove Shortcuts Silent No Message Box ON ERROR RESUME NEXT Dim Shell, AP, UP, SD Set Shell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") fso.DeleteFile( AP & "\Start Menu\Programs\Internet Explorer.lnk") fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Internet Explorer.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") Message Box 3 Second Time Out ON ERROR RESUME NEXT Dim Shell, AP, UP, SD Set Shell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") fso.DeleteFile( AP & "\Start Menu\Programs\Internet Explorer.lnk") fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Internet Explorer.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") CreateObject("wscript.shell").popup "Completed Removing Shortcuts",3,"Gsm Remove ShortCuts",0+64

Either will work 1\ start /w wscript.exe %systemdriver%\install\RemoveShortCuts.vbs 2\ wscript.exe %systemdriver%\install\RemoveShortCuts.vbs

Here A VBS Script That Should work Cut And Paste Then Save As RemoveShortCuts.vbs This Is Silent ON ERROR RESUME NEXT Dim Shell, AP, UP, SD AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") Set Shell = WScript.CreateObject("WScript.Shell") fso.DeleteFile( AP & "\Start Menu\Programs\Explorer.lnk") fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Explorer.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") This Is With A Message Box And A 3 Second Time Out ON ERROR RESUME NEXT Dim Shell, AP, UP, SD AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") Set Shell = WScript.CreateObject("WScript.Shell") fso.DeleteFile( AP & "\Start Menu\Programs\Explorer.lnk") fso.DeleteFile( AP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( AP & "\Start Menu\Programs\Outlook Express.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Explorer.lnk") fso.DeleteFile( UP & "\Start Menu\Programs\Windows Media Player.lnk" ) fso.DeleteFile( UP & "\Start Menu\Programs\Outlook Express.lnk") CreateObject("wscript.shell").popup "Completed Remove Shortcuts!", 3, "Remove Shortcuts", 0 + 64 Hope This Helps

Here This Should Help You I Made It Based On Your Post @ECHO OFF cls && mode 55,5 && Color F1 Title Add User Info To Winnt.sif :UserProduckey cls && Color F1 echo. echo Please Enter Windows Product Key set /p Key= Here -^> cls && Color 1f echo. echo %key% ping -n 2 127.0.0.1>nul :Username cls && Color F1 echo. echo Please Enter A User Name set /p Uname= Here -^> cls && Color 1f echo. echo %Uname% ping -n 2 127.0.0.1>nul :Computername cls && Color F1 echo. echo Please Enter A Computer Name set /p Cname= Here -^> cls && Color 1f echo. echo %Cname% ping -n 2 127.0.0.1>nul cls && Color F1 Title OutPut The Sif echo. echo Processing... if exist a:\WINNT.SIF DEL a:\WINNT.SIF ping -n 1 127.0.0.1>nul rem --------------------------------------------- rem WRITE NEW ANSWER FILE rem --------------------------------------------- ECHO;SetupMgrTag >>a:\WINNT.SIF ECHO [Data] >>a:\WINNT.SIF ECHO AutoPartition=1 >>a:\WINNT.SIF ECHO MsDosInitiated="0" >>a:\WINNT.SIF ECHO UnattendedInstall="Yes" >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Unattended] >>a:\WINNT.SIF ECHO UnattendMode=FullUnattended >>a:\WINNT.SIF ECHO OemSkipEula=Yes >>a:\WINNT.SIF ECHO OemPreinstall=YES >>a:\WINNT.SIF ECHO TargetPath=\WINDOWS >>a:\WINNT.SIF ECHO UnattendSwitch="yes" >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [GuiUnattended] >>a:\WINNT.SIF ECHO AdminPassword="xxxxxx" >>a:\WINNT.SIF ECHO EncryptedAdminPassword=NO >>a:\WINNT.SIF ECHO AutoLogon=Yes >>a:\WINNT.SIF ECHO AutoLogonCount=1 >>a:\WINNT.SIF ECHO OEMSkipRegional=1 >>a:\WINNT.SIF ECHO TimeZone=110 >>a:\WINNT.SIF ECHO OemSkipWelcome=1 >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [UserData] >>a:\WINNT.SIF ECHO ProductKey=%key% >>a:\WINNT.SIF ECHO FullName=%Uname% >>a:\WINNT.SIF ECHO OrgName="Koster" >>a:\WINNT.SIF ECHO ComputerName=%Cname% >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Display] >>a:\WINNT.SIF ECHO BitsPerPel=16 >>a:\WINNT.SIF ECHO Xresolution=1024 >>a:\WINNT.SIF ECHO YResolution=768 >>a:\WINNT.SIF ECHO Vrefresh=70 >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [TapiLocation] >>a:\WINNT.SIF ECHO CountryCode=31 >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [RegionalSettings] >>a:\WINNT.SIF ECHO LanguageGroup=1 >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Branding] >>a:\WINNT.SIF ECHO BrandIEUsingUnattended=Yes >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Proxy] >>a:\WINNT.SIF ECHO Proxy_Enable=1 >>a:\WINNT.SIF ECHO Use_Same_Proxy=1 >>a:\WINNT.SIF ECHO HTTP_Proxy_Server=winroute:3128 >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Identification] >>a:\WINNT.SIF ECHO JoinDomain=Koster >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [Networking] >>a:\WINNT.SIF ECHO InstallDefaultComponents=Yes >>a:\WINNT.SIF ECHO. >>a:\WINNT.SIF ECHO [GuiRunOnce] >>a:\WINNT.SIF ECHO %systemdrive%\install\wpi\wpi.hta >>a:\WINNT.SIF ping -n 1 127.0.0.1>nul

Here A Vbs Script That determines The Cd varible on error resume next Dim strDriveLetter, intDriveLetter, ts, fs, fso, RB1, RB2 Set Shell = WScript.CreateObject("WScript.Shell") set WshShell = CreateObject("WScript.Shell") V= vbCrLf Function ActionCDCopy Const CDROM = 4 On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") strDriveLetter = "" For intDriveLetter = Asc("A") To Asc("Z") Err.Clear If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then If Err.Number = 0 Then strDriveLetter = Chr(intDriveLetter) Exit For End If End If Next Set fso = CreateObject("Scripting.FileSystemObject") CD=strDriveLetter If (fso.FileExists(CD & ":\i386\winnt32.exe")) Then Msg4=space(7) & "Check File Was There" RB1 = (WshShell.Popup (CD & ":\i386\winnt32.exe" & V & "Was There", 7,Msg4, 0 + 48 + 4096)) 'CopyXP Else Msg4=space(7) & "File Missing" RB2 = (WshShell.Popup (CD & ":\i386\winnt32.exe" & V & "Was Not There", 7,Msg4, 0 + 48 + 4096)) Msgbox "Place XP CD In The Cd Rom" & V & "Than Press Key To Continue",0+64,"Waiting For Cd" End If end function ActionCDCopy This Script Will copy XP To %systemdrive%\XPCD

Here I re did your script Your Code set tagfile=\WIN51 for %%i 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 if exist "%%i:%tagfile%" set C1=%%i: %SystemDrive% cd %SystemRoot%\system32 if exist setup.exe ren setup.exe setupold.exe if exist setupORG.exe ren setupORG.exe setup.exe %CDDRIVE%\$OEM$\$1\drivers\SetDevicePath.exe %CDDRIVE%\drivers start %CDDRIVE%\drivers\WatchDriverSigningPolicy.exe start /WAIT setup.exe %* EXIT My Edit Try This echo off cls && Color 9e for %%i 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 if exist "%%i:\WIN51" set C1=%%i: set D1=%SystemRoot%\system32\ if exist %D1%setup.exe ren %D1%setup.exe setupold.exe if exist %D1%setupORG.exe ren %D1%setupORG.exe setup.exe start /w %C1%\$OEM$\$1\drivers\SetDevicePath.exe start /w %C1%\$OEM$\$1\drivers\WatchDriverSigningPolicy.exe EXIT