[Iska]

Код:

Option Explicit

Dim strURL


strURL = "http://forum.oszone.net/thread-252526.html"

With WScript.CreateObject("WScript.Shell")
	.Run """%ProgramFiles%\Mozilla Firefox\firefox.exe"" "          & strURL, 1, False
	.Run """%ProgramFiles%\Internet Explorer\iexplore.exe"" "       & strURL, 1, False
	.Run """%ProgramFiles%\Opera\opera.exe"" "                      & strURL, 1, False
	.Run """%ProgramFiles%\Google\Chrome\Application\chrome.exe"" " & strURL, 1, False
End With

WScript.Quit 0