iTunes-Skript funktioniert nicht mehr

[kilian trieler]

Hallo,

eins vorweg: Ich schreibe keine eigenen Skripte, habe mir aber welche geladen die jetzt nicht mehr funktionieren.

Ich nutze iTunes zur Musikverwaltung. Auf dieser Seite wurden Skripte angeboten, ich nutze u.a. das Skript "defekte Titel löschen". Lief bisher einwandfrei. Jetzt habe ich eine neue HDD und musste Windows neu installieren (XP SP1, da ohne Onlineverbindung), jetzt geht das nicht mehr. Ich habe einen Screenshot der Fehlermeldung angehangen. Über google kam ich zu dieser Seite und befolgte den Tipp zur "Skripte starten nicht mehr", Installation des Windows Skript Host v5.6. Leider ohne Besserung.

Hat jemand eine Idee?

Hier das Skript von der Seite zum iPod-Buch:

' Defekte Titel löschen
'
' Das Skript löscht aus einer Selektion alle Titel, deren
' Mediendaten nicht mehr vorhanden sind und deshalb
' in iTunes ein Ausrufungszeichen vor dem Titel anzeigen.
'
' (c) 2007 Gerald Erdmann
'
' Skript aus dem Buch "iPod + iTunes", erscheinen bei O'Reilly
' Weitere Details finden Sie unter http://www.ipodbuch.de.
' Für etwaige Fehler oder Datenverluste wird keine Garantie
' übernommen. Benutzung auf eigene Gefahr!
'
' Zur Installation das Skript an eine beliebige Stelle kopieren.
' Das Skript kann nicht direkt aus iTunes heraus aufgerufen werden,
' sondern wird direkt aus dem Windows Explorer gestartet.
'
' Version 1.0 Jan. 2007 Erste Version
'

dim iTunes
dim tracklist
dim track
dim brokenTracks ()
dim foundCount
dim deletedCount

set iTunes = CreateObject ("iTunes.Application")
set tracklist = iTunes.SelectedTracks
set iTunesTracks = itunes.LibraryPlaylist.Tracks

redim brokenTracks (iTunesTracks.count)
foundCount = 0

if iTunes.Version < "4.0" then
WScript.Echo "Sie benötigen iTunes 4 oder höher für dieses Skript!"
else
if tracklist is nothing then
WScript.Echo "Sie haben keine Titel selektiert!"
else
for track = tracklist.Count to 1 step -1
if tracklist.Item(track).Location = "" then
foundCount = foundCount + 1
brokenTracks(foundCount) = tracklist.Item(track).TrackDatabaseID
end if
next

if foundCount > 0 then
deletedCount = foundCount
for track = iTunesTracks.Count to 1 step -1
for found = 1 to foundCount
if iTunesTracks.Item(track).TrackDatabaseID = brokenTracks(found) then
deletedCount = deletedCount - 1
iTunesTracks.Item(track).Delete
exit for
end if
next
if deletedCount = 0 then
exit for
end if
next
if foundCount = 1 then
WSCript.Echo "Es wurde ein defekter Titel gelöscht!"
else
WScript.Echo "Es wurden " & foundCount & " defekte Titel gelöscht!"
end if
else
WScript.Echo "Es wurden keine defekten Titel gefunden!"
end if
end if
end if