Windows10 で、ログイン時の起動音がなくなったので、なるようにした。
- 起動音の wav ファイルを用意する
- %USERPROFILE%\music にその wav ファイルを保存する(以下のスクリプトでは oxp.wav)
- ドキュメント(%USERPROFILE%\ドキュメント) に、「起動音.vbs」というスクリプトファイルを保存する
- 「Windows管理ツール」の「タスクスケジューラー」を開き、「基本タスクの作成」で、トリガーをログインにして、WindowsScriptファイル（起動音.vbs）を登録する
起動音.vbs の中身(起動音の wav ファイルを変更するには WAVPATH = “” の部分を変更)
Dim WAVPATH, PlayTime
WAVPATH = "%USERPROFILE%\music\oxp.wav"
PlayTime = "5000"
Set ws = CreateObject("Wscript.Shell")
Dim CommandScript
CommandScript = "mshta ""about:playing... <OBJECT CLASSID='CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95' ><param name='src' value='WAVPATH'><param name='PlayCount' value='1'><param name='autostart' value='true'></OBJECT><script>setTimeout(function(){window.close()},PlayTime);</script>"""
CommandScript = Replace(CommandScript, "WAVPATH", WAVPATH)
CommandScript = Replace(CommandScript, "PlayTime", PlayTime)
ws.run CommandScript, 0, True