Volniy
|
 Posted: Sun Sep 24, 2006 15:32 Post subject: Не пропадать же добру :) |
 |
|
| Code: | '=========================[ 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 ]===================
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
