iTunes for Windows Part66

itunesでアップルスクリプトを使いたいんですが
やり方がわかりません。
教えてください。
レートを０．５点刻みにつけれるようにしたいんです。

どうせwindowsつかってんだろ

Podcastライブラリで管理されてる楽曲ってどうやったらミュージックライブラリに移せるの？
どこかでID3タグの変換→「なし」を指定して変換すればできるって聞いて、
確かに出来るんだけど、タグ情報が根こそぎ消されて涙目になった。
幸いバックアップとっておいたから良かったけど、何か適した方法ないかな？

>>635
マルチ氏ね

>>635
マルチはやめましょう
AppleScriptはその名の通りMac専用、
WindowsではVisual Basic Script (VBScript) などを使います
とりあえずまとめスレにある再生回数のVBScriptを改造してみました
# VBScriptはよく知らない上にマカーなので動くのかも未確認
# 誰か入力部分をファンシーにしてー

使い方:
- メモ帳などにコピペして適当な名前で保存
- ファイル名を rateedit.vbs に変更 (.vbsならなんでもよい)
- iTunesでレートを変更したい曲を選択
- rateedit.vbsをダブルクリックして実行
- 出てきた数字を±10してやると星半分に

--- 以下をコピペ ---
Dim iTunesApp
Dim Tracks, numTracks
Dim i, k
Dim current

set iTunesApp = WScript.CreateObject("iTunes.Application")
set Tracks = iTunesApp.SelectedTracks
numTracks = Tracks.Count
Cnt

Sub Cnt
for i = 1 to numTracks
set current = Tracks.Item(i)
k = current.Rating
k = InputBox(current.Name, "新しいレートの設定", k)
if k="" then Exit Sub
current.Rating = k
next
End Sub