[Iska]

Тимур_Макенов@vk, попробуйте WSH:

читать дальше »

Код:

Option Explicit

Const SW_NORMAL = 1

Dim objSWbemObjectEx_Win32_Process
Dim objSWbemObjectEx_Win32_ProcessStartup
Dim lngProcessID

Dim strPath1
Dim strPath2

strPath1 = "E:\Песочница\0231\0001.cmd"
strPath2 = "E:\Песочница\0231\0002.cmd"

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 =  25
			.Y = 100
			
			.XSize = 600
			.YSize = 300
			
			.XCountChars = 40
			.YCountChars = 3000
			
			.Title = "Ping 1"
			.FillAttribute = 30
		End With
		
		If objSWbemObjectEx_Win32_Process.Create("""" & strPath1 & """", Empty, objSWbemObjectEx_Win32_ProcessStartup, lngProcessID) <> 0 Then
			WScript.Echo "Can't create process [" & strPath1 & "]"
			WScript.Quit 1
		End If
		
		With objSWbemObjectEx_Win32_ProcessStartup
			.X = 650
			
			.Title = "Ping 2"
			.FillAttribute = 91
		End With
		
		If objSWbemObjectEx_Win32_Process.Create("""" & strPath2 & """", Empty, objSWbemObjectEx_Win32_ProcessStartup, lngProcessID) <> 0 Then
			WScript.Echo "Can't create process [" & strPath2 & "]"
			WScript.Quit 2
		End If
	End With
End With

WScript.Quit 0

Если у Вас в пакетных файлах только «ping.exe» — можно обойтись и без пакетных файлов, указывая команду непосредственно; проще будет закрывать по Ctrl-C.