Hi I remember reading about IMAPI a while back, this is an interface for burning cds etc and comes with XP (if I recall)
This link is IMAPI2 which is vista and above, I've been hunting for the code for version 1 but can't find it. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/imapi/imapi /burning_a_disc.asp This is the code from the site, it looks reasonable, suppose it'll be too easy to assume v1 works the same (they'd be expecting that!) I haven't got an XP pc now since my laptop died, would be interested to see if anyone else could have a look see though. Graham ' This script burns data files to disc in a single session ' using files from a single directory tree. ' Copyright (C) Microsoft Corp. 2006 Option Explicit ' *** CD/DVD disc file system types Const FsiFileSystemISO9660 = 1 Const FsiFileSystemJoliet = 2 Const FsiFileSystemUDF102 = 4 WScript.Quit(Main) Function Main Dim Index ' Index to recording drive. Dim Recorder ' Recorder object Dim Path ' Directory of files to burn Dim Stream ' Data stream for burning device Index = 1 ' Second drive on the system Path = "g:\BurnDir" ' Files to transfer to disc ' Create a DiscMaster2 object to connect to optical drives. Dim g_DiscMaster Set g_DiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2") ' Create a DiscRecorder object for the specified burning device. Dim uniqueId set recorder = WScript.CreateObject("IMAPI2.MsftDiscRecorder2") uniqueId = g_DiscMaster.Item(index) recorder.InitializeDiscRecorder( uniqueId ) ' Create an image stream for a specified directory. Dim FSI ' Disc file system Dim Dir ' Root directory of the disc file system Dim dataWriter ' Create a new file system image and retrieve root directory Set FSI = CreateObject("IMAPI2FS.CFileSystemImage") Set Dir = FSI.Root 'Create the new disc format and set the recorder Set dataWriter = CreateObject ("IMAPI2.MsftDiscFormat2Data") dataWriter.recorder = Recorder FSI.FreeMediaBlocks = datawriter.FreeSectorsOnMedia FSI.FileSystemsToCreate = FsiFileSystemISO9660 ' Add the directory and its contents to the file system Dir.AddTree Path, false ' Create an image from the file system Dim result Set result = FSI.CreateResultImage() Stream = result.ImageStream ' Write stream to disc using the specified recorder. WScript.Echo "Writing content to disc..." dataWriter.write(Stream) WScript.Echo "----- Finished writing content -----" Main = 0 End Function -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Chester Friesen Sent: 28 August 2006 02:33 To: ProFox Listserver Subject: [NF] Erase DVD-RW before backup Anyone know of a utility that can be used, preferably in a batch file, that will erase a DVD-RW before a backup? I am trying out Acronis True Image, but they have no way to erase a disc unattended before backup. Maybe there's another HDD Image backup program that will do that. I didn't look at Symantec Ghost, I have tended to shy away from the later versions of it. -- Regards, Chester Friesen [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
