Створіть файл сценарію під назвою 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, він повинен підказати вам тоді.
Я не можу вам пообіцяти, наскільки це безпечно, якби вони могли використовувати його для запуску підвищеного коду. Однак це рішення.