vbscript dans vba ejecter les lecteurs amovibles

Bonjour

macro pour éjecter les lecteurs amovibles

Sub Ejection_dde()

On Error Resume Next

' Créer une instance du gestionnaire de disques logiques
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' Parcourir les lettres de lecteur de E à M
For i = Asc("E") To Asc("M")
' Convertir la lettre en majuscule
strDriveLetter = UCase(Chr(i))

' Récupérer la liste des disques logiques pour la lettre de lecteur actuelle
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=2 and DeviceID='" & strDriveLetter & ":'")

' Si un disque amovible est présent pour cette lettre de lecteur, éjecter
For Each objDisk In colDisks
objDisk.Eject
Next
Next

' Libérer les ressources
Set objWMIService = Nothing
End Sub

colDisks ne se charge pas !!


Merci pour l'aide

Hello,
voici un script qui éjecte les lecteurs USB amovibles montés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub EjectUsb() Dim fso As Object, USBDrive As Object, myShell As Object, myDrive As Object Set fso = CreateObject("Scripting.FileSystemObject") Set myShell = CreateObject("Shell.Application") For Each myDrive In fso.Drives If myDrive.DriveType = 1 And myDrive.IsReady = True Then 'removeable and mounted ' If myDrive.VolumeName = strVolumeName Then Set USBDrive = myShell.Namespace(17).Parsename(myDrive.Path) If USBDrive.Type = "Lecteur USB" Then ' Check it really is a USB drive USBDrive.InvokeVerb "Eject" End If 'End If End If Next End Sub

---

Attention au test USBDrive.Type = "Lecteur USB" la chaîne à tester dépend de la langue utilisée par l'O.S exemple en anglais USB Drive


Ami calmant, J.P