Come far aprire il cassettino del lettore cd/dvd (vbs)

Non avrei voluto cominciare il Visual Basic Scripting con questo ma date le “pressanti” richieste di un lettore di itrucid’s eccoci qui.


Il codice è questo e permette sia di aprire sia di chiudere il cassettino (dove c’è il meccanismo per richiudere ovviamente).


Set oWMP = CreateObject(“WMPlayer.OCX.7”)

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count > 0 then
for i=0 to colCDROMs.Count – 1
strDrive= oWMP.cdromCollection.item(i).driveSpecifier
strQuestion = “Espellere drive ” & strDrive & “?”
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then
colCDROMs.Item(i).Eject
strQuestion = “Chiudere drive ” & strDrive & “?”
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then colCDROMs.Item(i).Eject
end if
next
end if
wscript.quit

Copiatelo e incollatelo in un blocco note e poi salvatelo come nomechevuoi.vbs selezionando nel menu sottostante “Tutti i file“.


Il funzionamento è un pò complicatuccio ma una volta trovati i punti da modificare (come le domande) magari con un editor apposito come Notepad++ diventa semplice.


Per aprire il cassettino senza che venga chiesta alcuna domanda di apertura o chiusura basta inserire nel file sopra creato invece che tutto quello la semplice riga:

CreateObject(“WMPlayer.OCX.7”).cdromCollection.Item(0).eject


ANGOLO PIGRONI:

Per chi non ha voglia di fare questa “lunga” procedura ho preparato un file da scaricare qui.

Come far aprire il cassettino del lettore cd/dvd (vbs)ultima modifica: 2009-09-28T22:09:00+02:00da itrucid
Reposta per primo quest’articolo

4 pensieri su “Come far aprire il cassettino del lettore cd/dvd (vbs)

Lascia un commento