Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [addon] Total Commander [old]
Показать сообщение отдельно

Новый участник


Сообщения: 14
Благодарности: 2

Профиль | Отправить PM | Цитировать


SamLab,
Цитата Nun-Nun:
Кроме варианта -flash /all утилита RemoveFlash.exe какие-нибудь другие варианты поддерживает? Можно ли с её помощью отключать только один конкретный USB-носитель, а не все сразу, как это по дефолту сделано? Сколько ни пытался найти перечень её команд и формат командной строки, но так и не нашёл. »
Можно добавить в сборку такой скрипт
читать дальше »

' ===============================================
' Вызывает окно безопасного отключения USB-дисков - DevEject.vbs
' Автор: SkOle
' ===============================================

Dim WSH

Set WSH = CreateObject("WScript.Shell")

Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\Programs\USB_Flash\DevEject\deveject.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 & " -EjectId:" & objDisk.PNPDeviceID
End If
End If
Next





И кнопку его вызова. Если подключено несколько флешек он поочереди спросит какую из флешек отключить.

Последний раз редактировалось Bubek, 08-11-2010 в 12:34. Причина: правка скрипта

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:32, 08-11-2010 | #980

Название темы: [addon] Total Commander [old]