Crie um arquivo de script chamado InstallFonts.vbs, no meu caso, coloquei-o em C: \ PortableApps \ InstallFonts \ IN, no código abaixo, substitua "SomeUser" pelo nome de usuário da pessoa que você deseja instalar fontes. Em seguida, crie a pasta "instalar fontes" apropriada na área de trabalho.
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
Agora crie um atalho na área de trabalho da seguinte maneira ...
C:\Windows\System32\runas.exe /user:Administrator /savecred "wscript C:\PortableApps\InstallFonts\InstallFonts.vbs"
Observe que eu usei "Administrador". Eu o habilitei e atribuí uma senha. Suponho que você possa usar qualquer conta de administrador para isso. Na primeira vez em que você executar o atalho, será solicitada a senha do administrador. Sempre que ela funcionar.
Se não solicitar uma senha, execute o atalho a partir de um prompt do cmd.
Não posso prometer o quão seguro isso é, como se eles pudessem usá-lo para executar código elevado. No entanto, é uma solução.