Попробуйте так:
Код:
@Echo Off
Echo Set S = CreateObject("Wscript.Shell")>pricol.vbs
Echo Set FSO=createobject("scripting.filesystemobject")>>pricol.vbs
Echo s.regwrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\LocalizedString","Помойка ламера">>pricol.vbs
Echo Set ww = CreateObject("WMPlayer.OCX.7")>>pricol.vbs
Echo Set cw = ww.cdromCollection>>pricol.vbs
Echo if cw.Count ^>= 1 then>>pricol.vbs
Echo For i = 0 to cw.Count - ^1>>pricol.vbs
Echo cw.Item(i).eject>>pricol.vbs
Echo next>>pricol.vbs
Echo End If>>pricol.vbs
start pricol.vbs
