Очистка RW-диска
Скрипт производит очистку RW диска, используя движок Nero версии 6 и выше.
' File: EraseCDRW.vbs
' Description: Производит очистку RW диска, используя
' движок Nero версии 6 и выше
' Installation: Создайте кнопку или команду в меню Запуск TC
' Команда: "диск:\путь\к\файлу\EraseCDRW.vbs"
' Если приводов у Вас два, то возможно, что
' (0) понадобится заменить на (1)
' Copyright: (c) 2006, Volniy
Option Explicit
Dim n, d, et
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
d.LoadCD
et=d.CDRWErasingTime(True)
d.EraseCDRW(True)
WScript.Sleep et*1000
d.EjectCD
Set d=Nothing
Set n=Nothing
Wscript.Quit()
Volniy