[megaloman]

Код:

@Echo Off
cls
	Set "Seek= Device "

	Set "header_line="
	For /f "tokens=2,* delims= " %%a In ('REG Query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^|Find /I " Device"') Do Set "header_line=%%b"
	For /f "delims=," %%a In ("%header_line%") Do Set "header_line=%%a"

Echo %header_line%
Pause
Exit /B

[slonax82]

Спасибо БОльшое.
Пока думал как получить искомую строку дошел до следующего-

cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnmngr.vbs" -g > "C:\print-scripts\test.txt"
pause
<"C:\print-scripts\test.txt">"C:\print-scripts\test2.txt" (find "ЏаЁ*вҐа Ї® 㬮«з**Ёо"|set /p z=^& call echo %%z:* =%%)
pause

Однако выводится имя в виде Ї® 㬮«з**Ёо Samsung SCX-4200 Series. Подскажите где ошибся? И как прикрутить ваш вариант или мой не рабочий к

cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p ИМЯ ПРИНТЕРА

Заранее Спасибо

[megaloman]

cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p "%%a" »

Я не понимаю эту строку. %%a вне цикла не имеет смысла. Если Вы хотели, чтобы это было имя принтера, то (с моим вариантом)

Код:

@Echo Off
cls
	Set "Seek= Device "

	Set "header_line="
	For /f "tokens=2,* delims= " %%a In ('REG Query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^|Find /I " Device"') Do Set "header_line=%%b"
	For /f "delims=," %%a In ("%header_line%") Do Set "header_line=%%a"

	cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p "%header_line%"
Pause
Exit /B

Но что при этом получится - не берусь судить, не зная, зачем этот скрипт и как используется.

[slonax82]

Это системный скрипт для печати тестового листа Windows начиная с 98 и по 11. Последняя строка не может быть выполнена- возвращается с ошибкой(Буду думать как еще реализовать- тест лист). А по моему 2 варианту можете указать на ошибку- давно не приходилось писать, что то подобное- скорее всего со знаками %% перемудрил.

@echo .>C:\print-scripts\used-print.bat
@Echo Off
cls
Set "Seek= Device"
Set "header_line="
For /f "tokens=2,* delims= " %%a In ('REG Query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^|Find /I " Device"') Do Set "header_line=%%b"
For /f "delims=," %%a In ("%header_line%") Do Set "header_line=%%a"
Pause
Echo cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p "%header_line%">"C:\print-scripts\used-print.bat"
Echo Pause >>"C:\print-scripts\used-print.bat"
Pause
call "C:\print-scripts\used-print.bat"
Pause
Exit /B

Ваш вариант допилил- в результате получаем(Файл 165802)

[slonax82]

Ваш вариант допилил-
@echo .>C:\print-scripts\used-print.bat
@Echo Off
cls
Set "Seek= Device"

Set "header_line="
For /f "tokens=2,* delims= " %%a In ('REG Query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^|Find /I " Device"') Do Set "header_line=%%b"
For /f "delims=," %%a In ("%header_line%") Do Set "header_line=%%a"
Echo cscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p "%header_line%">"C:\print-scripts\used-print.bat"
Echo Pause >>"C:\print-scripts\used-print.bat"
call "C:\print-scripts\used-print.bat"
Pause
в результате получаем распечатку с искомого аппарата. Картинку поправляю https://disk.yandex.ru/client/disk?i...%BE%D0%BA1.JPG

PS Пока тему не закрываю- вдруг укажут на мои ошибки во втором варианте.

[megaloman]

slonax82, Не понимаю, зачем нужны выкрутасы с формированием еще одного батника. Попробуйте:

Код:

@Echo Off
cls
	Set "Seek= Device "

	Set "header_line="
	For /f "tokens=2,* delims= " %%a In ('REG Query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^|Find /I " Device"') Do Set "header_line=%%b"
	For /f "delims=," %%a In ("%header_line%") Do Set "header_line=%%a"

	Start " " Wscript "C:\Windows\SysWOW64\Printing_Admin_Scripts\ru-RU\prnqctl.vbs" -e -p "%header_line%"
Exit /B