下記内容をメモ帳にペーストして名前をweb.vbsで保存する。
web.vbsをダブルクリックすると複数サイトが表示されます。
Option Explicit
Dim owsh
Dim ret
Dim strUrl(10)
Dim intCnt
Set owsh = CreateObject("WScript.Shell")
strUrl(0) = "https://www.ameba.jp/home"
strUrl(1) = "https://www.facebook.com/"
strUrl(2) = "https://twitter.com/home"
strUrl(3) = ""
strUrl(4) = ""
strUrl(5) = ""
strUrl(6) = ""
strUrl(7) = ""
strUrl(8) = ""
strUrl(9) = ""
strUrl(10) = ""
For intCnt = 0 To UBound(strUrl) Step 1
If strUrl(intCnt) <> "" Then
ret = owsh.Run("chrome"+" " + strUrl(intCnt), 1, False)
End If
Next
Set owsh = Nothing