Kelsenellenelvian

Ah then I think there is an issue. The folder was IN the same folder as the script. Anyways I would like the iso the be put in the same dir as the source folder please.

OK next test is done! That seemed to work properly except I cannot find the .iso :S Also it suggested adding rock ridge to the parameters.

That would actually be AWESOME!

** Slams head on keyboard. No it didn't. Can you add option 2 for data iso's also?

Hmmm it loops at the browse for folder section.

Crap... Ok I will look into the other options then. I was just pretty excited by what had gotten done so far. Thanks guys

I am looking for something I can distribute, has to be really small, and must be super id*** proof in the end. (Hence the 3 choices only)

Vbs Code For Drap Drop Folder Or Open a Brows for Dialog, all that is needed is the code to make the iso. Const MyComp = &H11& Dim Boot, IsoFolder, Obj, Var If Wscript.Arguments.Count = 1 Then For Each Obj In WScript.Arguments If Right(InStr(Obj,"."),4) Or Right(InStr(Obj,"."),5) Then WScript.Echo "Error This Is Only For Folders Only" Else UserSelection(Obj) End If Next Else ManualSelectFolder() End If '-> Confirm Folder Path And Boot Or Data Iso Function ConfirmIt() If MsgBox("Is This The Correct Folder Path And Swich" & vbCrLf & IsoFolder,4132, "Results") = 6 Then If Boot Then MsgBox "Place Code To Make Boot Iso" & vbCrLf & "Bootable = " & Boot Else MsgBox "Place Code To Make Data Iso" & vbCrLf & "Bootable = " & Boot End If Else ManualSelectFolder() End If End function '-> User Choice Boot Data Quit Function UserSelection(Obj) Var = MsgBox( _ vbTab & "Make Iso Instructions" & vbCrLf & _ "Press Yes To Make A Bootable Iso" & vbCrLf & _ "Press No To Make A Data Iso" & vbCrLf & _ "Press Cancel To Exit Script" & vbCrLf & _ Obj, 4131,"Make Iso") If Var = 2 Then MsgBox "User Cancel Iso Creation", 4128,"Cancel Iso" WScript.Quit(0) ElseIf Var = 6 Then IsoFolder = Obj Boot = True ElseIf Var = 7 Then IsoFolder = Obj Boot = False End If ConfirmIt() End Function '-> Open A Brows For Folder Dialog Function ManualSelectFolder() Dim Shl :Set Shl = CreateObject("Shell.Application") Dim Fld :Set Fld = Shl.BrowseForFolder( _ 0, "Select The Iso Source Folder, Or Press Cancel To Exit Script And Do Nothing",16,MyComp) If Fld Is Nothing Then MsgBox "User Cancel Manual Add Folder",4128,"User Cancel" WScript.Quit(1) Else UserSelection(Fld.Items.Item.Path) End If End Function OK now this is awesome! What all code is needed from the previous makeiso.vbs? I mean I can add it all together but from previous posts and reading your script there is ALOT of waste in there. Can you cleanup and combine the old code and your code? Herte is the old code to make it easier on you: Option Explicit Dim fs, ws, arg, mypath, bootable, source, destination, label, mchar, params, LogFile Set fs = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") bootable = False mchar = 32 source = False mypath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - ( Len(WScript.ScriptName) + 1 ) ) Set LogFile = fs.OpenTextFile(mypath & "\log.txt",8,True,0) If WScript.Arguments.Count <> 0 Then For each arg in WScript.Arguments If Left(LCase(arg),2) = "/b" Or Left(LCase(arg),2) = "-b" Then bootable = True : mchar = 16 ElseIf fs.FolderExists(arg) Then source = fs.GetAbsolutePathName(arg) ElseIf fs.FileExists(arg) Then source = fs.GetAbsolutePathName(fs.GetParentFolder(arg)) ElseIf Right(arg,2) = ":\" Then LogFile.WriteLine(Date & " " & Time & " - Launching: " & mypath & "\LCISOCreator.exe") ws.Run Chr(34) & mypath & "\LCISOCreator.exe" & Chr(34) , 1 , False WScript.Quit Else WScript.Echo "Invalid argument <" & arg & ">" LogFile.WriteLine(Date & " " & Time & " - Non-Fatal Error: Invalid argument. <" & arg & ">") End If Next End If If Not VarType(source) = 8 Then WScript.Echo "Source folder not specified!" LogFile.WriteLine(Date & " " & Time & " - Fatal Error: Source folder not specified!") WScript.Quit End If ws.CurrentDirectory = source label = fs.GetFileName(source) Do If Len(label) > mchar Then If LCase(Right(WScript.FullName,12)) = "\cscript.exe" Then WScript.StdOut.Write VBCrLf & " Please enter a label for the ISO." & VBCrLf & " Label cannot be longer than " & mchar & " characters." & VBCrLf & VBCrLf & " >" label = WScript.StdIn.ReadLine Else label = InputBox("Please enter a label for the ISO." & VBCrLf & "Label canot be longer than " & mchar & " characters.") End If Else Exit Do End If If IsEmpty(label) Then label = " " Loop params = " -iso-level 2 -J -joliet-long -l -D -relaxed-filenames -N -V " & Chr(34) & label & Chr(34) & " -v -x thumbs.db -o ..\" & fs.GetBaseName(source) & ".iso ." If bootable Then If fs.FileExists(mypath & "\xpBoot.img") Then fs.CopyFile mypath & "\xpBoot.img", source & "\" Else WScript.Echo "Error! Cannot create bootable XP disc without XP boot image! <xpBoot.img>" LogFile.WriteLine(Date & " " & Time & " - Non-Fatal Error: Bootable discs cannot be created without a proper boot image.") LogFile.WriteLine(Date & " " & Time & " - The script will still attempt to execute on the chance that the image is present in the source directory.") End If params = " -b " & Chr(34) & "xpBoot.img" & Chr(34) & " -iso-level 2 -relaxed-filenames -joliet-long -N -d -duplicates-once -D -boot-load-seg 0x7C0 -boot-load-size 4 -hide xpBoot.img -hide boot.catalog -J -hide-joliet xpBoot.img -hide-joliet boot.catalog -no-emul-boot -volid " & Chr(34) & label & Chr(34) & " -sysid " & Chr(34) & "Win32" & Chr(34) & " -v -x thumbs.db -o ..\" & fs.GetBaseName(source) & ".iso ." End If ws.Run Chr(34) & mypath & "\mkisofs.exe" & Chr(34) & params , 10 , True LogFile.WriteLine(Date & " " & Time & " - Command Executed: " & Chr(34) & mypath & "\mkisofs.exe" & Chr(34) & params) If fs.FileExists(source & "\xpBoot.img") Then fs.DeleteFile source & "\xpBoot.img", True WScript.Quit Also this "LCISOcreator.exe" is this part even needed? If no can you remove the relevant code?

Really? Are you positive that is the case? They are not adding like 10,000 extra fonts are they? (Yes thats TEN THOUSAND) Seriously you would need a ton of fonts to slow down that system.

Well sh*t on me... HEY Thanks guys! Here is the finished product! It is a Tiny SendTo addition to make Either DATA iso's from a folder or Bootable ISO's for Win2k, WinXP and Win2k3 (vbs by dumpy dooby) It is also uninstallable! Size - 264kb MD5 = e32f361b5836a2ecbedd96b5c6711a2d

"%wpipath%\Install\Ccleaner" /s "This is a quick test" I added the quotes for complete-ness. It just seemed right.

Hey thats pretty cool. Now if there was only a way to set the window size... Googled the hell outta that one and couldn't find an answer.

OK just ran a quick test and added "This is a quick test" to the the end of a cmd (Including quotes) It displayed just fine. Doesn't seem to cause any problems.

I didn't even remember the installer display.

I have to ask: What is the purpose of the comment? You would only be able to see it if you manually are editing the config file, which isn't recommended anyways.

How do I get it to show just the options and not the path? Listem man I truly appreciate this. I would take way to long to finger this out.

Oooops I forgot it will be use on XP and later! THANK you so much.

OK I forgot ALOT of dos commands! I need a Basic cmd file that gives 3 choices 1 = Run app 2 = Run app w\switch /B 3 = Exit. Can one of you gurus give me a hand? Yes I wish for a cmd file as size DOES matter on this one.

Grab this little app and run it once. (It is just a wonderfull little app to re-register system fonts and correct any font-style errors) Thanks to code65k for creating it. As for why English doesn't do it? My guess is a couple of reasons. Windows is primarily English based. Arabic is a unicode language and XP's native unicode support lacks. More info on fontreg: http://www.ryanvm.net/forum/viewtopic.php?t=6729

Here ya go! http://www.mediafire.com/?td3tgh3zxw1g0ue

use a temp server like mediafire

AMEN!

Font issues? Just a shot in the dark but do you have the defualt Arabic fonts installed properly?

I put nothing there and it seems to work for me fine.

Please upload your autorun.exe and I will update it for you.