Создайте файл сценария с именем InstallFonts.vbs. В моем случае я поместил его в C:\PortableApps\InstallFonts\ IN. В приведенном ниже коде замените "SomeUser" именем пользователя, которому вы хотите установить шрифты. Затем сделайте соответствующую папку "Установить шрифты" на своем рабочем столе.
Set ofso = CreateObject("Scripting.FileSystemObject")
'SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
SourceFolder = "C:\Users\SomeUser\Desktop\Install Fonts"
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set oSource = objShell.Namespace(SourceFolder)
Set oWinFonts = objShell.Namespace(FONTS)
' Lame VBscript needs 4 f*ing lines instead of "if (/\.ttf$/i) " ...
Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.ttf$"
FOR EACH FontFile IN oSource.Items()
IF rxTTF.Test(FontFile.Path) THEN
oWinFonts.CopyHere FontFile.Path
END IF
NEXT
Теперь создайте ярлык на рабочем столе, который выглядит следующим образом ...
C:\Windows\System32\runas.exe /user:Administrator /savecred "wscript C:\PortableApps\InstallFonts\InstallFonts.vbs"
Обратите внимание, что я использовал "Администратор". Я включил его и назначил пароль. Я полагаю, вы могли бы использовать любую учетную запись администратора для этого.
При первом запуске ярлыка вам будет предложено ввести пароль администратора .. каждый раз после того, как он будет работать.
Если он не запрашивает пароль, запустите ярлык из командной строки cmd, после чего он должен запросить вас.
Я не могу пообещать вам, насколько это безопасно, если бы они могли использовать его для запуска повышенного кода. Однако это решение.