Процессы Изменение громкости уже воспроизводимого звука

[ЭйчЭйч]

$oMusic = ObjCreate("WMPlayer.OCX.7")
   $oMusic.Url = $sFileMusicBG
   $oMusic.Settings.Volume = $Volume

   while 1
      $iMusicVolume += 5
      $oMusic.Settings.Volume = $iMusicVolume
   WEnd

Нужно изменить громкость уже играющего звука, но происходит воспроизведение дополнительных экземпляров. Как это исправить?