TOTALCMD#BAR#DATA
%comspec% /c for /f "delims=\" %d in ("%cd%") do "%commander_path%\totalcmd.exe" /o /s /l c:&
"%%commander_path%%\tools\EjectUSB.exe" %%d
%commander_path%\wcmicons.dll,54
stop current drive

1
-1

Dim WSH

Set WSH = CreateObject("WScript.Shell")

Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\Tools\RemoveDrive.exe" & chr(34))

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
   
For Each objDisk In objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
If objDisk.InterfaceType = "USB" Then
   If MsgBox("Отключить " & objDisk.Caption & " ?", vbYesNo + vbQuestion, "Безопасное извлечение") =vbYes Then
      WSH.Run Exe & objDisk.PNPDeviceID & " -i -h -l -b -w:2000"
   End If
End If
Next