Jump to content

CD Full


Recommended Posts

Hi to all

Well my Unattended Cd is full and i really don t want to use nlite to remove some things so i was wondering if i could install softwares from my second parition d: without having to put those heaving application on my cd

Thanx in advance

Link to comment
Share on other sites


Sure you could. Only problem is, that your second partition mustn't be always drive d: after installation. But in this case, you could write a batch, which detects a certain file on your second partition and then sets a variable to the drive letter of your second partition. ie put a file named mydrive.dat in the root of your second partition and use the following line in a batch:

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:\mydrive.dat set data=%%i:

Then in your runonceex.cmd you can use the variable %data% and just have to insert as last entry in your runonceex.cmd

REG ADD %KEY%\999 /VE /D "Delete the environment variable data" /f
REG ADD %KEY%\999 /V 1 /D "set data=" /f

Edited by Doc Symbiosis
Link to comment
Share on other sites

you could compress the folder that comtain the programs.

i had the same problem i compress with uhar, during install of s.o .

the file is copy to the disk and decompressed after install everything, you create a previous batch that delet de folder and the file compressed .

using this metod inside 700mb i pu office 2003 full+drivers+wxp+some programs

i hope this help

Link to comment
Share on other sites

I guess you could not read he said CD, plus not everyone has a dvd burner.

use a dvd

You can use either a cmd like the above posted or a VBS file that use WMI and a Querry

to search for the file.

Example this makes it so you do not need to know the location as the path to your app

is built from the Querry. This is a example with a text output file.

Const ForReading = 1, ForWriting = 2,ForAppending = 8

Dim ColFiles, objWMI, StrComputer

StrComputer = "."

Dim Act : Set Act = CreateObject("Wscript.shell")

Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")

Dim Test : Test = Array(_

"TweakUi.exe /passive /qr ",_

"NfoReader.msi /QR",_

"BitTorrent-4.0.1.exe /s /v/qn",_

"Test.exe Some Switch Here",_

"345.msi Some Switch Here",_

"345.exe Some Switch Here",_

"Hello.msi Some Switch Here",_

"hello.exe Some Switch Here",_

"Winamp5.msi Xname=Spad Xkey=XXXXX-XXXXX-XXXXX-XXXXX Xagent=1 Xlibrary=0 Xintex=1 " &_

"Xmodernskin=1 Xaudio=1 Xvideo=0 Xvisual=1 Xextra=1 Xregopt=0 /qr")

Dim Ts

Set Ts = Fso.OpenTextFile("TestSplit.txt", ForWriting, True)

Ts.WriteLine Space(3) & time() & "<----- BEGIN SPLIT TEST ----->" & Space(3) & Date() & vbCrLf

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' START THE SEARCH FOR THE UA APPS

For Each strtest In Test

CTest = strtest

App = Split(CTest, ".")

App(1) = Left(App(1), 3)

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set ColFiles = objWMI.ExecQuery("Select * from CIM_DataFile Where FileName = '" & App(0) & "' AND Extension = '" & App(1) & "'")

If ColFiles.count = 0 Then

Ts.WriteLine "Cannot Find This App" & Space(3) & App(0) & "." & App(1)

Else

End if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' TEMPLATE TO INSTALL UA APPS

For Each objFile in colFiles

'''' Extra Varibles If Needed

FName = Ucase(objFile.FileName)

Kbname = Ucase(objFile.FileName & "." & objFile.Extension)

KbPath = UCase(objFile.Drive & objFile.Path)

TheFile = KbPath & Kbname

If Fso.FileExists(TheFile) Then

Ts.WriteLine "<------------------------------>" & vbCrLf &_

"Act.Run(""" & KbPath & strtest & """)" & vbCrLf & "<------------------------------>"

Exit For

End If

Next

Next

Ts.Close

Act.Run("TestSplit.txt"),1,True

Fso.DeleteFile("TestSplit.txt")

RunOnce Entry

REG ADD %KEY%\555 /VE /D "Install Vbs" /f

REG ADD %KEY%\555 /V 1 /D "%CDROM%Apps\Install.vbs" /f

Edited by gunsmokingman
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...