Ha a che fare altro che armeggiare con, ma dopo ho guardato anche per le dita doloranti dopo di che, ho appena pubblicato.
L'espulsione effettiva non ha uno script VB utilizzando l'unità espellere attraverso il posto di lavoro. Di conseguenza, lo script funziona con tutti gli iPod, ma solo quelli che sono configurati per l'utilizzo come disco rigido. Non importa se l'iPod è un cavo USB / FireWire o docking station. Questo può poi anche altri dischi rigidi esterni, unità USB o CD / DVD espellere facilmente. Ecco come: Creare un nuovo file di testo e copiare il testo tra le linee pure (adattare percorso al device, nel mio caso è l'unità H :).

---

impostare la shell = CreateObject ("Scripting.FileSystemObject")
Set drive = Scan Folder (17 "(H)")
Laufwerk.invokeVerb ("A & uswerfen") Scan Folder Function (vdir, elemento)
impostare la cartella = Shell.NameSpace (vdir)
Per i = 0 a Folder.Items.Count-1
Se Instr (LCase (folder.items.item (i)), LCase (elemento))> 0 allora
Scan Folder Set = folder.items.item (i)
uscita per
End If
Prossimo
If Not IsObject (cartelle di scansione) Then
WScript.Quit
End If
End Function

---

Poi File> Salva con nome in iPod_eject.vbs
Oppure scaricare qui pronta: iPod_eject.vbs
Il file si può salvare ovunque, e sul desktop
creare un collegamento con più bella icona.