Lecteur cd

Bonjour,
Es-tu certain(e) de la référence de ce portable Lenovo ?
Cdlt.

Bonjours
c'est pas plutot " lenovo ideapad 330 - ??? "
donne la ref exacte après 330- il y as des chiffres et ou lettres ??

Salut,

Il y a souvent des personnes qui pose cette question.

Et la réponse est souvent qu'il n'y a tout simplement pas de graveur DVD.

En vois tu un dans le poste de travail (Ordinateur) (Ce PC) ?

Si non, il y a toutes les chances que ça soit ça.

Mais un CD/DVD/Blu-ray en format fichier ISO s'émule au besoin.

Ou aussi, les graveurs CD/DVD/Blu-ray externes USB existent en dernier recours.

Bonjour.

Autre possibilité pour vérifier si l'ordinateur a ou n'a pas de lecteur DVD : Clic droit sur le bouton Démarrer > Gestionnaire de périphériques. Si dans la liste apparait un lecteur, c'est qu'il y en a un. Dans le cas contraire, il n'y en a pas.
Plusieurs ordinateurs portables ayant 2 disques durs ne sont pas équipés de lecteur DVD. La place est prise par le second disque.

Bonsoir

Enregister le code ci dessous dans un document exemple ouvre_cd.txt

ensuite renommer en ouvre_cd.vbs
et créer un raccourci vers ce fichier
par la suite cliquer sur le raccourci pour ouvrir

'******************************************************
'* Ouvrir les lecteurs/graveurs de CD/DVD             *
'* DOCmémo - www.docmemo.com                          *
'******************************************************
'* Personnalisation :                                 *
'* Pour limiter l'action du script à un seul lecteur, *
'* modifiez l'instruction                             *
'* For intDriveLetter = Asc("A") To Asc("Z")          *
'* Par exemple, pour limiter au lecteur E :           *
'* For intDriveLetter = Asc("E") To Asc("E")          *
'******************************************************
Dim ts 
Dim strDriveLetter 
Dim intDriveLetter 
Dim fs 'As Scripting.FileSystemObject 
Const CDROM = 4 
On Error Resume Next 
Set fs = CreateObject("Scripting.FileSystemObject") 
' Detection des lecteurs de CD 
strDriveLetter = "" 
For intDriveLetter = Asc("A") To Asc("Z") 'Limitez aux lecteurs souhaités
	Err.Clear 
	If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then 
		If Err.Number = 0 Then 
			strDriveLetter = Chr(intDriveLetter) 
        Exit For 
		End If 
	End If 
Next 
   
' Ouvrir tous les lecteurs 
Set owmp = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = owmp.cdromCollection 
For d = 0 To colCDROMs.Count - 1 
	colCDROMs.Item(d).Eject 
Next 
   
' Fermer tous les lecteurs que l'on vient d'ouvrir 
A1 = MsgBox("Cliquez sur OK pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos") 
For d = 0 to colCDROMs.Count -1 
	colCDROMs.Item(d).Eject 
Next 
  
Set owmp = Nothing 
Set colCDROMs = Nothing 
wscript.quit