Hi Gregory,

Have you had any success with burning of disks using IMAPI2?

I got this script from MS:

index = 1

oDiscMaster = CreateObject("IMAPI2.MsftDiscMaster2")

Id = oDiscMaster.Item(index)
Id = lnDiskId

oRecorder = CreateObject("IMAPI2.MsftDiscRecorder2")
oRecorder.InitializeDiscRecorder(Id)

oEraser = CreateObject("IMAPI2.MsftDiscFormat2Erase")
oEraser.Recorder = oRecorder
oEraser.ClientName = "EraseDisc"
oEraser.EraseMedia

It all works okay until "oEraser.EraseMedia" when the following ubiquitous message appears -

OLE error code 0xc0aa0909: Unknown COM status code.

Any suggestions would be appreciated.

Rex