Доработка VBS скрипта по массовой установке шрифтов средствами GPO

@s_bor · Регистрация: 26.04.2020

Студворк — интернет-сервис помощи студентам

Добрый день!

Прошу помочь доработать данный скрипт по установке шрифтов.
У меня есть рабочий скрипт по установке шрифтов, ниже его код.
Ему нужно лишь указать папку со шрифтами.
Распространить могу через logon/logoff групповой политикой в домене.
Но проблема в том, что нужно срочно задействовать массовую установку шрифта на большое кол-во компов (Windows 10).
При использовании данного способа и при, например, повторном logon/logoff, на компьютере снова начинает отрабатывать данный скрипт из политики и не устанавливает (так как он уже есть), а выдает окна об этом на экран.
Возможно ли в данном скрипте доработать проверку наличия конкретного шрифта среди установленных в системе и если он уже есть, то не производить установку?
Сам не могу справиться - не силен в скриптах.
Прошу помочь.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set objShellApp = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const FONTS = &H14&
Set objFolder = objShellApp.Namespace(FONTS)
strNewFontsFolder = "Путь к папке со шрифтами"
If objFSO.FolderExists(strNewFontsFolder) = True Then
    For Each objFile In objFSO.GetFolder(strNewFontsFolder).Files
        If Right(LCase(objFile.Name), 4) = ".ttf" Then
            If objFSO.FileExists(objFolder.Self.Path & "" & objFile.Name) = False Then objFolder.CopyHere objFile.Path
        End If
    Next
Else
    MsgBox "Unable to find " & strWindowsFonts
End If

FlasherX · 27.04.2020, 23:43

s_bor, через PsExec, например. Либо через разовый запуск из планировщика от системы.
Не верю, что первый скрипт работает без повышения. Там тот же метод.

@s_bor · 28.04.2020, 20:48 **[ТС]**

FlasherX, проверил разовым запуском из планировщика системы из-под доменного админа, ничего не получилось.
1) создал задачу в планировщике на запуск Вашего скрипта. В поле запуск от имени вписал доменного админа. Выбрал "Выполнять вне зависимости от регистрации пользователя" и "Выполнить с наивысшими правами".
2) Проверил - шрифта в системе нет.
3) Запустил задание планировщика - ничего не произошло.
Первый скрипт (из моего поста) просто кликаю по нему без повышения прав и в 7 и в 10 и в доменной и не доменной, везде работает.
Еще раз спрошу у Вас - можете ли Вы подсказать, как добавить в мой первый скрипт алгоритм анализа наличия шрифта в системе, который есть в Вашем скрипте.
Вероятно тогда поучиться решить мой вопрос.

FlasherX · 28.04.2020, 21:17

Сообщение от s_bor

Первый скрипт (из моего поста) просто кликаю по нему без повышения прав и в 7 и в 10 и в доменной и не доменной, везде работает.

Не верю. Давайте простой тест. Убедитесь, что при включённом UAC на неадминской учётке процесс, из под которого будет выполняться данный код, не был запущен с повышением:

Visual Basic
1
CreateObject("Shell.Application").NameSpace(20).CopyHere "C:\Font\GOST_A.TTF"

Появится окно с вводом пароля?

@s_bor · 28.04.2020, 22:02 **[ТС]**

FlasherX, Конечно он может и избыточен, зато он запускается на любой системе и без повышения прав. Передо мной стоит задача просто развернуть один шрифт на много компьютеров. В принципе этот скрипт позволяет решить эту проблему (при все своей избыточности), но он не может выполнить проверку наличия шрифта уже в системе. И естественно при способе реализации через GPO будут ошибки при повторной отработке его. Будут окна о том, что такой шрифт уже есть в системе, и избавиться от них, как я понял нельзя.
Поэтому я предположил, что возможно доработать существующий под мои задачи и все.
Или взять другой скрипт, который решит мою проблему.
Вы предложили работающий скрипт, он вроде бы решает проблему, но (как оказалось) есть проблема или с повышением прав или еще с чем-то, и он не работает в условиях применения его в домене.
Как Вы считаете, возможно ли все таки добиться его работы в моих условиях или не стоит тратить уже время и пытаться решить проблему другими способами?

Добавлено через 3 минуты
FlasherX, Включил UAC на своей недоменной машине, запустил Ваш код и процесс установки пошел без всяких запросов

Добавлено через 5 минут
FlasherX, Проверил эту строчку на доменном, нет запроса пароля - идет установка. Правда UAC не включен, а после включения похоже требуется перезагрузка.

FlasherX · 28.04.2020, 22:20

s_bor, повторять по сути то же самое не требуется. Вы концептуально неверно рассматриваете проблему. Вы пишите, что дело в выборе скрипта, а я вам объясняю, что дело в конкретном применяемом методе и получателе. Этот метод называется CopyHere. Получателем является виртуальная папка шрифтов, отмеченная индексом 20 (в коде первого поста его шестнадцатиричный аналог — &H14). Больше тут знать нечего. Не может в одном скрипте этот метод отрабатывать без повышения, а в другом — нет. Это нонсенс. Вы явно что-то упускаете при тестах (тип учётки, родительский процесс). Я могу сказать совершенно точно, что при запуске из под обычного пользователя будет появляться окно с повышением прав. А там, где требуется повышение, нужны специальные решения.

@s_bor · 29.04.2020, 12:45 **[ТС]**

FlasherX, Да вы правы. Я упустил кое-какие моменты.
Проверил сейчас более детально, у простого пользователя ошибка в работе скрипта, явно не хватает прав и в моем скрипте и в Вашем во всяком случае при применении на Logon пользователя.
Видимо нужно применять какие-то обходные пути, либо PsExec, либо как-то по другому.
До этого тестировал применение моего скрипта и он отработал, но похоже на 7 и скрипт работал на Logon компьютера, проблем не возникало. С 10 все сложнее.
Буду решать в этом направлении.
Благодарю за Вашу помощь.

Добавлено через 1 час 35 минут
FlasherX, "через PsExec, например. Либо через разовый запуск из планировщика от системы."
С использованием PsExec тоже все не однозначно, пробовал сейчас запускать. По планировщику, пробовал. К сожалению до 10 все отлично работает, можно политиками залить задание на компы с однократным запуском данного скрипта, но с 10 MS это дело пофиксила. Было исправление (вроде 14 года), которое запрещает сохранять пароли в планировщике помимо прочего, соответственно задание на 10 прилетает политикой, но запуск не происходит опять же ввиду отсутствия прав у локального пользователя. Возможно использовать только пользователя Netlogon\System , но при этом задание так же не работает к сожалению. На той же 7 все работает.
Можете мне подсказать как добавить использование PsExec в моем случае?
Нашел такой вариант, но не могу заставить его работать со скриптом:

Bash
1
psexec.exe \\computer -u user -p pass c:\windows\system32\cscript.exe script.vbs

FlasherX · 29.04.2020, 15:27

Сообщение от s_bor

но похоже на 7 и скрипт работал на Logon компьютера

Что похоже на 7? Что значит "на Logon компьютера"?

Сообщение от s_bor

Либо через разовый запуск из планировщика от системы.
но при этом задание так же не работает к сожалению

После запуска такого батника с повышением и верным указанием пути к vbs шрифт в системной папке не появляется?

Windows Batch file
1
2
3
>nul schtasks /create /ru "" /f /sc once /st 00:00:00 /tn InstallFont /tr "wscript.exe C:\Path\2\InstallFont.vbs"
>nul schtasks /run /tn InstallFont
>nul schtasks /delete /tn InstallFont

Сообщение от s_bor

которое запрещает сохранять пароли в планировщике помимо прочего

Так я и не предлагал PsExec пихать в планировщик. Смысл? Решения проблем с этой утилитой описаны здесь.

Сообщение от s_bor

Нашел такой вариант

По идее так:

Windows Batch file
1
psexec \\compname -s -i -d wscript.exe \\Share\script.vbs

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	27.04.2020, 23:43
	s_bor, через PsExec, например. Либо через разовый запуск из планировщика от системы. Не верю, что первый скрипт работает без повышения. Там тот же метод. 0

@s_bor 1 / 1 / 0 Регистрация: 26.04.2020 Сообщений: 36
	28.04.2020, 20:48 [ТС]
	FlasherX, проверил разовым запуском из планировщика системы из-под доменного админа, ничего не получилось. 1) создал задачу в планировщике на запуск Вашего скрипта. В поле запуск от имени вписал доменного админа. Выбрал "Выполнять вне зависимости от регистрации пользователя" и "Выполнить с наивысшими правами". 2) Проверил - шрифта в системе нет. 3) Запустил задание планировщика - ничего не произошло. Первый скрипт (из моего поста) просто кликаю по нему без повышения прав и в 7 и в 10 и в доменной и не доменной, везде работает. Еще раз спрошу у Вас - можете ли Вы подсказать, как добавить в мой первый скрипт алгоритм анализа наличия шрифта в системе, который есть в Вашем скрипте. Вероятно тогда поучиться решить мой вопрос. 0

@s_bor 1 / 1 / 0 Регистрация: 26.04.2020 Сообщений: 36
	28.04.2020, 22:02 [ТС]
	FlasherX, Конечно он может и избыточен, зато он запускается на любой системе и без повышения прав. Передо мной стоит задача просто развернуть один шрифт на много компьютеров. В принципе этот скрипт позволяет решить эту проблему (при все своей избыточности), но он не может выполнить проверку наличия шрифта уже в системе. И естественно при способе реализации через GPO будут ошибки при повторной отработке его. Будут окна о том, что такой шрифт уже есть в системе, и избавиться от них, как я понял нельзя. Поэтому я предположил, что возможно доработать существующий под мои задачи и все. Или взять другой скрипт, который решит мою проблему. Вы предложили работающий скрипт, он вроде бы решает проблему, но (как оказалось) есть проблема или с повышением прав или еще с чем-то, и он не работает в условиях применения его в домене. Как Вы считаете, возможно ли все таки добиться его работы в моих условиях или не стоит тратить уже время и пытаться решить проблему другими способами? Добавлено через 3 минуты FlasherX, Включил UAC на своей недоменной машине, запустил Ваш код и процесс установки пошел без всяких запросов Добавлено через 5 минут FlasherX, Проверил эту строчку на доменном, нет запроса пароля - идет установка. Правда UAC не включен, а после включения похоже требуется перезагрузка. 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	28.04.2020, 22:20
	s_bor, повторять по сути то же самое не требуется. Вы концептуально неверно рассматриваете проблему. Вы пишите, что дело в выборе скрипта, а я вам объясняю, что дело в конкретном применяемом методе и получателе. Этот метод называется CopyHere. Получателем является виртуальная папка шрифтов, отмеченная индексом 20 (в коде первого поста его шестнадцатиричный аналог — &H14). Больше тут знать нечего. Не может в одном скрипте этот метод отрабатывать без повышения, а в другом — нет. Это нонсенс. Вы явно что-то упускаете при тестах (тип учётки, родительский процесс). Я могу сказать совершенно точно, что при запуске из под обычного пользователя будет появляться окно с повышением прав. А там, где требуется повышение, нужны специальные решения. 0