Jump to content

JohnSteven

Member
  • Posts

    21
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Posts posted by JohnSteven

  1. Hi qzmicro,

    Yes it works. Do a search in the forums. Don't know exactly where I found the answer myself, but it's in the forum somewhere. Sorry I can't do better than that.

    Here's a copy of my cdshell.ini file for your reference:

    boot:
    cls
    print "\n"
    print "Press Enter to boot from DVD... \n"
    getkey 15 boot 0x80
    if $lastKey == key[enter]; then goto time
    # When no key found...
    goto boot

    # Function to display time of day
    time:
    set hour = $timeHour
    set ampm = "am"
    if $timeHour > 12; then set hour = $timeHour - 12
    if $timeHour > 12; then set ampm = "pm"
    set time = "$hour:$timeMinute $ampm"

    # Function to display date
    date:
    set month = "n/a"
    if $dateMonth == 1; then set month = "Jan."
    if $dateMonth == 2; then set month = "Feb."
    if $dateMonth == 3; then set month = "Mar."
    if $dateMonth == 4; then set month = "Apr."
    if $dateMonth == 5; then set month = "May."
    if $dateMonth == 6; then set month = "Jun."
    if $dateMonth == 7; then set month = "Jul."
    if $dateMonth == 8; then set month = "Aug."
    if $dateMonth == 9; then set month = "Sep."
    if $dateMonth == 10; then set month = "Oct."
    if $dateMonth == 11; then set month = "Nov."
    if $dateMonth == 12; then set month = "Dec."
    set date = "$month $dateDay, $dateYear"

    # Printing the Interface
    menu:
    cls
    set textColor= color[brightblue on black]
    set boldColor= color[red on black]
    print c "\n\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print c "\cXX<\c0B$time ÄÄÄÄ $date\cXX> \n\n"
    print c "\cXXMy \cXXMulti-Boot\cxx DVD v1.7\n\n"
    print l "\cXXPress \c0BF1 \cxxfor Help \n\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print "\n"
    print "1) Windows XP Professional SP1 Corporate \n"
    print "2) Windows 2000 \n"
    print "3) Windows 98 SE \n"
    print "4) Bart's PE \n"
    print "5) Knoppix \n"
    print "\n"
    print "S) Serials \n"
    print "Q) Quit to Command Prompt \n"
    print "R) Reboot \n"
    print "ESC) Boot 1st Harddisk \n"
    print c "\n"

    MainKey:
    getkey 20 boot 0x80
    if $lastKey == key[1]; then chain /PRO1.DAT
    if $lastKey == key[2]; then chain /2PRO.DAT
    if $lastKey == key[3]; then memdisk /98SE.IMA
    if $lastKey == key[4]; then chain /BPE1.DAT
    if $lastKey == key[5]; then memdisk /4320.IMA
    if $lastKey == key[s]; then goto SerialNumbers
    if $lastKey == key[q]; then end
    if $lastKey == key[r]; then reboot
    if $lastKey == key[F1]; then goto Help
    if $lastKey == key[esc]; then boot 0x80
    getkey
    goto menu
    end


    SerialNumbers:
    cls
    print c "\n\cXXSerial Numbers\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print "\n"
    print " ********** Windows 98 ------- \c0Bxxxxx-xxxxx-xxxxx-xxxxx-xxxxx\cxx********** \n"
    print "\n"
    print " ********** Windows 2000 Pro - \c0Bxxxxx-xxxxx-xxxxx-xxxxx-xxxxx\cxx********** \n"
    print "\n"
    print " ********** Windows XP Pro --- \c0Bxxxxx-xxxxx-xxxxx-xxxxx-xxxxx\cxx********** \n"
    print "\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print c "\n\n"
    print c"\c0BPress any key to return to main menu... \n"
    getkey
    goto menu

    Help:
    cls
    print c "\n\c0BMulti-Boot DVD - Main Menu\cxx Help \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "Pressing the \cXXKEY\cxx of your choice in the main menu will \cXXinitiate\cxx: \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "Key = \cXX1\cxx - \c0BWindows 98\cxx or\cxx \n"
    print "Key = \cXX2\cxx - \c0BWindows 2000\cxx or\cxx \n"
    print "Key = \cXX3\cxx - \c0BWindows XP Pro \n"
    print " \cXXOperating System setup with the normal prompts.\cxx \n"
    print "\n"
    print "Key = \cXX4\cxx - \c0BBart's PE\cxx - \CXXA Pre-installed XP OS with many utilities\cxx \n"
    print "\cXX that is run entirely from the DVD.\cxx \n"
    print "\n"
    print "Key = \cXX5\cxx - \c0BKnoppix\cxx - \cXXA Linux distribution that can be run entirely\cxx \n"
    print "\cXX from the DVD or installed to the HDD.\cxx \n"
    print "\n"
    print "Key = \cXXS\cxx - \c0BSERIAL NUMBERS \cxx - \cXXFor the listed Operating Systems\cxx \n"
    print "\n"
    print "Key = \cXXQ\cxx - \c0BCOMMAND PROMPT\cxx \n"
    print "\n"
    print "Key = \cXXESC\cxx - \c0BREBOOT\cxx \cXXto the system HDD\cxx \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "\n"
    print c"\c0BPress any key to return to main menu...\cxx \n"
    getkey
    goto menu
    end

  2. Resolved the problem with Nero. After selecting to make a boot DVD and selecting the boot file, I would click on the "New" button and a dual pane file manager would open. If I close the right file manager pane, I can then right click the left and add files from my home LAN. If I leave the right file manager pane open, my home LAN is not displayed. I know this sounds strange, but it is now functional.

    Thanks again for the help and ideas............

  3. Hi firefoxthebomb,

    Thanks for the reply.

    I tried putting Roxio V6.0 on my machine, but it said I had to uninstall v5.x.x first. OK, so I did the uninstall, rebooted, then when I opened Explorer, both of my DVD drives were missing. Device manager couldn't update the drivers either (code 31). I ended up doing a restore with Acronis and all was well again. Tried another uninstall and same scenario, had to restore the image again.

    Is there somethingabout Roxio that I should know???

  4. While attempting to make a bootable rescue DVD with my Acronis files (5 - 635mb files), I came to the realization that Nero could not see the Acronis files on my home LAN (using my destop to create bootable DVD for my laptop).

    Does anyone know of a DVD burning application, that would allow me to use my own boot files and burn files from another computer on my LAN?

  5. Could someone inform me where the file is that determines what is to be installed in Office 2000 by default. Would like to create a custom install for certain machines (i.e. - some machines get Access and Powerpoint and some get only Word and Excel). All the machines have different hardware configurations, but depending on the department, there are variables in the installed applications.

    Thanks for your help.

  6. Hi Blyenth,

    I just got my Knoppix distro up-n-running on my Multi-DVD. Found the info I needed on this site and on 911CD site and by searching and reading. Here's what worked fro me:

    ***************I believe the credit goes to Godzilla.***************

    I tried "my" way again with the Knoppix Version v3.6 (KNOPPIX_V3.6-2004-08-16-DE.iso) and it works.

    Just follow these steps:

    -Copy the folder (cdrom:\boot\)ISOLINUX folder from cd to your harddisk

    -Rename the isolinux.cfg to syslinux.cfg and DELETE boot.cat & isolinux.bin

    -Download the attached file and unzip it, start winimage, load/open the file

    -Put all files from ISOLINUX folder on your harddisk into the image file

    There should be 12 files in your image: boot.msg, f2, f3, german.kbd, ldlinux.sys, linux24, linux26, logo.16, memtest, minirt24.gz, minirt26.gz, syslinux.cfg

    -If that's correct SAVE the image

    You have to put this image in your AIODVD folder. I have a folder called images and put there all my images (also the 4320.img) i need, and i start them via cdshell with the following line

    CODE

    if ($lastKey == key[k]); then bcdw /images/4320.img

    If there are any problems, read the above 2-3 times 

    When there are still problems, let me know and i'll try to help you.

    @Godzilla

    This worked for Knoppix, I don't see why it wouldn't work for BBC also with some modifications.

    You'll need a few tools like WinISO and a Hex editor to get the job done.

  7. I don't see why this can't be done, providing you point cdshell to the appropriate boot folder. Just edit the setupldr.bin, txtsetup.sif, and boot sector (PRO1.dat) files accordingly - e.g. PRO1E (English), PRO1G (Greek), or to your liking.

    Also, go to this site, click on useful links, then go to Multi-boot DVD. Lots of knowledge can be gathered from there.

  8. Hi MCT,

    After playing with this for some time, finally got most of this multi-boot thing figured out (I'm sure someone will correct me if I make a mistake). Here's a shot of what my AIODVD folder looks like.

    AIODVD.jpg

    Here's a copy of an .ini file for CDShell I got from flyakite's site and I modified it to suit my likings.

    boot:
    cls
    print "\n"
    print "Press Enter to boot from DVD... \n"
    getkey 5 boot 0x80
    if $lastKey == key[enter]; then goto time
    # When no key found...
    goto boot

    # Function to display time of day
    time:
    set hour = $timeHour
    set ampm = "am"
    if $timeHour > 12; then set hour = $timeHour - 12
    if $timeHour > 12; then set ampm = "pm"
    set time = "$hour:$timeMinute$ampm"

    # Function to display date
    date:
    set month = "n/a"
    if $dateMonth == 1; then set month = "Jan."
    if $dateMonth == 2; then set month = "Feb."
    if $dateMonth == 3; then set month = "Mar."
    if $dateMonth == 4; then set month = "Apr."
    if $dateMonth == 5; then set month = "May."
    if $dateMonth == 6; then set month = "Jun."
    if $dateMonth == 7; then set month = "Jul."
    if $dateMonth == 8; then set month = "Aug."
    if $dateMonth == 9; then set month = "Sep."
    if $dateMonth == 10; then set month = "Oct."
    if $dateMonth == 11; then set month = "Nov."
    if $dateMonth == 12; then set month = "Dec."
    set date = "$month$dateDay,$dateYear"

    # Printing the Interface
    menu:
    set textColor= color[grey on black]
    set boldColor= color[cyan on black]
    cls
    print c "\n\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<\c0B$time $date\cXX>ÄÄ \n\n"
    print c "\cXXAdvanced Multi-Boot DVD v1.7\n\n"
    print l "\cXXPress \c0BF1 \cXXfor Help"; print r "\c0Bckite@portraitofakite.com \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print "1)  Windows XP Professional SP1 Corporate \n"
    print "2)  Windows XP Home SP1 Retail \n"
    print "3)  Windows Server 2003 Corporate \n"
    print "4)  Windows 2000 \n"
    print "5)  Windows 98 SE \n"
    print "6)  Windows ME \n"
    print "7)  Windows NT 4.0 Server \n"
    print "8)  ERD Commander 2003 \n"
    print "9)  ERD Commander 2003 /inram \n"
    print "\n"
    print "X)  More Options... \n\n"
    print "Q)  Quit to Command Prompt \n"
    print "R)  Reboot \n"
    print "ESC) Boot 1st Harddisk \n"
    print c "\n"

    MainKey:
    getkey 20 boot 0x80
    if $lastKey == key[1]; then goto XP_Pro
    if $lastKey == key[2]; then goto XP_Home
    if $lastKey == key[3]; then goto Server2003
    if $lastKey == key[4]; then goto 2000
    if $lastKey == key[5]; then memdisk /98SE.IMA
    if $lastKey == key[6]; then memdisk /ME.IMA
    if $lastKey == key[7]; then chain /NT4S.DAT
    if $lastKey == key[8]; then chain /ERD1.DAT
    if $lastKey == key[9]; then chain /ERD2.DAT
    if $lastKey == key[q]; then end
    if $lastKey == key[r]; then reboot
    if $lastKey == key[x]; then goto MoreOptions
    if $lastKey == key[F1]; then goto Help
    if $lastKey == key[esc]; then boot 0x80

    MoreOptions:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXMore Options \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "1)  Read/Copy Files From NTFS Volumes To FAT32/16 Drives \n"
    print "2)  Partition Magic 8.0 \n"
    print "3)  Norton Ghost \n"
    print "4)  View Serial Numbers \n"
    print c "\n\n"
    print "Press any key to return to main menu... \n"

    MoreOptions_Key:
    getkey 20 goto menu
    if $lastKey == key[1]; then memdisk /NTFS.IMA
    if $lastKey == key[2]; then memdisk /PM8.IMG
    if $lastKey == key[3]; then memdisk /GHOST.IMA
    if $lastKey == key[4]; then goto SerialNumbers
    goto menu

    SerialNumbers:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXSerial Numbers\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
    type /Serial~1.txt
    print c "\n\n"
    print "Press any key to return to main menu... \n"
    getkey
    goto menu

    XP_Pro:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXMicrosoft Windows XP Professional SP1 Corporate \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "1)  Regular \n"
    print "2)  Unattended \n"
    print "3)  OEMPreinstall \n"
    print c "\n\n"
    print "Press any key to return to main menu... \n"

    XP_Pro_Key:
    getkey 20 goto menu
    if $lastKey == key[1]; then chain /PRO1.DAT
    if $lastKey == key[2]; then chain /PRO2.DAT
    if $lastKey == key[3]; then chain /PRO3.DAT
    if $lastKey == key[F1]; then goto Help
    goto menu

    XP_Home:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXMicrosoft Windows XP Home SP1 Retail \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "1)  Regular \n"
    print "2)  Unattended \n"
    print c "\n\n"
    print "Press any key to return to main menu... \n"

    XP_Home_Key:
    getkey 20 goto menu
    if $lastKey == key[1]; then chain /HOM1.DAT
    if $lastKey == key[2]; then chain /HOM2.DAT
    if $lastKey == key[F1]; then goto Help
    goto menu

    Server2003:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXMicrosoft Windows Server 2003 Corporate \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "1)  Enterprise \n"
    print "2)  Standard \n"
    print "3)  Web \n"
    print "4)  Datacenter \n"
    print c "\n\n"
    print "Press any key to return to main menu... \n"

    Server2003_Key:
    getkey 20 goto menu
    if $lastKey == key[1]; then chain /3ENT.DAT
    if $lastKey == key[2]; then chain /3STD.DAT
    if $lastKey == key[3]; then chain /3WEB.DAT
    if $lastKey == key[4]; then chain /3DCT.DAT
    if $lastKey == key[F1]; then goto Help
    goto menu

    2000:
    cls
    print r "\n\cXXPress \c0BF1 \cXXfor Help \n"
    print c "\n\cXXMicrosoft Windows 2000 \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "1) Professional \n"
    print "2) Server \n"
    print "3) Advanced Server \n"
    print c "\n\n"
    print "Press any key to return to main menu... \n"

    2000_Key:
    getkey 20 goto menu
    if $lastKey == key[1]; then chain /2PRO.DAT
    if $lastKey == key[2]; then chain /2SRV.DAT
    if $lastKey == key[3]; then chain /2ADV.DAT
    if $lastKey == key[F1]; then goto Help
    goto menu


    Help:
    cls
    print c "\n\cXXMulti-Boot DVD Help \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "\n"
    print "Hit the key of your choice in the main menu -> \n"
    print "\n"
    print "\n"
    print "Install Types \n"
    print "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "Regular -       Install will prompt you for all information during setup. \n"
    print "Unattended -    Install with no user prompts. \n"
    print "OEMPreinstall - Install Windows and additional programs with no user prompts. \n"
    print "\n"
    print "\n"
    print "Press any key to return to main menu... \n"
    getkey
    goto menu
    end

    Here's a copy of my .ini file after some tweaking:

    boot:
    cls
    print "\n"
    print "Press Enter to boot from DVD... \n"
    getkey 15 boot 0x80
    if $lastKey == key[enter]; then goto time
    # When no key found...
    goto boot

    # Function to display time of day
    time:
    set hour = $timeHour
    set ampm = "am"
    if $timeHour > 12; then set hour = $timeHour - 12
    if $timeHour > 12; then set ampm = "pm"
    set time = "$hour:$timeMinute $ampm"

    # Function to display date
    date:
    set month = "n/a"
    if $dateMonth == 1; then set month = "Jan."
    if $dateMonth == 2; then set month = "Feb."
    if $dateMonth == 3; then set month = "Mar."
    if $dateMonth == 4; then set month = "Apr."
    if $dateMonth == 5; then set month = "May."
    if $dateMonth == 6; then set month = "Jun."
    if $dateMonth == 7; then set month = "Jul."
    if $dateMonth == 8; then set month = "Aug."
    if $dateMonth == 9; then set month = "Sep."
    if $dateMonth == 10; then set month = "Oct."
    if $dateMonth == 11; then set month = "Nov."
    if $dateMonth == 12; then set month = "Dec."
    set date = "$month $dateDay, $dateYear"

    # Printing the Interface
    menu:
    cls
    set textColor= color[brightblue on black]
    set boldColor= color[red on black]
    print c "\n\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print c "\cXX<\c0B$time ÄÄÄÄ $date\cXX> \n\n"
    print c "\cXXMy \cXXMulti-Boot\cxx DVD v1.7\n\n"
    print l "\cXXPress \c0BF1 \cxxfor Help \n\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print "\n"
    print "1)  Windows XP Professional SP1 Corporate \n"
    print "2)  Windows 2000 \n"
    print "3)  Windows 98 SE \n"
    print "4)  Bart's PE \n"
    print "5)  Knoppix \n"
    print "\n"
    print "S)  Serials \n"
    print "Q)  Quit to Command Prompt \n"
    print "R)  Reboot \n"
    print "ESC) Boot 1st Harddisk \n"
    print c "\n"

    MainKey:
    getkey 20 boot 0x80
    if $lastKey == key[1]; then chain /PRO1.DAT
    if $lastKey == key[2]; then chain /2PRO.DAT
    if $lastKey == key[3]; then memdisk /98SE.IMA
    if $lastKey == key[4]; then chain /BPE1.DAT
    if $lastKey == key[5]; then memdisk /4320.IMA
    if $lastKey == key[s]; then goto SerialNumbers
    if $lastKey == key[q]; then end
    if $lastKey == key[r]; then reboot
    if $lastKey == key[F1]; then goto Help
    if $lastKey == key[esc]; then boot 0x80
    getkey
    goto menu
    end


    SerialNumbers:
    cls
    print c "\n\cXXSerial Numbers\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print "\n"
    print "     ********** Windows 98 ------- \c0BXXXXX-XXXXX-XXXXX-XXXXX-XXXXX\cxx********** \n"
    print "\n"
    print "     ********** Windows 2000 Pro - \c0BXXXXX-XXXXX-XXXXX-XXXXX-XXXXX\cxx********** \n"
    print "\n"
    print "     ********** Windows XP Pro --- \c0BXXXXX-XXXXX-XXXXX-XXXXX-XXXXX\cxx********** \n"
    print "\n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
    print c "\n\n"
    print c"\c0BPress any key to return to main menu... \n"
    getkey
    goto menu

    Help:
    cls
    print c "\n\c0BMulti-Boot DVD - Main Menu\cxx Help \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "Pressing the \cXXKEY\cxx of your choice in the main menu will \cXXinitiate\cxx: \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "Key = \cXX1\cxx   - \c0BWindows 98\cxx or\cxx \n"
    print "Key = \cXX2\cxx   - \c0BWindows 2000\cxx or\cxx \n"
    print "Key = \cXX3\cxx   - \c0BWindows XP Pro \n"
    print "            \cXXOperating System setup with the normal prompts.\cxx \n"
    print "\n"
    print "Key = \cXX4\cxx   - \c0BBart's PE\cxx - \CXXA Pre-installed XP OS with many utilities\cxx \n"
    print "\cXX            that is run entirely from the DVD.\cxx \n"
    print "\n"
    print "Key = \cXX5\cxx   - \c0BKnoppix\cxx - \cXXA Linux distribution that can be run entirely\cxx \n"
    print "\cXX            from the DVD or installed to the HDD.\cxx \n"
    print "\n"
    print "Key = \cXXS\cxx   - \c0BSERIAL NUMBERS \cxx - \cXXFor the listed Operating Systems\cxx \n"
    print "\n"
    print "Key = \cXXQ\cxx   - \c0BCOMMAND PROMPT\cxx \n"
    print "\n"
    print "Key = \cXXESC\cxx - \c0BREBOOT\cxx \cXXto the system HDD\cxx \n"
    print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
    print "\n"
    print c"\c0BPress any key to return to main menu...\cxx \n"
    getkey
    goto menu
    end

    I'm still trying to figure out the $OEM$ folders and how to implement them.

    Once I figure out how to take a screenshot of how it looks while booting, I'll post it for you.

    Oh, BTW, the files for CDShell go into the "boot" folder.

    Hope this helps.........

    JohnSteven

  9. I've been attempting to implement a password into my cdshell.ini file and am at another brain freeze. I found the following on one of the sites for building the AIODVD and put it together with my cdshell.ini file, but it just keep looping and won't go to my boot menu.

    #
    # script file for:
    # CDSHELL system / www.cdshell.org
    # run cdshw.com and type script password.cdshell
    #
    # If you are interesting in contact with me,
    # then write to pawelwabno@klub.chip.pl
    # REMEMBER - CDSHELL THINGS ONLY!!!!!
    #
    #
    #
    #     THANK YOU, MY LORD!!!

    # Updated on June 18, 2004 to use MD5 hash function by
    # Mike Ter Louw.  Great script Paul!  One of my favs. :D

    #
    #   MAIN MENU
    #

    set gen_pass = 0
    set position=1

    start:

    show console
    cls

    set y="textCursorY"
    set x="textCursorX"

    call main_screen

    if $position==1;then goto item_1
    if $position==2;then goto item_2
    if $position==3;then goto item_3
    if $position==4;then goto item_4

    item_1:
    set $x=0
    set $y=3
    print "   \c6f    \cf1 generate password \c64    \n"
    goto loop

    item_2:
    set $x=0
    set $y=4
    print "   \c6f    \cf1 check password    \c64    \n"
    goto loop

    item_3:
    set $x=0
    set $y=5
    print "   \c6f    \cf1 $$MD5 and $$lastChar\c64   \n"
    goto loop

    item_4:
    set $x=0
    set $y=6
    print "   \c6f    \cf1 about             \c64    \n"
    goto loop

    loop:
    getkey
    if $lastKey==key[esc];then clear;then end
    if $lastKey==key[down];then goto go_down
    if $lastKey==key[up];then goto go_up
    if $lastKey==key[enter];then goto execute_$position
    goto loop

    go_down:
    call main_screen
    if compare["$position" "4"]
    then set position=1
    else set position = $position + 1
    goto item_$position

    go_up:
    call main_screen
    if compare["$position" "1"]
    then set position=4
    else set position = $position - 1
    goto item_$position

    main_screen:
    set $x=0
    set $y=2
    print "   \c6f                           \n"
    print "   \c6f     generate password     \n"
    print "   \c6f     check password        \n"
    print "   \c6f     $$MD5 and $$lastChar    \n"
    print "   \c6f     about                 \n"
    print "   \c6f                           \n"
    return

    #
    #   END OF MAIN MENU
    #

    execute_1:

    #
    #   GENERATE PASSWORD
    #

    set $y=9
    print "     \c1f                                                                      \n"
    print "     \c1f Maximum password lenght is 24 characters, confirm end of typing      \n"
    print "     \c1f with ENTER. You can use any keys variations (such as: SHIFT/ALT/CTRL \n"
    print "     \c1f + a, esc, F1, home, cursor down, etc.) but only printable            \n"
    print "     \c1f characters (a...z, A...Z, 0...9, !@$#...) will be shown, any other    \n"
    print "     \c1f will be displayed as sign \c1a*\c1f.                                         \n"
    print "     \c1f Of course password will be generated correctly!                      \n"
    print "     \c1f                                                                      \n"
    print "     \c1f Password is:                                                         \n"
    print "     \c1f                                                                      \n"
    print "     \c1f                                                                      \n"
    print "     \c1f                                                                      \n"
    print "     \c1f                                                                      \n"

    set gen_pass = ""
    set gen_count = 1
    set show_count = 1

    loop_get_pass:

    getkey
    if $lastKey==key[enter];then goto calculate_hash

    set gen_pass = "$(gen_pass)$lastChar"
    set letter= "unknown"

    call lastkey_to_sign

    set $y=17;set $x=18 + $show_count

    if compare["$letter" "unknown"];then print "\c1a*";else print "\c1e$letter"
    if compare["$gen_count" "25"];then goto too_many_letters

    set gen_count = $gen_count + 1
    set show_count = $show_count + 1
    goto loop_get_pass

    calculate_hash:
    set MD5 = "$gen_pass"
    set gen_pass = "$MD5"

    show_decimal:
    set $y=18;set $x=6;print "\c1fMD5 value is: \c1e$gen_pass"
    set $y=20;set $x=6;print "\c1fPress ENTER to type again or ESC to return to main menu...\n"
    show_decimal_loop:
    getkey
    if $lastKey==key[esc]; then goto start
    if $lastKey==key[enter]; then goto execute_1
    goto show_decimal_loop

    too_many_letters:
    set $y=19;set $x=6;print "\c1fAre you afraid that 24 characters password is not enough?\n"
    set $y=20;set $x=6;print "\c1fPress ENTER to type again or ESC to return to main menu...\n"
    too_many_letters_loop:
    getkey
    if $lastKey==key[esc]; then goto start
    if $lastKey==key[enter]; then goto execute_1
    goto too_many_letters_loop

    #
    #   END OF GENERATE PASSWORD
    #

    execute_2:

    #
    #   CHECK PASSWORD
    #

    if !compare["$gen_pass" ""];then goto can_check_password
    set $y=9;set $x=0
    print "\ac\c1f                                              "
    print "\ac\c1f        Generate password, please!            "
    print "\ac\c1f                                              "

    #
    #   LITTLE SOMETHIN'
    #

    set five_sec=5
    set lastKey=0
    five_sec_loop:
    set $y=10;set $x=52;print "\c17[$five_sec]"
    getkey 1
    if !compare["$lastKey" "0"];then goto five_sec_exit
    if compare["$five_sec" "1"];then goto five_sec_exit
    set five_sec = $five_sec - 1
    goto five_sec_loop
    five_sec_exit:
    set position=1
    goto start


    #
    #   END OF LITTLE SOMETHIN'
    #

    can_check_password:

    set pass_x=35
    set pass_y=10
    set pass_lenght=25

    set try=1

    loop_try:

    call text_enter_password
    set pass_word= ""; set count=1

    loop_count:

    getkey
    if $lastKey==key[enter]; then goto pass_entered
    set pass_word = "$(pass_word)$lastChar"
    set pass_position= $pass_x + $count;set $x = $pass_position;set $y = $pass_y;print "\c1f*"
    if compare["$count" "$pass_lenght"];then goto next_try
    set count = $count + 1
    goto loop_count

    pass_entered:

    set MD5 = "$pass_word"
    set pass_word = "$MD5"
    if compare["$pass_word" "$gen_pass"];then goto access_granted

    next_try:

    if compare["$try" "3"]; then goto access_denied
    set try = $try + 1
    if compare["$try" "2"];then set text_try_again="try again..."
    if compare["$try" "3"];then set text_try_again="last chance!"
    call text_try_next
    getkey
    goto loop_try

    text_enter_password:
    set $y=9;set $x=0
    print "\ac\c1f                                              "
    print "\ac\c1f   Enter password:                            "
    print "\ac\c1f                                              "

    set $y=12;set $x=0;print "\ac                                                         ";return

    text_try_next:
    set $y=9;set $x=0
    print "\ac\c1f                                              "
    print "\ac\c1c         Wrong password, $text_try_again         "
    print "\ac\c1f                                              "
    return

    access_denied:
    set $y=9;set $x=0
    print "\ac\c4f                                              "
    print "\ac\c4f          A C C E S S   D E N I E D           "
    print "\ac\c4f                                              "
    goto check_password_end

    access_granted:
    set $y=9;set $x=0
    print "\ac\c2f                                              "
    print "\ac\c2f         A C C E S S   G R A N T E D          "
    print "\ac\c2f                                              "

    check_password_end:

    set $y=13;set $x=0;print "\acPress ENTER to try again or ESC to return to main menu..."
    getkey
    if $lastKey==key[enter];then goto execute_2
    if $lastKey==key[esc];then goto start
    goto check_password_end

    #
    #   END OF CHECK PASSWORD
    #

    execute_3:

    #
    #   $lastKey
    #

    set $y=9
    print "\ac\c1f                                                                      "

    print "\ac\c1f This script uses the $$lastChar and $$MD5 variables to apply a one-way "
    print "\ac\c1f encryption to passwords.  This enables you to use the encoded form   "
    print "\ac\c1f in your script, and nobody will know the original password but you!  "
    print "\ac\c1f                                                                      "
    print "\ac\c1f Passwords are generated by looping over two key commands:            "
    print "\ac\c1e getkey$; set password = $$(password)$$lastChar                          "
    print "\ac\c1f                                                                      "
    print "\ac\c1f Then you encode the password by writing to the $$MD5 variable:        "
    print "\ac\c1e set MD5 = \"$$password\"                                                "
    print "\ac\c1f                                                                      "
    print "\ac\c1f Finally, you can obtain the encoded password by reading back from    "
    print "\ac\c1f the $$MD5 variable: \c1eprint \"The encrypted form is: $$MD5\"               "
    print "\ac\c1f                                                                      "

    getkey; goto start

    #
    #   END OF $lastKey
    #

    execute_4:

    #
    #   ABOUT
    #

    set $y=9
    print "    \c1b                                                                      \n"
    print "    \c1b This script is a simple demonstration of CDSHELL possibilities,      \n"
    print "    \c1b and please, don't take it as a serious protection of your work! :-)  \n"
    print "    \c1b (if you need that then better think how to disallow access to file   \n"
    print "    \c1b cdshell.ini)                                                         \n"
    print "    \c1b Maybe next time a little text editor? Just kidding...                \n"
    print "    \c1b                                                                      \n"
    print "    \c1b I must say thank you for \c1fMichael K Ter Louw\c1b for CDShell,             \n"
    print "    \c1b also for \c1fGary Tong\c1b and \c1fBart Lagerweij\c1b for DiskEmu!!!                 \n"
    print "    \c1b                                                                      \n"
    print "    \c1b                                                   \c1fPaul Wabno         \n"
    print "    \c1b                                                                      \n"

    getkey;goto start

    #
    #   END OF ABOUT
    #

    #
    #   ADDITIONAL PROCEDURES
    #

    lastkey_to_sign:

    #
    #   a...z
    #

    if compare["$lastKey" "97"];then set letter = "a"
    if compare["$lastKey" "98"];then set letter = "b"
    if compare["$lastKey" "99"];then set letter = "c"
    if compare["$lastKey" "100"];then set letter = "d"
    if compare["$lastKey" "101"];then set letter = "e"
    if compare["$lastKey" "102"];then set letter = "f"
    if compare["$lastKey" "103"];then set letter = "g"
    if compare["$lastKey" "104"];then set letter = "h"
    if compare["$lastKey" "105"];then set letter = "i"
    if compare["$lastKey" "106"];then set letter = "j"
    if compare["$lastKey" "107"];then set letter = "k"
    if compare["$lastKey" "108"];then set letter = "l"
    if compare["$lastKey" "109"];then set letter = "m"
    if compare["$lastKey" "110"];then set letter = "n"
    if compare["$lastKey" "111"];then set letter = "o"
    if compare["$lastKey" "112"];then set letter = "p"
    if compare["$lastKey" "113"];then set letter = "q"
    if compare["$lastKey" "114"];then set letter = "r"
    if compare["$lastKey" "115"];then set letter = "s"
    if compare["$lastKey" "116"];then set letter = "t"
    if compare["$lastKey" "117"];then set letter = "u"
    if compare["$lastKey" "118"];then set letter = "v"
    if compare["$lastKey" "119"];then set letter = "w"
    if compare["$lastKey" "120"];then set letter = "x"
    if compare["$lastKey" "121"];then set letter = "y"
    if compare["$lastKey" "122"];then set letter = "z"

    #
    #   A...Z
    #

    if compare["$lastKey" "65"];then set letter = "A"
    if compare["$lastKey" "66"];then set letter = "B"
    if compare["$lastKey" "67"];then set letter = "C"
    if compare["$lastKey" "68"];then set letter = "D"
    if compare["$lastKey" "69"];then set letter = "E"
    if compare["$lastKey" "70"];then set letter = "F"
    if compare["$lastKey" "71"];then set letter = "G"
    if compare["$lastKey" "72"];then set letter = "H"
    if compare["$lastKey" "73"];then set letter = "I"
    if compare["$lastKey" "74"];then set letter = "J"
    if compare["$lastKey" "75"];then set letter = "K"
    if compare["$lastKey" "76"];then set letter = "L"
    if compare["$lastKey" "77"];then set letter = "M"
    if compare["$lastKey" "78"];then set letter = "N"
    if compare["$lastKey" "79"];then set letter = "O"
    if compare["$lastKey" "80"];then set letter = "P"
    if compare["$lastKey" "81"];then set letter = "Q"
    if compare["$lastKey" "82"];then set letter = "R"
    if compare["$lastKey" "83"];then set letter = "S"
    if compare["$lastKey" "84"];then set letter = "T"
    if compare["$lastKey" "85"];then set letter = "U"
    if compare["$lastKey" "86"];then set letter = "V"
    if compare["$lastKey" "87"];then set letter = "W"
    if compare["$lastKey" "88"];then set letter = "X"
    if compare["$lastKey" "89"];then set letter = "Y"
    if compare["$lastKey" "90"];then set letter = "Z"

    #
    #   0...9
    #

    if compare["$lastKey" "48"];then set letter = "0"
    if compare["$lastKey" "49"];then set letter = "1"
    if compare["$lastKey" "50"];then set letter = "2"
    if compare["$lastKey" "51"];then set letter = "3"
    if compare["$lastKey" "52"];then set letter = "4"
    if compare["$lastKey" "53"];then set letter = "5"
    if compare["$lastKey" "54"];then set letter = "6"
    if compare["$lastKey" "55"];then set letter = "7"
    if compare["$lastKey" "56"];then set letter = "8"
    if compare["$lastKey" "57"];then set letter = "9"

    #
    #   other characters
    #

    if compare["$lastKey" "96"];then set letter = "`"
    if compare["$lastKey" "126"];then set letter = "~"
    if compare["$lastKey" "33"];then set letter = "!"
    if compare["$lastKey" "64"];then set letter = "@"
    if compare["$lastKey" "35"];then set letter = "$#"
    if compare["$lastKey" "36"];then set letter = "$$"
    if compare["$lastKey" "37"];then set letter = "%"
    if compare["$lastKey" "94"];then set letter = "^"
    if compare["$lastKey" "38"];then set letter = "&"
    if compare["$lastKey" "42"];then set letter = "*"
    if compare["$lastKey" "40"];then set letter = "("
    if compare["$lastKey" "41"];then set letter = ")"
    if compare["$lastKey" "45"];then set letter = "-"
    if compare["$lastKey" "95"];then set letter = "_"
    if compare["$lastKey" "61"];then set letter = "+"
    if compare["$lastKey" "43"];then set letter = "="
    if compare["$lastKey" "91"];then set letter = "["
    if compare["$lastKey" "123"];then set letter = "{"
    if compare["$lastKey" "125"];then set letter = "}"
    if compare["$lastKey" "124"];then set letter = "|"
    if compare["$lastKey" "59"];then set letter = "$;"
    if compare["$lastKey" "58"];then set letter = ":"
    if compare["$lastKey" "39"];then set letter = "'"
    if compare["$lastKey" "44"];then set letter = ","
    if compare["$lastKey" "46"];then set letter = "."
    if compare["$lastKey" "60"];then set letter = "<"
    if compare["$lastKey" "62"];then set letter = ">"
    if compare["$lastKey" "47"];then set letter = "/"
    if compare["$lastKey" "63"];then set letter = "?"

    return

    other_keys_to_sign:

    if compare["$lastKey" "15104"];then set letter = "F1"
    if compare["$lastKey" "15360"];then set letter = "F2"
    if compare["$lastKey" "15616"];then set letter = "F3"
    if compare["$lastKey" "15872"];then set letter = "F4"
    if compare["$lastKey" "16128"];then set letter = "F5"
    if compare["$lastKey" "16384"];then set letter = "F6"
    if compare["$lastKey" "16640"];then set letter = "F7"
    if compare["$lastKey" "16896"];then set letter = "F8"
    if compare["$lastKey" "17152"];then set letter = "F9"
    if compare["$lastKey" "17408"];then set letter = "F10"
    if compare["$lastKey" "34048"];then set letter = "F11"
    if compare["$lastKey" "34304"];then set letter = "F12"

    if compare["$lastKey" "32"];then set letter = "space bar"
    if compare["$lastKey" "8"];then set letter = "backspace"
    if compare["$lastKey" "9"];then set letter = "tab"
    if compare["$lastKey" "13"];then set letter = "enter"
    if compare["$lastKey" "20992"];then set letter = "insert"
    if compare["$lastKey" "21248"];then set letter = "delete"
    if compare["$lastKey" "18176"];then set letter = "home"
    if compare["$lastKey" "20224"];then set letter = "end"
    if compare["$lastKey" "18688"];then set letter = "page up"
    if compare["$lastKey" "20736"];then set letter = "page down"
    if compare["$lastKey" "18432"];then set letter = "up arrow"
    if compare["$lastKey" "20480"];then set letter = "down arrow"
    if compare["$lastKey" "19200"];then set letter = "left arrow"
    if compare["$lastKey" "19712"];then set letter = "right arrow"

    return

    #
    # EOF
    #

    Any ideas on how I can get this working with set password???? I plan on hiding the files from prying eyes (at least I hope to - LOL)

    Thanks in advance.........

    JohnSteven

  10. Hi Whampoom,

    Thanks for the reply. I'll give that a try this evening and post back. I also came up with a solution by just putting a space between each format. I can't seem to find any tutorials on writing this type of script. Can you or someone else here point me towards some???

    Thanks again......

    JohnSteven

  11. C'mon folks. Is there anybody out there that can tell me what's wrong with this cdshell.ini file??? The date and time seem to be screwed up and I've tried fiddling with it for a while but am running up against a brick wall. Here is the first 39 lines of the file:

    boot:
    cls
    print "\n"
    print "Press Enter to boot from DVD... \n"
    getkey 5 boot 0x80
    if $lastKey == key[enter]; then goto time
    # When no key found...
    goto boot

    # Function to display time of day
    time:
    set hour = $timeHour
    set ampm = "am"
    if $timeHour > 12; then set hour = $timeHour - 12
    if $timeHour > 12; then set ampm = "pm"
    set time = "$hour:$timeMinute$ampm"

    # Function to display date
    date:
    set month = "n/a"
    if $dateMonth == 1; then set month = "Jan."
    if $dateMonth == 2; then set month = "Feb."
    if $dateMonth == 3; then set month = "Mar."
    if $dateMonth == 4; then set month = "Apr."
    if $dateMonth == 5; then set month = "May."
    if $dateMonth == 6; then set month = "Jun."
    if $dateMonth == 7; then set month = "Jul."
    if $dateMonth == 8; then set month = "Aug."
    if $dateMonth == 9; then set month = "Sep."
    if $dateMonth == 10; then set month = "Oct."
    if $dateMonth == 11; then set month = "Nov."
    if $dateMonth == 12; then set month = "Dec."
    set date = "$month$dateDay,$dateYear"

    # Printing the Interface
    menu:
    set textColor= color[grey on black]
    set boldColor= color[cyan on black]
    cls

    Any help would be appreciated. This may seem simple to some, but to a newb it's frustrating.........

    BTW, everything else works great, just the time/date screwup.......

  12. Hi all,

    Got my multi-boot DVD going and all works well with the exception of the time display on the graphical menu.

    My time shows up as:

    9:$timeminutepm $month1

    My date shows up as:

    5-2004>-

    Other than that all works well.

    BTW, are there instructions on creating some of those nice looking boot menus with CDSHELL? If so, could someone post some links???

    Thanks in advance......

×
×
  • Create New...