[Iska]

На WSH:

Скрытый текст

Код:

Option Explicit

Const strPath2Programm = "c:\Windows\System32\notepad.exe"


Dim arrArguments()
Dim strArgument

Dim i


If WScript.Arguments.Count > 0 Then
	ReDim arrArguments(WScript.Arguments.Count - 1)
	
	For i = 0 To WScript.Arguments.Count - 1
		WScript.Echo "[" & WScript.Arguments.Item(i) & "]"
		arrArguments(i) = WScript.Arguments.Item(i)
	Next
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If Not .FileExists(strPath2Programm) Then
			WScript.Echo "Can't find programm file [" & strPath2Programm & "]."
			WScript.Quit 2
		End If
		
		For Each strArgument In arrArguments
			If Not .FileExists(strArgument) Then
				WScript.Echo "Can't find source file [" & strArgument & "]."
				WScript.Quit 3
			End If
		Next
	End With
	
	WScript.CreateObject("WScript.Shell").Run """" & strPath2Programm & """ """ & Join(arrArguments, "|") & """"
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file1> [<Source file2> [...<Source fileN>]]"
	WScript.Quit 1
End If

WScript.Quit 0

megaloman, а если пробельные символы в имени файла?