|
|
|
|
maxtore, le samedi 27 décembre 2003 à 16:33:09
|
voici un code vbscript
Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom End If colle le dans bloc notes et enregistre le en .vbs ouvre le fichier et normalement ton lecteur doit s'ouvrir a+ |
Merci "dj gab", moi aussi ça m'intéresse! |
Bravo ça marche du tonnerre :) |
sa ve dire coi enregistre le en .vbs |
Dans Bloc Notes quand on enregistre par défaut c'est en .txt ben dans ce cas il faut enlever l'extention .txt et mettre .vbs |
hello djgab,
et la commande pour fermer le lecteur ?? merci d'avance... ça me permettra d'analyser les codes. ++ |
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection For d = 0 To colCDROMs.Count - 1 colCDROMs.Item(d).Eject Next For d = 0 to colCDROMs.Count -1 colCDROMs.Item(d).Eject Next (cela ouvre et le ferme aussi car il le ferme que si tu l'as ouvert avec l'autre code vbs donc j'ai mis les 2 en meme temps)
|
Merci DjGab c'est trins interessant. |
Bonjour,
désolé pour le retard : et un grand merci à BELLAMY http://www.bellamyjc.org/download/ejectCD.exe http://www.bellamyjc.org/download/closeCD.exe |