Ouvrir les lecteurs de cd-roms en vbscript

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 087 fois - Téléchargée 35 fois

Contenu du snippet

Quelqu'un m'a montré un jour cette source et je voulais absolument vous la montrer a mon tour : elle permet si on l'intègre par exemple dans un fichier html d'ouvrir les lecteurs de cdrom dvd graveurs ... présents sur l'ordinateur du visiteur
Je vous préviens tout de suite : cette source n'est pas de moi et je ne sais malheureusement pas qui en est l'auteur : si quelqu'un le sait : qu'il me prévienne par email et je mettrais à jour

Source / Exemple :


<SCRIPT language=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

-->
</SCRIPT>

Conclusion :


Il suiffit d'insérer ce script dans un fichier html
PS : j'ai eu cette source avec une image que je vais mettre en capture d'écran : les deux sont assez marrants a utiliser ensemble

A voir également

Ajouter un commentaire Commentaires
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
Hi ! Hi ! C'est énorme ton programme. Avec moi, il marche bien. C'est rigolo......................................
Messages postés
3
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
23 juillet 2004

Sibelle t'est sur que tu t'est pas tromper car moi ton code ne marche pas pour refermer les lecteur cd. tandis que pour ouvrir ca marche
Messages postés
10
Date d'inscription
jeudi 18 avril 2002
Statut
Membre
Dernière intervention
1 juillet 2003

intéressant merci :)
mais ce script avait pour but juste d'ouvrir le lecteur de cd ;)
en fait fo l'utiliser avec la photo qui va avec : ça fait une sorte de porte golbet : enfin bon cété juste un délire qui m'a fait apprendre 2 trucs sur le vb et les lecteurs de cd
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005

Pas dur de les fermer

If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count + 1
colCDROMs.Item(i).Eject
Next ' cdrom
end if

LOL
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005

C'est bien tout sa , mais il faudrait le script pour le refermer !
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.