Set oWMP - CreateObject("WPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop
Tak, tak. Oczywiście Następnym razem jak ktoś zostawi włączonego kompa. To włączę notatnik i wpiszę z pamięci ten kod, no chyba, że ktoś ze sobą przenośną nosi...
Mam zainstalowany "Jedyny Słuszny System" na pendraku więc komp nie musi być włączony, nie trzeba nawet hasła żeby majstrować w plikach/rejestrze/gdziekolwiek.
to wrzuc tam cos i zobacz czy ci sie bedzie otwieralo przy kazdym uruchomieniu. przynajmniej u mnie na 64 bitowym nie działa, a jak chce coś odpalać automatycznie to robie w harmonogramie zadań.