[megaloman]

Гена829999, Ваш изменённый вариант:

Код:

@Echo Off
cls
	For %%i In ("Jan=Января" "Feb=Февраля" "Mar=Марта" "Apr=Апреля" "May=Мая" "Jun=Июня" "Jul=Июля" "Aug=Августа" "Sep=Сентября" "Oct=Октября" "Nov=Ноября" "Dec=Декабря") Do Set "@@M%%~i"
	For %%i In ("Mon=Понедельник" "Tue=Вторник" "Wed=Среда" "Thu=Четверг" "Fri=Пятница" "Sat=Суббота" "Sun=Воскресенье") Do Set "@@D%%~i"

	>"%temp%\%~nx0.ddf" cd.
	>nul makecab /d RptFileName="%temp%\%~nx0.rpt" /d InfFileName="%temp%\%~nx0.inf" -f "%temp%\%~nx0.ddf"

	Set /P OutRpt=<"%temp%\%~nx0.rpt"
	Del "%temp%\%~nx0.*"
	For /f "tokens=3,4,5,6,7 delims= " %%i in ("%OutRpt%") Do (
		Call Set "current-date=%%k-%%@@M%%~j%%-%%m"
		Call Set "current-weekday=%%@@D%%~i%%"
		Call Set "current-time=%%~l"
	)
Echo.Дата: %current-date% День: %current-weekday% Время: %current-time%

Pause
Exit /B