[Yoshimura]

Речь выше шла про пакетные файлы — я сделал для них. А Вы попробуйте: читать дальше » Сохраните код в файл с расширением .vbs и запустите. »

Спасибо огромное! И мне помогло. Долго мучался искал как сделать чтоб проверка сети "красиво запускалась" в один клик. Ваш код просто супер. С небольшими твиками вот он ниже. Запускается три окна - пинг на роутер (есть подозрения что проблемы именно с ним), на EX.UA, и конечно же GOOGLE.COM. Сделал фон чуть более контрастным (черный с белым, красным и зеленым), а так же указал заголовки окон (тоже удобно знать кого пингует это окно. Окна, при разрешении моего ноута занимают весь экран - пинг роутера всю левую половину, пинг екса - верхнюю правую часть, пинг гугла - нижнюю правую.

Код:

Option Explicit

Const SW_NORMAL = 1

Dim objSWbemObjectEx_Win32_Process
Dim objSWbemObjectEx_Win32_ProcessStartup
Dim lngProcessID

Dim strCommandLine1
Dim strCommandLine2
Dim strCommandLine3

strCommandLine1 = "ping.exe -t 192.168.1.1"
strCommandLine2 = "ping.exe -t ex.ua"
strCommandLine3 = "ping.exe -t google.com"

With WScript.CreateObject("WbemScripting.SWbemLocator")
	With .ConnectServer(".", "root\cimv2")
		Set objSWbemObjectEx_Win32_Process        = .Get("Win32_Process")
		Set objSWbemObjectEx_Win32_ProcessStartup = .Get("Win32_ProcessStartup").SpawnInstance_
		
		With objSWbemObjectEx_Win32_ProcessStartup
			.ShowWindow = SW_NORMAL
			.CreateFlags = 16
			
			.X =  0
			.Y = 0
			
			.XSize = 640
			.YSize = 690
			
			.XCountChars = 40
			.YCountChars = 3000
			
			.Title = "Ping ROUTER"
			.FillAttribute = 2
		End With
		
		If objSWbemObjectEx_Win32_Process.Create(strCommandLine1, Empty, objSWbemObjectEx_Win32_ProcessStartup, lngProcessID) <> 0 Then
			WScript.Echo "Can't create process [" & strCommandLine1 & "]"
			WScript.Quit 1
		End If
		
		With objSWbemObjectEx_Win32_ProcessStartup
			.X = 680

			.XSize = 640
			.YSize = 330
			
			.Title = "Ping EX.UA"
			.FillAttribute = 4
		End With
		
		If objSWbemObjectEx_Win32_Process.Create(strCommandLine2, Empty, objSWbemObjectEx_Win32_ProcessStartup, lngProcessID) <> 0 Then
			WScript.Echo "Can't create process [" & strCommandLine2 & "]"
			WScript.Quit 2
		End If

		With objSWbemObjectEx_Win32_ProcessStartup
			.X = 685
			.Y = 365

			.XSize = 640
			.YSize = 330

			.Title = "Ping GOOGLE.com"
			.FillAttribute = 7
		End With
		
		If objSWbemObjectEx_Win32_Process.Create(strCommandLine3, Empty, objSWbemObjectEx_Win32_ProcessStartup, lngProcessID) <> 0 Then
			WScript.Echo "Can't create process [" & strCommandLine2 & "]"
			WScript.Quit 3
		End If
	End With
End With

WScript.Quit 0