[Гена829999]

изменённый вариант: »

Еще Оптимистичный и Оптимальный вариант!
И в 3 раза меньше
Спасибо, Благодарю!
Очень Помогли!

[megaloman]

Гена829999, А вот фэншуйный вариант. Если не принципиально использование makecab с созданием трёх временных файлов, то без этого извращения (с моей точки), хоть длиннее, но без файлов:

Код:

@Echo Off
cls
	For %%i In ("01=Января" "02=Февраля" "03=Марта" "04=Апреля" "05=Мая" "06=Июня" "07=Июля" "08=Августа" "09=Сентября" "10=Октября" "11=Ноября" "12=Декабря") Do Set "@@M%%~i"
	For %%i In ("1=Понедельник" "2=Вторник" "3=Среда" "4=Четверг" "5=Пятница" "6=Суббота" "7=Воскресенье") Do Set "@@D%%~i"

	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETime /VALUE') DO Set "DateTime=%%d"

	Set "Month=%DateTime:~4,2%"
	Call :NdayInWeek %DateTime:~6,2% %DateTime:~4,2% %DateTime:~0,4% "Wday"

	Call Set "current-date=%DateTime:~6,2%-%%@@M%Month%%%-%%DateTime:~0,4%%"
	Call Set "current-weekday=%%@@D%Wday%%%"
	Set "current-time=%DateTime:~8,2%:%DateTime:~10,2%:%DateTime:~-2%"

Echo.Дата: %current-date% День: %current-weekday% Время: %current-time%

Pause
Exit /B

rem Номер дня в неделе дд мм гггг имя_переменной
:NdayInWeek
SetLocal
	Set "D=0%1" &Set "M=0%2"
	Set /A D=1%D:~-2%-100,M=1%M:~-2%-100  
	Set /A i=(%3-1901)*365 + (%3-1901)/4 + %D% + (!(%3 %% 4))*(!((%M%-3)^&16))
	EndLocal &Set /A %~4=(%i%+(%M%-1)*30+2*(!((%M%-7)^&16))-1+((65611044^>^>(2*%M%))^&3))%%7+1
Exit /B

[Гена829999]

А вот фэншуйный вариант »

Действительно так и есть!
Wmic конечно умеет четко выполнять поставленную задачу.
Применял когда обычные команды остановки и удаления служб и процессов не справлялись.
И поэтому всегда предпочитаю использовать его.
Вы правы-этот код с WMIC лучше использовать чем с созданием временных файлов
Буду использовать.
Благодарю, Вас!