August 19, 200521 yr how do I copy the i386 to the drive and change windows properties so when a program needs files the windows will check them in the i386 directory on the drive?
August 20, 200521 yr That was discussed just recently so it can't be but 5-6 pages deep in here. I added it to my own or gave option if.Search for it.
August 20, 200521 yr The path to the source files is located in the following registrykey:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SourcePathSo just copy the files to the drive perhaps in a subfolder i386 of the windows directory and run the following command:reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion" /v "Sourcepath" /t REG_EXPAND_SZ /d "%WINDIR%\i386" /F
August 22, 200521 yr Here is a VBscript I wrote to do just what you're looking for. Note that I delete the svcpack directory after copying i386 over to the hard drive. I have a few hundred MB worth of silent switchless installers that don't really need to be taking up room in there.Dim ws, fs, windir, colDrives, objDrive, strCDSet ws = WScript.CreateObject("WScript.Shell")Set fs = CreateObject("Scripting.FileSystemObject")windir = ws.ExpandEnvironmentStrings ("%SYSTEMROOT%")Set colDrives = fs.DrivesFor Each objDrive in colDrives If fs.FileExists(objDrive.DriveLetter & ":\WIN51") Then strCD=objDrive.DriveLetter & ":\"Next'** Subroutine; Copy the i386 folder from the source media and make'** the appropriate registry entries.Sub CopySource Dim strKeyPath strKeyPath = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\" fs.CopyFolder (strCD & "i386"), (windir & "\i386"),True If fs.FolderExists(windir & "\i386\svcpack") Then fs.DeleteFolder(windir & "\i386\svcpack"),True ws.RegWrite strKeyPath & "SourcePath", "%systemroot%\\i386\\", "REG_SZ" ws.RegWrite strKeyPath & "ServicePackSourcePath", "%systemroot%\\i386\\", "REG_SZ"End Sub'** Run TasksCopySource Edited August 22, 200521 yr by RogueSpear
Create an account or sign in to comment