eject USB HDD

[hot202]

hi im trying to find away to eject my USB hdd on win7 but all the scripts out there dont seem to work. Dose any1 know how to get it working for win7?

[Xenobiologist]

Have you tried devcon.exe von commandline shell (DOSBOX) ?

If that works, you can automate it.

[hot202]

nah i didnt know what that was and where to get it and how to use it.

[trancexx]

Search forums with this DeviceIoControl trancexx

[99ojo]

Hi,

you have to download Windows Driver Kit 7.1.0 ( 610 MB ) to get a running version of devcon.exe under Win 7.

http://www.microsoft.com/whdc/DevTools/WDK/WDKpkg.mspx

After extracting you will find suitable version under

"%InstDrv%\WinDDK\7600.16385.0\Tools\Devcon"

;-))

Stefan

[hot202]

so i will have to have Windows Driver Kit 7.1.0 installed on every computer that i want to eject the usb?

[wraithdu]

Tried my UDF HERE yet? I just updated it to make sure it works on x64.

[hot202]

I cant seem to get it working on my win7 computer using your example

in the console i keep getting Ejecting drive <G:> - False

edit:

is there anyway to eject the drive if the script is ran from that drive?

Edited March 10, 2010 by hot202

[99ojo]

so i will have to have Windows Driver Kit 7.1.0 installed on every computer that i want to eject the usb?

Hi,

no. you have to install it once to get the devcon.exe for Win7 32 bit and Win7 64 bit.

In your code, you might have to query OS build to run the suitable devcon.exe.

Here sample code to query usb stick, you have to declare $workdir by yourself:

$strrun = $workdir & "\devcon find = WPD USB\VID* >" & $workdir & "\usbdev.txt"
RunWait (@ComSpec & " /c " & $strrun, $workdir, @SW_HIDE)
_FileReadToArray ($workdir & "\usbdev.txt", $usbdev)
FileDelete ($workdir & "\usbdev.txt")

and deactivate USB Stick on exit, using array $usbdev from above:

Func _Exit ()
    ;Sind USB Drives vorhanden ( are there USB Sticks )
    If IsArray ($usbdev) Then
        For $x = 1 to UBound ($usbdev) - 1
            If StringInStr ($usbdev [$x], "USB-Massenspeicher") <> 0 Then
                $crecords = StringSplit ($usbdev [$x], "\")
                ;Entferne USB Drives zum sicheren entfernern (disable USB Stick for save removal)
                RunWait (@ComSpec & " /c " & $workdir & "\devcon remove """ & $crecords [1] & "\" & $crecords [2] & """")
            EndIf
        Next
    EndIf
    ;Ende (Exit)
    Exit
EndFunc

;-))

Stefan

Edited March 10, 2010 by 99ojo

[Yashied]

Try this.

[wraithdu]

edit:

is there anyway to eject the drive if the script is ran from that drive?

Of course NOT. How can you expect to safely remove a usb drive if you have an application running from that very drive?

[hot202]

Thought maybe there would be away to close the script but still eject the usb drive.