for %%I in (rar.exe) do set RAR_EXE=%%~dpf$PATH:I
if not defined RAR_EXE (
	set STR=File rar.exe - not found!
	GOTO :ERR
)

Function FindProg(prm_name)

Dim regEx,Match_,Matches_,fso
ProcName="FindProg"

Set WshShell=WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Path=WshShell.Environment("Process")("Path") & ";" & WScript.Path 
Matches_= Split(path,";")

FindProg=False

For Each Match_ In Matches_
	If Right(Match_, 1 )="\" Then Match_= Left(Match_,Len(Match_)- 1 )
	If fso.FileExists(Match_ & "\" & prm_name) Then
			FindProg=True
			Exit  For
	End If
Next

Set fso		 =Nothing
Set WshShell	 =Nothing
If Not FindProgReq  Then
    Err.Raise FILENOTFOUND,ProcName," Не найден файл " & prm_name & VbCrLf & _
				    " Параметры запуска функции: " & ProcName & "(""" & prm_name & """)" 
End If
End Function

Function FindProg(prm_name)
'Вернее так:
Dim regEx,Match_,Matches_,fso,WshShell
ProcName="FindProg"

Set WshShell=WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Path=WshShell.Environment("Process")("Path") & ";" & WScript.Path 
Matches_= Split(path,";")

FindProg=False

For Each Match_ In Matches_
	If Right(Match_, 1 )="\" Then Match_= Left(Match_,Len(Match_)- 1 )
	If fso.FileExists(Match_ & "\" & prm_name) Then
			FindProg=True
			Exit  For
	End If
Next

Set fso		 =Nothing
Set WshShell	 =Nothing
If Not FindProgReq  Then
    Err.Raise FILENOTFOUND,ProcName," Не найден файл " & prm_name & VbCrLf & _
				    " Параметры запуска функции: " & ProcName & "(""" & prm_name & """)" 
End If
End Function