napisz w notatniku poniższy tekst:
set shell=CreateObject("Shell.Application")Set Naped=ScanFolder(17, "(I:)") 'Wpisz literę napędu CD-ROMNaped.invokeVerb("W&ysuń")Function ScanFolder(vDir, Element) set folder = Shell.NameSpace(vDir) For i = 0 to Folder.Items.Count-1 If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then Set ScanFolder=folder.items.item(i) exit for End If Next If Not ISObject(Scanfolder) Then Wscript.Quit End IFEnd FunctionWstaw sobie litere odpowiednią dla twojego napędu i nadaj plikowi nazwe z rozszerzeniem VBS.