... всего 12 кб, но хотелось бы более элегантное решение...
NERO установлена? Тогда может вот этот VBS скрипт подойдет:
Code:
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
'd.EjectCD
d.LoadCD
'd.EraseCDRW(True)
Set d=Nothing
Set n=Nothing
Закомментированные строки это для создания других команд. Соответственно d.EjectCD для выкидывания СD, а d.EraseCDRW(True) - для быстрого стирания RW диска (это не проверил, просто такого диска под рукой не оказалось).
Last edited by Volniy on Sun Sep 24, 2006 15:26; edited 1 time in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
