Has to do nothing but tinker with, but after I looked for even the fingers sore after that, I just publish it.
The actual ejection takes a VB Script using drive eject through the workplace. Consequently, the script works with all iPods, but only those that are configured for use as a hard disk drive. It does not matter if the iPod is a USB / FireWire cable or docking station. This can then also other external hard drives, USB drives or CD / DVD drive eject easily. Here's how: Create a new text file and copy the text between the pure lines (adapt path to the device, in my case it is drive H :).

---

set shell = CreateObject ("Scripting.FileSystemObject")
Set drive = Scan Folder (17 "(H)")
Laufwerk.invokeVerb ("A & uswerfen") Function Scan Folder (vdir, element)
set folder = Shell.NameSpace (vdir)
For i = 0 to Folder.Items.Count-1
If Instr (lcase (folder.items.item (i)), lcase (element))> 0 then
Scan Set Folder = folder.items.item (i)
exit for
End If
Next
If Not IsObject (scan folders) Then
Wscript.Quit
End IF
End Function

---

Then File> Save as iPod_eject.vbs under
Or download here ready: iPod_eject.vbs
The file can save you anywhere, and on the desktop
create a link with more beautiful icon.