テキストエディタ (NotePad など) で以下の内容を打ち込んで [buffalo_nas_connect.vbs] として保存します。
あくまでも我が家の環境での WSH です。
個々の環境や条件によりアレンジください。
WScript.sleep 3000
Set objNetwork = CreateObject("WScript.Network")
objNetWork.MapNetworkDrive "Y:","\\LS520Ddf8\hiro"
objNetWork.MapNetworkDrive "Z:","\\LS520Ddf8\music"
WScript.sleep 1000
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run """C:\Program Files (x86)\foobar2000\foobar2000.exe"""
スクリプトの動作は以下の通りです。
-
WScript.sleep 3000 で3秒間ウエイトします。
-
次の3行でネットワークドライブの [Y:] [Z:] を接続します。
-
WScript.sleep 1000 で1秒間ウエイトします。
-
次の3行で foobar2000 を起動します。
foobar2000 は音楽データが入っている [Z:] ドライブを使うので、ネットワークドライブの接続より後に起動する必要があります。