Vista - Vista - Burn to Cd

I have created a script that copies over all of the files to the CD burning
area, and it comes up with the bubble in the system tray saying you have
files ready to be written to cd, but it doesnt actually burn the files to cd.

The scipt I used does work in XP but not vista.

Anyone know of a script that works in Vista?

Oli,

Care to post your script? We may be able to identify your problem from
that. What you don't really tell us is how it works - are you using
Shell.Application to invoke verbs, or what?

If you want to pursue your current technique, I suggest posting the script
(or if it's too long, at least the segment where it is supposed to write the
CD) as well as telling us your specific version of Vista - most importantly,
whether it's 32 or 64 bit.

As an alternative, you might also want to pursue using alternate
command-line tools that IMO generally work better. Usually you would have a
two-phase operation similar to what your script currently does; the first
step is actually creating an ISO image using mkisofs, and the second is
burning the image using a tool like cdrdao, cdburn, or cdrecord. I prefer
this because it's very controllable, doesn't run through visible desktop
elements that might cause problems, and makes few demands on the computer;
the tools are free and can be found through a Google or Live search.

Other alternatives include formatting the disc with UDF to simplify direct
file copying, and using an IMAPI script; see this page for details:

http://www.microsoft.com/technet/scr.../imapi2-2.mspx

Even if you want to change your method, I'm curious about the issue you
encountered with the original script.

"Oli M" <OliM@xxxxxx> wrote in message
news:0E2BB948-A00E-4706-A7A3-C2CAB004E639@xxxxxx

Here is the script. it works fine on XP but not on vista as i said, it copies
all of the files over and has the prompt "there are files ready to be written
to cd".
In xp it automatically burns the files to cd

Re that link you posted I have tried that but it didnt help
I dont want any third partysoftware installed i Just want a script that i
can run that copies files over from a specified folder and writes them to cd


' Provide the drive letter of your CD burner
strDriveLetter = "F:\"
' Provide the source directory
strSourceDirectory = "C:\Sheepdip"
' Provide a volume name for your CD (16 characters max)
strCDName = "SheepDip"

Const MY_COMPUTER = &H11

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")

strBurnDirectory = WshShell.RegRead( _
"HKCU\Software\Microsoft\Windows\CurrentVersion\" _
& "Explorer\Shell Folders\CD Burning")

Set objFolder = objShell.Namespace(strSourceDirectory)

objShell.Namespace(strBurnDirectory).CopyHere objFolder.Items

objShell.NameSpace(&H11&).ParseName(strDriveLetter).InvokeVerbEx( _
"Write &these files to CD")

Do Until WshShell.AppActivate("CD Writing Wizard")
WScript.Sleep 200
Loop

WshShell.AppActivate("CD Writing Wizard")
WshShell.SendKeys strCDName
WshShell.AppActivate("CD Writing Wizard")
WshShell.SendKeys "{Enter}"

Do Until Not WshShell.AppActivate("CD Writing Wizard")
WScript.Sleep 200
Loop

I don't have a Vista system handy to check this against, but it seems likely
that the issue is getting the menu choice or activating the window. So check
the following:

(1) If you right-click the CD burn folder in Vista, do you get a menu choice
that looks _exactly_ like "Write these files to CD" with the "t" in "these"
underlined?

(2) If that looks the way it should, then if you try to interactively write
the files to CD, is the window that pops up prompting for volume label still
titled "CD Burning Wizard" under Vista?

I suspect the issue is (1), at least the choice of which item shows up as
underlined. If not, there's another issue I've seen where InvokeVerbEx
doesn't seem to work. If that's the case, you need to step through the verbs
collection and invoke the DoIt() method against the proper verb. Replace the
following code:

objShell.NameSpace(&H11&).ParseName(strDriveLetter).InvokeVerbEx( _
"Write &these files to CD")

with this:

set drv = objShell.NameSpace(&H11&).ParseName(strDriveLetter)

for each verb in drb.Verbs()
if verb.Name = "Write &these files to CD" then
verb.DoIt()
end if
next



"Oli M" <OliM@xxxxxx> wrote in message
news:9218357A-17D9-4EFF-B178-488F20F79FEB@xxxxxx