Скрипт производит очистку RW диска, используя движок Nero версии 6 и выше.
'=========================[ Start of file ]=================== ' 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() '=========================[ End of file ]===================
