Ejecting a removable drive

[aleph01]

I currently have a script ejecting USB drives in public computers by calling a third party software.  Being the purist I am, I would rather have a script that doesn't need to call other software to do the work.  I don't see any DriveEject or similar command.  Am I missing something?  How would this be done purely in AutoIt?  My code (for the curious):

#include <AutoItConstants.au3>

Local $aArray = DriveGetDrive($DT_REMOVABLE)
If @error Then
    ; An error occurred when retrieving the drives.
    MsgBox(0, "", "It appears an error occurred.")
Else
    For $i = 1 To $aArray[0]
        ; Convert the drive letter to uppercase.
        $L = StringUpper ($aArray[$i])
        ; Eject the drive.
        RunWait('"C:\Program Files (x86)\USB_Disk_Eject\USB_Disk_Eject.exe" /REMOVELETTER " & $L', "", @SW_HIDE)
    Next
EndIf

MsgBox (0, _
        "Safe Removal", _
        "It is now safe to remove your USB drive(s).")

If I can get out of using USB_Disk_Eject.exe, I would be a happy camper.

Thanks,

_aleph_

[JLogan3o13]

#RequireAdmin

Local $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Local $oUSB = $WMI.ExecQuery("SELECT * FROM Win32_Volume where DriveType = '2'")
Local $oObj = ObjCreate("Shell.Application")

For $sItem In $oUSB
    $oObj.NameSpace(17).ParseName($sItem.driveletter).InvokeVerb("Eject")
Next

Admittedly, I have not tried it when many USB drives are attached, but it should work.

Edited November 11, 2016 by JLogan3o13

[kylomas]

aleph01,

Win7 Pro 64bit at current maintenance levels...This works for multiple USB sticks but not my Passport external drive...

#include <AutoItConstants.au3>
#include <WinAPIFiles.au3>
#include <array.au3>

Local $aArray = DriveGetDrive($DT_REMOVABLE)
;_arraydisplay($aArray)

If @error Then
    ; An error occurred when retrieving the drives.
    MsgBox(0, "", "It appears an error occurred.")
Else
    For $i = 1 To $aArray[0]
        if not _WinAPI_EjectMedia(stringupper($aArray[$i])) then exit msgbox(17,'Error Ejecting Drive','Drive = ' & $aArray[$i])
    Next
EndIf

MsgBox (0, _
        "Safe Removal", _
        "It is now safe to remove your USB drive(s).")

kylomas

edit:  JL, your script behaves the same as mine.  I'm verifying results by WIN+E before and after execution.

Edited November 11, 2016 by kylomas
additional data

[j0kky]

If _WinApi_EjectMedia doesn't work, try to use CM_Request_Device_Eject function, I think it belongs to setupapi.dll

[aleph01]

Wow, jackpot!  Thanks JLogan3o13, kylomas, and j0kky.  I now have WMI, WinAPI and C++ to work with.  I looked for the WinAPI in the help file.  I must have skimmed over it by accident.  Thanks again all!  I'll keep each method squirrelled away for future reference regardless of which I end up implementing this time around.

_aleph_