Вопрос, из cmd установить шрифт именно юзеру можно каким либо способом?
Я про функционал установки шрифта без повышения прав.
Я не уверен что это будет работать под юзером, я делал для всех, на уровне системы. Но скорее всего получится.
Set ofso = CreateObject("Scripting.FileSystemObject")
SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set oSource = objShell.Namespace(SourceFolder)
Set oWinFonts = objShell.Namespace(FONTS)
Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.(ttf|otf)$"
FOR EACH FontFile IN oSource.Items()
IF rxTTF.Test(FontFile.Path) THEN
WScript.Echo("Installing " + FontFile)
oWinFonts.CopyHere FontFile.Path
END IF
NEXT