Батники - вопросы и решения




 

[Цитировать]

Отправлено: 04-Ноя-2020 21:44

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
Подскажите пожалуйста как сделать?
Проверяю статус активации офиса следующим кодом

код

cd '\Program Files\Microsoft Office\Office15\'
cscript ospp.vbs /dstatus
В результате выдает много лишнего инфу.
Как показать из всего только ряды License Status и Remaining Grace, а остальное не показывать?
aa
И еще: как можно сделать скрипт проверки универсальным для всех версии офиса? Есть такой вариант?

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 05-Ноя-2020 13:48 (спустя 16 часов)

    Ander_73
  • 15549
  • Стаж: 7 лет 9 месяцев
  • Сообщений: 3822
  • Репутация:127

    [+] [-]
dimo70,
cd "%ProgramFiles%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"

[Цитировать]

Отправлено: 05-Ноя-2020 15:30 (спустя 1 час 41 минута)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
Ander_73, спасибо. aa
Сделал полезность - быстрая проверка лицензии винда и офиса.

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 05-Ноя-2020 16:11 (спустя 41 минута)

    vitvash
  • 1964
  • Стаж: 9 лет
  • Сообщений: 135
  • Репутация:3

    [+] [-]
dimo70, Привет, а офис 2010 забыл? и можно поменять Windows Activation Status: slmgr /dlv

[Цитировать]

Отправлено: 05-Ноя-2020 16:52 (спустя 40 минут)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
vitvash, не забыл, но не знаю как сделать универсально для всех офисах. В предыдущем посте просьбу писал.
можно поменять Windows Activation Status: slmgr /dlv
Поменять легко, но хорошо бы разяснить, какая инфа нам даст больше и зачем нужна?

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 06-Ноя-2020 08:26 (спустя 15 часов)

    vitvash
  • 1964
  • Стаж: 9 лет
  • Сообщений: 135
  • Репутация:3

    [+] [-]
dimo70,
офис 2010,2013,2016-19 x86

x86

@echo off
mode con cols=62 lines=7
color 2E
Title Windows and Office licence status:
echo Windows Activation Status:
slmgr /dli
echo ....
echo.
cls
echo
echo Office Activation Status:
echo.
if not exist "%ProgramFiles%\Microsoft Office\Office14" >nul goto 15
cd "%ProgramFiles%\Microsoft Office\Office14"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:15
if not exist "%ProgramFiles%\Microsoft Office\Office14" >nul goto 16
cd "%ProgramFiles%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:16
if not exist "%ProgramFiles%\Microsoft Office\Office14" >nul goto end
cd "%ProgramFiles%\Microsoft Office\Office16"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:end
timeout /t 5

x64

@echo off
mode con cols=62 lines=7
color 2E
Title Windows and Office licence status:
echo Windows Activation Status:
slmgr /dli
echo ....
echo.
cls
echo
echo Office Activation Status:
echo.
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office14" >nul goto 15
cd "%ProgramFiles(x86)%\Microsoft Office\Office14"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:15
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office15" >nul goto 16
cd "%ProgramFiles(x86)%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:16
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office16" >nul goto end
cd "%ProgramFiles(x86)%\Microsoft Office\Office16"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:end
timeout /t 5

office_86-64

IF %PROCESSOR_ARCHITECTURE% == x86 (IF NOT DEFINED PROCESSOR_ARCHITEW6432 goto bit32)
goto bit64
:bit32
if not exist "%ProgramFiles%\Microsoft Office\Office14" >nul goto 15
cd "%ProgramFiles%\Microsoft Office\Office14"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:15
if not exist "%ProgramFiles%\Microsoft Office\Office15" >nul goto 16
cd "%ProgramFiles%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:16
if not exist "%ProgramFiles%\Microsoft Office\Office16" >nul goto end
cd "%ProgramFiles%\Microsoft Office\Office16"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
goto end
:bit64
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office14" >nul goto 15
cd "%ProgramFiles(x86)%\Microsoft Office\Office14"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:15
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office15" >nul goto 15
cd "%ProgramFiles(x86)%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:16
if not exist "%ProgramFiles(x86)%\Microsoft Office\Office16" >nul goto 1464
cd "%ProgramFiles(x86)%\Microsoft Office\Office16"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:1464
if not exist "%ProgramW6432%\Microsoft Office\Office14" >nul goto 1564
cd "%ProgramW6432%\Microsoft Office\Office14"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:1564
if not exist "%ProgramW6432%\Microsoft Office\Office15" >nul goto 1664
cd "%ProgramW6432%\Microsoft Office\Office15"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:1664
if not exist "%ProgramW6432%\Microsoft Office\Office16" >nul goto end
cd "%ProgramW6432%\Microsoft Office\Office16"
cscript ospp.vbs /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
:end
timeout /t 5

[Цитировать]

Отправлено: 06-Ноя-2020 10:15 (спустя 1 час 48 минут)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
vitvash, ay
Переделал, пробуйте. У меня работает. az

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 06-Ноя-2020 10:56 (спустя 40 минут)

    vitvash
  • 1964
  • Стаж: 9 лет
  • Сообщений: 135
  • Репутация:3

    [+] [-]
dimo70, надо бы ещё добавить надпись типа офисов не найдено если не установлен

[Цитировать]

Отправлено: 06-Ноя-2020 16:04 (спустя 5 часов)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
vitvash, сработало так на office 2010 нормально? Если все нормально добавлю. aa


Последний раз редактировалось: dimo70 (2020-11-06 17:10), всего редактировалось 1 раз

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 06-Ноя-2020 16:53 (спустя 49 минут)

    vitvash
  • 1964
  • Стаж: 9 лет
  • Сообщений: 135
  • Репутация:3

    [+] [-]
dimo70, у меня office10 х86 на windows 8.1 х64 и office19х86 на windows 10 х64
всё показывает нормально
Добавлено через 7 минут 11 секунд:
dimo70,echo No MS Office found on this computer. перекинь после :end

[Цитировать]

Отправлено: 06-Ноя-2020 18:59 (спустя 2 часа 5 минут)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
vitvash, Не получается.
Если перекинуть после :end не получается как надо. Текст "No MS Office found on this computer" будет всегда появлятся, даже если офиса есть.
И все таки неплохо получилось - ACTStatus для проверки
WinACT и OfficeACT для активации. ab

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 08-Ноя-2020 09:33 (спустя 1 день 14 часов)

    sov44
  • 14940
  • Стаж: 8 лет
  • Сообщений: 32
  • Репутация:4

    [+] [-]
  • Откуда: г. Киров
dimo70, как вариант
@echo off
setlocal enabledelayedexpansion
for %%a in ("c:\Program Files (x86)","c:\Program Files") do (
for /f "delims=" %%b in ('where /r %%a "OSPP.VBS" 2^>nul') do set p_vbs=%%b& set off=%%~dpb
for /d %%c in ("!off:~0,-1!.txt") do set v_off=%%~nc
)
echo %p_vbs%
echo %v_off%
echo.
if defined p_vbs (
cscript "%p_vbs%" /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
)
pause
exit

[Цитировать]

Отправлено: 08-Ноя-2020 12:42 (спустя 3 часа)

    dimo70
  • 17296
  • Стаж: 6 лет 11 месяцев
  • Сообщений: 3780
  • Репутация:27

    [+] [-]
  • Откуда: BG
sov44, спасибо, вот ето сериозный код! ay
Приложил с минимальными изменениями - вот и результат
Проверяйте, у меня работает.

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

Отправлено: 08-Ноя-2020 13:35 (спустя 53 минуты)

    sergeysvirid
  • 104
  • Стаж: 9 лет
  • Сообщений: 2582
  • Репутация:127

    [+] [-]
  • Откуда: 65 регион (GMT+11)
sov44, dimo70,
Приветствую! aa
dimo70,
А что отображение состояния активации Windows в отдельном окне? По аналогии примера sov44 можно же в одном (том же) окне отобразить инфу, ...ну типа как то так:
@echo off
setlocal enabledelayedexpansion
mode con cols=86 lines=36
color 2E
Title Windows and Office licence status:
echo Windows Activation Status:
echo.
for %%a in (%windir%\system32\slmgr.vbs) do set s_vbs=%%a
echo.
cscript "%s_vbs%" /dli
echo ...................................................................
echo.
echo MS Office Activation Status:
echo.
for %%a in ("%ProgramFiles%","%ProgramFiles(x86)%") do (
for /f "delims=" %%b in ('where /r %%a "OSPP.VBS" 2^>nul') do set p_vbs=%%b& set off=%%~dpb
for /d %%c in ("!off:~0,-1!.txt") do set v_off=%%~nc
)
echo Found %v_off% on this machine.
echo.
if defined p_vbs (
cscript "%p_vbs%" /dstatus| findstr /il /c:"License Status" /c:"Remaining Grace"
)
pause >nul


Последний раз редактировалось: sergeysvirid (2020-11-08 16:00), всего редактировалось 2 раз(а)

[Цитировать]

Отправлено: 08-Ноя-2020 14:36 (спустя 1 час 1 минута)

    Ander_73
  • 15549
  • Стаж: 7 лет 9 месяцев
  • Сообщений: 3822
  • Репутация:127

    [+] [-]
Камрады, используйте переменные среды:
for %%a in ("%ProgramFiles%","%ProgramFiles(x86)%") do (

Комментарий от sergeysvirid

Спасибо за замечание. Подправил в предыдущем сообщении.

Страница 31 из 94


Показать сообщения:    

Текущее время: 26-Ноя 11:26

Часовой пояс: UTC + 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы