vbs - Détection du graveur de CD

Question

Bonjour, j'ai besoin de créer un script VBS pour récupérer la lettre du graveur de CD, mais je n'ai aucune idée de la procédure, y-a-t-il un forumeur ici qui puisse m'aider ?

ShareVB · Answer

salut,

juste une piste :
http://www.vbfrance.com/codes/ASPI-INFORMATIONS-SUR-VOS-LECTEUR-GRAVEURS-CD-VOS_25821.aspx

ShareVB

lunnatick · Answer

Bonjour et merci beaucoup 

Mais c'est une source complexe ça, je voudrais faire un vbs tout simple moi.

ShareVB · Answer

if you like English, you dont have any problem :
http://www.msfn.org/board/index.php?act=ST&f=70&t=60721

ShareVB

lunnatick · Answer

Merci encore 

Je croix que ceci affiche le graveur:

On Error Resume Next
Dim Act, SearchString, SearchChar, MyPos
strComputer = "."
Set Act = CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")



For Each objItem in colItems
SearchString = objItem.Caption
MyPos = Instr(1, SearchString, "RW")
If MyPos = 1 Then 
MsgBox "This Is Not A CD-RW", 0 + 32, "Not A CD-RW"
Else 
SearchChar = "Caption: " & objItem.Caption & vbCrLf & "Name: " & objItem.Name & vbCrLf 
MsgBox SearchChar, 0 + 32, "Confirm CD-RW"
'''''PLACE THE SOFTWARE INSTALL PART BELOW HERE
'''''PLACE QUOTE AROUND THE PATH AND SWITCHES "PATH_TO_SOFTWARE /SWITCHES"
''Act.Run(PLACE_THE_SOFTWARE_TO_INSTALL_HERE),1,True
'''''END THE SOFTWARE INSTALL HERE
Exit For 
End If 
Next

Mais ça n'affiche pas la lettre.

Vbs - Détection du graveur de CD

4 réponses

Votre réponse

Discussions similaires