Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Шрифт

Ответить
Настройки темы
VBS/WSH/JS - Шрифт

Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать

Нашел скрипт регистрации шрифта в Windows

PHP код: Выделить весь код

'========================================================================== 

'Этот скрипт демонстрирует возможность установки шрифта в систему. 

'Синтаксис вызова: "InstallFont.vbs" /Font:"<Path>" 

'Скрипт устанавливает шрифт, используя переданный ему в параметре файл шрифта. 

'========================================================================== 

Option Explicit 

Dim FSO 

Set FSO = CreateObject("Scripting.FileSystemObject") 

'Если переданный в параметр этого скрипта файл шрифта существует, начинается установка шрифта 

If FSO.FileExists(WScript.Arguments.Named.Item("Font")) Then 

    Dim WSH 

    Set WSH = CreateObject("WScript.Shell") 

    'Копирование файла шрифта в системную папку шрифтов 

    FSO.CopyFile WScript.Arguments.Named.Item("Font"), WSH.SpecialFolders("Fonts") & "\" 

    'Установка шрифта вызовом API 

    WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & FSO.GetBaseName(WScript.Arguments.Named.Item("Font")) 

End If 

Так как я в VBS полный ноль, помогите сделать чтобы устанавливался шрифт который лежит в папке Font/Helvetica_Light-Normal.ttf

Отправлено: 12:24, 06-08-2014

 

Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
': 2>nul& @cls& echo off& ::Сохранить этот код целиком в пакетном файле (расширение ".bat" или ".cmd"), поместить его в папку с устанавливаемым шрифтом и запустить от имени администратора!
': 2>nul& set "font=Helvetica_Light-Normal.ttf"
': 2>nul& cscript "%~fs0" //nologo //e:vbscript /Font:"%~dps0%font%"& exit
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Если переданный в параметр этого скрипта файл шрифта существует, начинается установка шрифта
If FSO.FileExists(WScript.Arguments.Named.Item("Font")) Then
    Dim WSH
    Set WSH = CreateObject("WScript.Shell")
    'Копирование файла шрифта в системную папку шрифтов
    FSO.CopyFile WScript.Arguments.Named.Item("Font"), WSH.SpecialFolders("Fonts") & "\"
    'Установка шрифта вызовом API
    WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & chr(34) & FSO.GetBaseName(WScript.Arguments.Named.Item("Font")) & chr(34)
End If
???

Отправлено: 19:24, 06-08-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать

Можете объяснить подробнее?

Отправлено: 17:48, 07-08-2014 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Шрифт

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Шрифт zond50m31 Microsoft Windows 2000/XP 10 26-10-2012 12:57
Debian/Ubuntu - Шрифт консоли gambini Общий по Linux 0 16-09-2009 14:49
Шрифт MiXalich Хочу все знать 7 08-11-2008 14:56
IE и шрифт Guest Microsoft Windows NT/2000/2003 13 31-07-2003 03:00


« Предыдущая тема | Следующая тема »


 
Переход