Создайте файл сценария с именем InstallFonts.vbs. В моем случае я поместил его в C: \ PortableApps \ InstallFonts \ IN. В приведенном ниже коде замените «SomeUser» именем пользователя, которому вы хотите установить шрифты. Затем создайте соответствующую папку «Install Fonts» на своем рабочем столе.
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.
Я не могу пообещать вам, насколько это безопасно, если бы они могли использовать его для запуска повышенного кода. Однако это решение.