Set iTunes = WScript.CreateObject("iTunes.Application")

'現在のボリュームをとっておく
cVolume = iTunes.SoundVolume

'再生中なら
If iTunes.PlayerState = 1 Then
	For i = cVolume To 0 Step -2
		iTunes.SoundVolume = i
		WScript.Sleep 1
	Next

	'停止後にボリュームを戻す
	iTunes.Pause()
	iTunes.SoundVolume = cVolume
Else

'ポーズ中なら

	'いったんボリュームをゼロから再生開始し
	iTunes.SoundVolume = 0
	iTunes.Play()

	'もとのボリュームまで戻す
	For i = 0 To cVolume Step 2
		iTunes.SoundVolume = i
		WScript.Sleep 1
	Next
End If