Jump to content

copy to cd

DaLiMan

By DaLiMan,
in AutoIt General Help and Support

 Share

Recommended Posts

Matt @ MPCS Universalist

Matt @ MPCS

Posted
Posted

3 Problems:

1. Need to add :)  Or ( @OSVersion = "WIN_XP" ) to allow it to work on XP

2: Typo :)    "Windows 9x od ME Detected." & @CRLF

3: Your asterisks in your comments in registry.au3 are wrapped on the message board, and need trimmed before executing due to a parsing error if you copy, paste and save it.

Otherwise looks good.

Cheers

Monster

<{POST_SNAPBACK}>

Problem 1: I was unaware that this worked under XP so I made the changes to my script (see below).

Problem 2: I just kicked out a 200 line script in under a half hour, it is bound to have typos.

Problem 3: I will edit the script above as to not waste more space on this forum.

#include "Includes\Registry.au3"

Global $ver=1.7

Select
   Case $CmdLine[0] = 0
      Install()
   Case ($CmdLine[0] = 1)
      If( ($CmdLine[1] = "/I") Or ($CmdLine[1] = "/Install") ) Then
         Install()
      ElseIf( ($CmdLine[1] = "/U") Or ($CmdLine[1] = "/Uninstall") ) Then
         Uninstall()
      Else
         ShowOptions()
      EndIf
   Case Else
      ShowOptions()
EndSelect

Func Install()
   Select
      Case ( @OSType = "WIN32_NT" ); This includes Win NT4, 2000, & XP
         InstallWinNT()
      Case ( @OSType = "WIN32_WINDOWS" ); This includes Win 95, 98, & ME
         InstallWin9x()
      Case Else
         MsgBox( 16, "Compatibility Error", "The Operating System running on this computer is not compatible with these drivers." )
   EndSelect
EndFunc

Func InstallWin9x()
   
   Dim $retValue 
   
   $retValue = MsgBox( 36, "Install?", "InstASPI " & $ver & @CRLF & @CRLF _
                           & "Windows 9x or ME Detected." & @CRLF _
                           & "Windows is in : " & @WindowsDir & @CRLF & @CRLF _
                           & "Are you sure you want to install the ASPI Layer?" )
   
   If( $retValue = 7 ) Then
      MsgBox( 48, "Cancelled.", "ASPI Layer installation cancelled by user." )
      Exit -1
   EndIf
   
   ProgressOn( "Installing...", "Installing Adaptec ASPI 4.60 (1021)", "Copying WINASPI.DLL..." )
   FileInstall( "Files\Win9x\winaspi.dll", @WindowsDir )
   ProgressSet( 25, "Copying WNASPI32.DLL..." )
   FileInstall( "Files\Win9x\wnaspi32.dll", @SystemDir )
   ProgressSet( 50, "Copying ASPIENUM.VXD..." )
   FileInstall( "Files\Win9x\aspienum.vxd", @SystemDir )
   ProgressSet( 75, "Copying APIX.VXD..." )
   FileInstall( "Files\Win9x\apix.vxd", @SystemDir & "\iosubsys" )
   ProgressSet( 100, "Adding Registry Settings..." )
   RestoreRegistry( "Files\Win9x\win9x.reg" )
   ProgressOff()
   
   $retValue = MsgBox( 36, "Done", "Adaptec ASPI 4.60 (1021) Installed." & @CRLF & "Reboot your PC to make these changes active?" )
   
   If( $retValue = 6 ) Then
      Shutdown(2)
   EndIf

EndFunc

Func InstallWinNT()
   
   Dim $retValue 
   
   $retValue = MsgBox( 36, "Install?", "InstASPI " & $ver & @CRLF & @CRLF _
                           & "Windows NT, 2000, or XP Detected." & @CRLF _
                           & "Windows is in : " & @WindowsDir & @CRLF & @CRLF _
                           & "Are you sure you want to install the ASPI Layer?" )
   
   If( $retValue = 7 ) Then
      MsgBox( 48, "Cancelled.", "ASPI Layer installation cancelled by user." )
      Exit -1
   EndIf
   
   ProgressOn( "Installing...", "Installing Adaptec ASPI 4.60 (1021)", "Copying WINASPI.DLL..." )
   FileInstall( "Files\WinNt\winaspi.dll", @WindowsDir & "\System" )
   ProgressSet( 25, "Copying WOWPOST.EXE..." )
   FileInstall( "Files\WinNt\wowpost.exe", @WindowsDir & "\System" )
   ProgressSet( 50, "Copying WNASPI32.DLL..." )
   FileInstall( "Files\WinNT\wnaspi32.dll", @WindowsDir & "\System" )
   ProgressSet( 75, "Copying ASPI32.sys..." )
   FileInstall( "Files\WinNt\aspi32.sys", @WindowsDir & "\System32\Drivers" )
   ProgressSet( 100, "Adding Registry Settings..." )
   RestoreRegistry( "Files\WinNt\winnt.reg" )
   ProgressOff()
   
   $retValue = MsgBox( 36, "Done", "Adaptec ASPI 4.60 (1021) Installed." & @CRLF & "Reboot your PC to make these changes active?" )
   
   If( $retValue = 6 ) Then
      Shutdown(2)
   EndIf

EndFunc

Func Uninstall()
   Select
      Case ( @OSType = "WIN32_NT" ); This includes Win NT4, 2000, & XP
         InstallWinNT()
      Case ( @OSType = "WIN32_WINDOWS" ); This includes Win 95, 98, & ME
         InstallWin9x()
      Case Else
         MsgBox( 16, "Compatibility Error", "The Operating System running on this computer is not compatible with these drivers." )
   EndSelect
EndFunc

Func UninstallWin9x()
   
   Dim $retValue 
   
   $retValue = MsgBox( 36, "Uninstall?", "InstASPI " & $ver & @CRLF & @CRLF _
                           & "Windows 9x or ME Detected." & @CRLF _
                           & "Windows is in : " & @WindowsDir & @CRLF & @CRLF _
                           & "Are you sure you want to uninstall the ASPI Layer?" )
   
   If( $retValue = 7 ) Then
      MsgBox( 48, "Cancelled.", "ASPI Layer removal cancelled by user." )
      Exit -1
   EndIf
   
   ProgressOn( "Uninstalling...", "Uninstalling Adaptec ASPI 4.60 (1021)", "Removing WINASPI.DLL..." )
   FileDelete( @SystemDir & "\winaspi.dll" )
   ProgressSet( 33, "Removing WNASPI32.DLL..." )
   FileDelete( @SystemDir & "\wnaspi32.dll" )
   ProgressSet( 66, "Removing ASPIENUM.VXD..." )
   FileDelete( @SystemDir & "\winaspi.dll" )
   ProgressSet( 99, "Removing APIX.VXD..." )
   FileDelete( @SystemDir & "\iosubsys\winaspi.dll" )
   ProgressOff()
   
   $retValue = MsgBox( 36, "Done", "Adaptec ASPI 4.60 (1021) Uninstalled." & @CRLF & "Reboot your PC to make these changes active?" )
   
   If( $retValue = 6 ) Then
      Shutdown(2)
   EndIf

EndFunc

Func UninstallWinNT()
   
   Dim $retValue 
   
   $retValue = MsgBox( 36, "Uninstall?", "InstASPI " & $ver & @CRLF & @CRLF _
                           & "Windows NT, 2000, or XP Detected." & @CRLF _
                           & "Windows is in : " & @WindowsDir & @CRLF & @CRLF _
                           & "Are you sure you want to uninstall the ASPI Layer?" )
   
   If( $retValue = 7 ) Then
      MsgBox( 48, "Cancelled.", "ASPI Layer removal cancelled by user." )
      Exit -1
   EndIf
   
   ProgressOn( "Uninstalling...", "Uninstalling Adaptec ASPI 4.60 (1021)", "Removing WINASPI.DLL..." )
   FileDelete( @WindowsDir & "\System\winaspi.dll" )
   ProgressSet( 33, "Removing WOWPOST.EXE..." )
   FileDelete( @WindowsDir & "\System\wowpost.exe" )
   ProgressSet( 66, "Removing WNASPI32.DLL..." )
   FileDelete( @WindowsDir & "\System\wnaspi.dll" )
   ProgressSet( 99, "Removing ASPI32.sys..." )
   FileDelete( @WindowsDir & "\System32\Drivers\aspi32.sys" )
   ProgressOff()
   
   $retValue = MsgBox( 36, "Done", "Adaptec ASPI 4.60 (1021) Uninstalled." & @CRLF & "Reboot your PC to make these changes active?" )
   
   If( $retValue = 6 ) Then
      Shutdown(2)
   EndIf

EndFunc

Func ShowOptions()
   MsgBox( 64, "Adaptec ASPI 4.60 (1021)", "USAGE: aspi17 [/i | /install] [/u | /uninstall]" )
EndFunc

I will upload the new executable over the one posted above.

*** Matt @ MPCS

Link to comment
Share on other sites
DaLiMan Universalist

DaLiMan

Posted
  • Author
Posted

I have just completed a project that is exactly what you require I think.

I have used all freeware command line tools, specifically MFISOFS to create a .ISO file of the required directories, and then FILE2CD to write the .ISO to the CD recorder.

MKISOFS is available here

FILE2CD is part of the DOS version of CDRWIN. The FILE2CD component is freeware. It is available here.Hope this helps. Plenty of command line options for MKISOFS available online.

<{POST_SNAPBACK}>

Wow, can't be away for too long I see.

About 20 reply's within a day.....

Don't understand all the answers yet here, but got a lot to try out now. :)

Anyway,

@ m0n5ter,

Must I first make an .ISO or is it possible to burn the files directly on CD with FILE2VD. Given the name it should be possible.

I'm not very familiar with command line programming and so, I hope i'm not asking stupid questions. :)

Link to comment
Share on other sites
Matt @ MPCS Universalist

Matt @ MPCS

Posted
Posted

Wow, can't be away for too long I see.

About 20 reply's within a day.....

Don't understand all the answers yet here, but got a lot to try out now.  :)

Anyway,

@ m0n5ter,

Must I first make an .ISO or is it possible to burn the files directly on CD with FILE2VD. Given the name it should be possible.

I'm not very familiar with command line programming and so, I hope i'm not asking stupid questions. :)

<{POST_SNAPBACK}>

I believe to use File2CD you need to generate a ISO image to burn. To find out, read the FILE2CD docs.

*** Matt @ MPCS

Link to comment
Share on other sites
Matt @ MPCS Universalist

Matt @ MPCS

Posted
Posted

I believe to use File2CD you need to generate a ISO image to burn. To find out, read the FILE2CD docs.

*** Matt @ MPCS

<{POST_SNAPBACK}>

After reading the documentation, I found that another CD tool is included to do this on the fly... COPY2CD. This application generates an image file on the fly and burns it all within the same executable. This is what you are looking for I believe.

*** Matt @ MPCS

Link to comment
Share on other sites
MHz Universalist

MHz

Posted
Posted (edited)

Good find Matt.

Sounds like a good tool to use.

COPY2CD.EXE - Direct to CDROM File Copier 

COPY2CD will copy the files from one or more directories on your harddrive directly to a CDROM recorder without builidng an ISO9660 image file first. (the image is built "on the fly" and requires no disk space). This program makes copying files to CDROM as easy as copying files to a harddrive with the DOS "XCOPY" command

Drawback? it is not in the freeware section?

Edited by MHz
Link to comment
Share on other sites
Matt @ MPCS Universalist

Matt @ MPCS

Posted
Posted

Good find Matt.

Sounds like a good tool to use.

COPY2CD.EXE - Direct to CDROM File Copier 

COPY2CD will copy the files from one or more directories on your harddrive directly to a CDROM recorder without builidng an ISO9660 image file first. (the image is built "on the fly" and requires no disk space). This program makes copying files to CDROM as easy as copying files to a harddrive with the DOS "XCOPY" command

Drawback? it is not in the freeware section?

<{POST_SNAPBACK}>

This is true but I see no limitation on it or shareware notice... this makes me unsure of the distributed license. Hopefully it will continue to work for free! :)

*** Matt @ MPCS

Link to comment
Share on other sites
DaLiMan Universalist

DaLiMan

Posted
  • Author
Posted

@Matt

After reading the documentation, I found that another CD tool is included to do this on the fly... COPY2CD. This application generates an image file on the fly and burns it all within the same executable. This is what you are looking for I believe.

Looks good, gonna try that one. :)

Thanx.

Link to comment
Share on other sites
m0n5ter Seeker

m0n5ter

Posted
Posted

You are correct, Copy2CD is NOT freeware, and this is why I did not mention it in my posts.

ASPI layer is not required for XP, just thought it might be a good idea for Matt to include it in his ForceASPI script.

If free software is not an issue and you are willing to pay for something, then also worth checking out VSO software's CopyToDVD available here. This has an excellent command line option, and can copy files, directories, MP3s and image files too.

I needed a solution to work on all Win9X/WinNT/WinXP/WinME etc. and without any payments involved so I could distribute it for free. Hence I chose the ASPI solution and the MKISOFS and File2CD. It works, it is free, it is easy. I tried many other combinations of software, but some worked on WinXP, but not 98 etc etc. The ones I have settled on, work on them all, everytime.

Monster..

Link to comment
Share on other sites
  • 11 months later...
Blue_Drache Universalist

Blue_Drache

Posted
Posted

Resurrecting an old topic:

I'm looking for a freeware program that will take an existing CD and rip it to ISO format. Unfortunately, ;) my copy of NERO only rips to proprietary image formats and I can't (for the life of me) figure out how to rip to ISO with it. Am I missing something? (I did pay for my copy of NERO, it came with my DVD burner)

Lofting the cyberwinds on teknoleather wings, I am...The Blue Drache

Link to comment
Share on other sites
HardCopy Universalist

HardCopy

Posted
Posted

Resurrecting an old topic:

I'm looking for a freeware program that will take an existing CD and rip it to ISO format. Unfortunately, ;) my copy of NERO only rips to proprietary image formats and I can't (for the life of me) figure out how to rip to ISO with it. Am I missing something? (I did pay for my copy of NERO, it came with my DVD burner)

If im not mistaken / nero does rip to iso . Rename the Nero File with the .NRG extension to .ISO and see for yourself.

hth

HardCopy

Contributions: UDF _DateYearFirstChildren are like Farts, you can just about stand your own.Why am I not a Vegetarian?...Well...my ancestors didn't fight & evolve to the Top of the food chain for me to survive on Salad

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
 Share
Go to topic listing

  • Recently Browsing   0 members

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