Option Explicit

If WScript.Arguments.Count <> 1 Then
	MsgBox "Нет обязательного параметра или параметров слишком много!", vbCritical
	WScript.Quit
End If

MsgBox "Переданный параметр: " & WScript.Arguments(0), vbInformation