[gora]

Нашел. Подправил еще, теперь должен работать и со скобками и с кавычками «»

Код:

@Echo Off
Set "mht_file=%~1"
If Not Defined mht_file Call :_Err "Нет никакого файла"
If Not "%~x1"==".mht" Call :_Err "'%~1' не *.mht файл"
Set "un=%TMP%\UnicumNameFile%~x1"
Copy "%~1" "%un%">Nul
For /f "tokens=1*" %%a In ('FINDSTR /b /i "Content-Location:" "%un%"') Do Set url=%%b& GoTo :_end
:_end
Del /q "%un%"
Set Burl=%url:~0,5%
If Not "%Burl%"=="http:" Call :_Err "Файл '%~1' не содержит URL"
Start "" "%url%"
Exit

:_Err
Title Ошибка запуска *.mht файла
Echo.
Echo 				ОШИБКА!!!
Echo.
Echo 	%~1
Ping -n 6 Localhost>Nul
Exit