Ejecting USB Drive

#include <Process.au3>
 
$DriveLabel = "BACKUP" ; your drive label here
 
$aDrives = DriveGetDrive("all") ; USB external hard drives report as "Fixed", not "Removable", so use "All" to cover both kinds
 
If NOT @error Then
    For $i = 1 to $aDrives[0]
        If DriveGetLabel($aDrives[$i]) = $DriveLabel Then
            Local $dstatus = DriveStatus($aDrives[$i])
            MsgBox(0, "1", "Found Drive, it's status is: " & $dstatus)
            If DriveStatus($aDrives[$i]) = "READY" Then
                _RunDos("sync.exe -r "&$aDrives[$i]) ; Flush drive cache
                Sleep(2000)
                EjectDrive($aDrives[$i] & "\")
            EndIf
            Exit
        EndIf
    Next
EndIf
 
Exit
 
Func EjectDrive($dLetter) ; From VB script, Authors XoLoX and ChrisL
Local CONST $SSF_DRIVES = 17
Local $oShell, $oNameSpace, $oDrive, $strDrive
$strDrive = $dLetter
$strName=DriveGetLabel($strDrive) & "(" & $strDrive & ")"
$oShell = ObjCreate("Shell.Application")
$oNamespace = $oShell.NameSpace($SSF_DRIVES)
$oDrive = $oNamespace.ParseName($strDrive)
$oDrive.InvokeVerb ("E&ject")
MsgBox(0, "2", "We're here in the function")
If DriveGetLabel($aDrives[$i]) <> $DriveLabel Or DriveGetLabel($aDrives[$i]) = "Removeable Disk" Then
    MsgBox(0, "3", "We're here in the if statement")
    TrayTip("USB Drive "&$strName&" ejected", "You can now remove the device safely.", 5, 1)
    MsgBox(0,"", $strName & " drive ejected. You can now remove the device safely.",5)
EndIf
Endfunc