[[cHackAll]]

Hola yordan; en primer lugar no dejes de usar las etiquetas

Option Explicit
Dim MyCDRW, MyDateCode, MyTarget
Dim oShell, oApp, oFolder, vbShort
' Cambia esta variable acorde a las especificaciones de tu sistema
MyCDRW = "F:\"
' A partir de aqui mejor no tocar nada
'objeto aplication
Set oShell = WScript.CreateObject("WScript.Shell") 
Set oApp = CreateObject("Shell.Application") 

oApp.NameSpace(&H11).ParseName(MyCDRW).InvokeVerbEx("&Borrar este CD regrabable")

Do until oShell.appactivate("Asistente para grabación de CD") 
 wscript.sleep 200
Loop

oShell.appactivate("Asistente para grabación de CD") 
oShell.SendKeys "{Enter}"

Do until Not oShell.appactivate("Asistente para grabación de CD") 
 wscript.sleep 500 
Loop

Set oApp = Nothing
Set oFolder = Nothing
Set oShell = Nothing

Al grano; utiliza

Código Delphi [-]
WinExec('wscript borracd.vbs', SW_SHOW);

Saludos