Windows na medal czyli jak zadbać o własny OS: visual basic

How to eject usb drive in windows 8+?

W systemach Windows 8+ powstał dość męczący problem związany z „wysunięciem dysku” z napędu. Dotyczy to zwłaszcza kart pamięci, USB oraz wirtualnych napędów CD, które to nowsze Windowsy montują automatycznie przy podglądzie pliku ISO.

W starszych Windowsach (do 7) z problemem można sobie było poradzić na różne sposoby, ale moim ulubionym było wykorzystanie Daemon Tools.

Za pomocą polecenia: DTLite.exe –unmount_ALL można było „wysunąć” wszystkie napędy wirtualne oraz USB.

Głównie właśnie o ten typ napędów chodzi.Napędy fizyczne CD/DVD/BD 1 czy 2, można śmiało wysunąć przyciskiem (może nawet i bezpieczniej niż programowo, bo nie walnie się kolanem w szufladę).

Ale jak zamknąć szybko 5, 6, a może 10 napędów USB czy virtual CD?

Należy nieustannie klikać w Bezpieczne usuwanie sprzętu i wysuwanie nośników (2 kliknięcia na jedno odłączenie dysku + zbędne ruchy myszką), albo narazić się na potencjalną utratę danych i odłączać dyski (tylko USB i karty) wyjmując je po prostu z gniazd (ryzyko utraty danych/uszkodzenia nośnika przy opóźnionym zapisie i skanowaniu AV).

Zatem jak wysunąć napęd programowo (CMD) w Windows 8 i Windows 10?

Jak szybko i bezpiecznie wysunąć (odmontować) napędy wirtualne lub / i USB w Windows 8 /10?

Dla tych, którzy podobnie jak ja włączają dużo urządzeń na raz kilka PenDrivów czy kart SD, jakiś smartfon, może też pliki ISO montowane do napędu wirtualnego (wygodne archiwum) jest ten artykuł i zawarte w nim rozwiązanie w postaci programu w Jscript osadzonego w pliku wsadowym CMD (2 wersje) oraz czystego visual basic do testowania typów posiadanych napędów.

Poniższy program testuje wskazany napęd do jakiego typu należy (jak jest widziany przez system).

Po uruchomieniu należy wpisać w pole DialogBoxu literę napędu (samą literę bez dwukropka i slasza)i po zatwierdzeniu otrzymamy info o wskazanym napędzie.

'         Zawartość pobrana z serwisu:

' Windows na medal, czyli jak zadbać o własny OS
'     [http://techwinpatrol.blogspot.com]

'                           ServuS  2018
'                          =============

' Program testuje wskazany napęd /dysk/ i określa jego typ

Function ShowDriveType(drvpath)
   Dim fso, d, t
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(drvpath)
   Select Case d.DriveType
      Case 0: t = "Unknown"
      Case 1: t = "Removable"
      Case 2: t = "Fixed"
      Case 3: t = "Network"
      Case 4: t = "CD-ROM"
      Case 5: t = "RAM Disk"
   End Select
   ShowDriveType = "Drive " & d.DriveLetter & ": - " & t
End Function

a = InputBox("Sama litera bez  :\  -   D lub a, F...x Y","Wprowadz litere dysku","C")
b = a & ":\"
Msgbox ShowDriveType(b)

Kolejny program DriveTypeEject.cmd umożliwia zbiorowe wyłączanie napędów właśnie wg jego typu. Bardzo dobrze nadaje się do wysuwania dysków USB (Peny, karty, telefony na kabelku) typ=1 - removable drive , a nieco gorzej do napędów CD/DVD typ=4 CDdrive z uwagi na brak opcji wykluczenia pojedynczego napędu. Napędy wirtualne i fizyczne traktowane są tu jednakowo i jeżeli uruchomi się ten program do usunięcia wirtualnych napędów to wysunie się też ten fizyczny (także wtedy, gdy nie było tam nośnika!).

* Domyślny typ ustawiony jest na 4 – CDdrive i można go zmienić na właściwy np. 1 – linia 16 kodu.

@if (@CodeSection == @Batch) @then
@echo off
rem Zamyka napędy wg typu: opis linia 26; zmiana def typ L16; można wywołać ze skrótu z parametrem 1, 2, 3 lub 4 - bez cudzysłowów - spacja po nazwie pliku i cyfra: file.cmd 2

rem         Zawartość pobrana z serwisu:

rem Windows na medal, czyli jak zadbać o własny OS
rem      [http://techwinpatrol.blogspot.com]

rem                    ServuS  2018
rem                   ==============
setlocal

rem typ=4 .OR. 1 or ....
if NOT "%1" == ""  set "typ=%1"
if "%1" == ""  set "typ=4"
rem zmienić default typ=4 wg potrzeb

cscript /nologo /e:JScript "%~f0" "%typ%"

goto :EOF

@end // end batch / begin JScript

// DriveType=4 means CDdrive .or. DriveType=1 means removable drive for a WScript FSO object.
// http://msdn.microsoft.com/en-us/library/ys4ctaz0%28v=vs.84%29.aspx

// NameSpace(17) = ssfDRIVES, or My Computer.
// http://msdn.microsoft.com/en-us/library/windows/desktop/bb774096%28v=vs.85%29.aspx

var oSH = new ActiveXObject('Shell.Application'),
    FSO = new ActiveXObject('Scripting.FileSystemObject'),
 typ = WSH.Arguments(0),
    ssfDRIVES = 17,
    drives = new Enumerator(FSO.Drives);

while (!drives.atEnd()) {
    var x = drives.item();
    if (x.DriveType == typ) {
        oSH.NameSpace(ssfDRIVES).ParseName(x.DriveLetter + ':').InvokeVerb('Eject');
        while (x.IsReady)
            WSH.Sleep(50);
    }
    drives.moveNext();
}

Odmianą powyższego programu jest prezentowany poniżej DriveLetterEject.cmd który z kolei odłącza (wysuwa) dyski po wskazaniu litery napędu (np: g:\ lub J:\ lub X:\ lub r:\ …..). Ten program z kolei nie posiada funkcjonalności łączenia kilku nazw napędów do jednoczesnego odłączenia. W tym programie można również zmienić domyślny dysk na wybrany do wysunięcia (tylko jeden dysk jednocześnie ! - jedna litera z dwukropkiem i slaszem).

@if (@a==@b) @end   /*
@echo off
rem Wymusza wysunięcie napędu wg litery napędu; zmiana def napędu L16; można wywołać ze skrótu z parametrem g J K... lub Y - bez cudzysłowów - spacja po nazwie pliku i litera: file.cmd J

rem         Zawartość pobrana z serwisu:

rem Windows na medal, czyli jak zadbać o własny OS
rem      [http://techwinpatrol.blogspot.com]

rem                ServuS  2018
rem               ==============
setlocal

rem drive=g:\ .OR. d:\ or ....
if NOT "%1" == ""  set "drive=%1:\"
if "%1" == ""  set "drive=j:\"
rem zmienić domyślny dysk do odinstalowania drive=j:\ wg potrzeb (litera:\)
rem przy wywołaniu ze skrótu sama litera (bez dwukropka i slasza) i nie w cudzysłowie: file.cmd h

cscript /nologo /e:JScript "%~f0" "%drive%"

goto :EOF

::  */

var oSH = new ActiveXObject('Shell.Application'),
    FSO = new ActiveXObject('Scripting.FileSystemObject'),
    drive = WSH.Arguments(0);

oSH.NameSpace(17).ParseName(drive).InvokeVerb('Eject');
while (FSO.GetDrive(drive).IsReady) WSH.Sleep(50);

Aby sterowanie odłączaniem dysków było łatwe, oba powyższe programy (DriveTypeEject.cmd i DriveLetterEject.cmd) umożliwiają wywołanie z parametrem. Można to uczynić np. wprost ze skrótu do programu umieszczając po nazwie pliku parametr w postaci cyfry – dla typu napędów, lub litery (przy wywołaniu z parametrem odmiennie tylko sama litera bez slasza i dwukropka!):

”C:\DosWin\Batch\ DriveTypeEject.cmd” 1 lub ”C:\DosWin\Batch\ DriveLetterEject.cmd” h

Wygodniejszym jednak rozwiązaniem, jest umieszczenie kolejno potrzebnych poleceń poprzedzonych komendą call w innym pliku wsadowym CMD (lub kilku różnych) co zapewni daleko idącą funkcjonalność. Przykładowy plik może wyglądać jak prezentowany poniżej:

@echo off

rem zbiorcze wywołanie do wysunięcia wszystkich dysków w systemie
rem usunąć niewystępujące i niepotrzebne do odinstalowywania

rem reservation ISO for win, virtuall CD & CD/DVD
call ”C:\DosWin\Batch\ DriveTypeEject.cmd” 4 

rem USB – Pen
rem przy wywołaniu zparametrem litera dysku bez dwukropka i slasza!
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” g
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” h
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” K

rem         Zawartość pobrana z serwisu:

rem Windows na medal, czyli jak zadbać o własny OS
rem      [http://techwinpatrol.blogspot.com]

rem                ServuS  2018
rem               ==============

albo taka oto mieszanka:

@echo off

rem zbiorcze wywołanie do wysunięcia wszystkich dysków w systemie
rem usunąć niewystępujące i niepotrzebne do odinstalowywania

chdir C:\DosWin\Batch\
rem reservation ISO for win, virtuall CD & CD/DVD
call ”C:\DosWin\Batch\ DriveTypeEject.cmd” 4 

rem USB – Pen
rem przy wywołaniu zparametrem litera dysku bez dwukropka i slasza!
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” g
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” h
call ”C:\DosWin\Batch\ DriveLetterEject.cmd” K

rem         Zawartość pobrana z serwisu:

rem Windows na medal, czyli jak zadbać o własny OS
rem      [http://techwinpatrol.blogspot.com]

rem                 ServuS  2018
rem                ==============

Jeszcze dalej idącym ułatwieniem jest umieszczenie polecenia wywołującego ten plik wprost w menu kontekstowym prawokliku - Windows Shell Context Menu (dysków, plików i folderów) PPM - driveEject.reg :

Windows Registry Editor Version 5.00

;         Zawartość pobrana z serwisu:

; Windows na medal, czyli jak zadbać o własny OS
;      [http://techwinpatrol.blogspot.com]

;                ServuS  2018
;               ==============

; Windows Shell Context Menu - prawoklik driveMultiEject.cmd

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell\!_Drive_Eject]
@="! Drive Eject"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell\!_Drive_Eject\command]
@="C:\\DosWin\\Batch\\driveMultiEject.cmd"

; poniższe wpisy można usunąć jeżeli nie chce się menu kontekstowego DriveEject dla folderów i plików !!!
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\!_Drive_Eject]
@="! Drive Eject"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\!_Drive_Eject\command]
@="C:\\DosWin\\Batch\\driveMultiEject.cmd"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\!_Drive_Eject]
@="! Drive Eject"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\!_Drive_Eject\command]
@="C:\\DosWin\\Batch\\driveMultiEject.cmd"

Można usunąć z tego pliku wpisy \Folder\ i \*\ odpowiedzialne za wyświetlenie menu dla plików i dla folderów – będzie widoczne tylko dla dysków.