Wysowanie tacki napędu

[Al Bundy]

Heloł :D

Błagam, niech ktoś mi powie jak zrobić skrut do wysunięcia tacki napędu.

[SGJ]

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 Function

Wstaw sobie litere odpowiednią dla twojego napędu i nadaj plikowi nazwe z rozszerzeniem VBS.

[Al Bundy]

wielkie dzięki!!

RE5PECT

Ubdate: jestem gupi i nie potrafię tego uzupełnić (wiem, lama, ale z programowaniem mam tyle wspulnego co z miską soczewicy)

mógłbyś napisać jak to będzie wyglądać dla napędu "E" ??

[lukasrz]

set shell=CreateObject("Shell.Application") Set Naped=ScanFolder(17, "(e:)")     Naped.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 IF End Function

[Kat_666]

Nawet ja sobie z tym poradzilem ;] Fajna sprawa...

[ssound]

A da sie taki skrypcik na zamykanie zrobić? Jak tak to poprosze koda :)

[Al Bundy]

ok, zrobiłem to ustrojstwo

dzięki za pomoc

[SGJ]

A da sie taki skrypcik na zamykanie zrobić? Jak tak to poprosze koda :)

Da się, ale trzeba mieć zainstalowany Clone CD. Jeżeli w clonie język jest ustawiony na polski to wystarczy w wyżej wymienionym skrypcie zamienić

Naped.invokeVerb("W&ysuń")

na

Naped.invokeVerb("Zamknij tackę")

[ssound]

Spoko działa :) tak wlasnie kombinowalem z tym ale zmienilem tylko na "zamknij" nie pomyslalem o tacce :)

pozdro