Шрифт

[APiM]

Нашел скрипт регистрации шрифта в Windows

'==========================================================================
'Этот скрипт демонстрирует возможность установки шрифта в систему.
'Синтаксис вызова: "InstallFont.vbs" /Font:"<Path>"
'Скрипт устанавливает шрифт, используя переданный ему в параметре файл шрифта.
'==========================================================================
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Если переданный в параметр этого скрипта файл шрифта существует, начинается установка шрифта
If FSO.FileExists(WScript.Arguments.Named.Item("Font")) Then
Dim WSH
Set WSH = CreateObject("WScript.Shell")
'Копирование файла шрифта в системную папку шрифтов
FSO.CopyFile WScript.Arguments.Named.Item("Font"), WSH.SpecialFolders("Fonts") & "\"
'Установка шрифта вызовом API
WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & FSO.GetBaseName(WScript.Arguments.Named.Item("Font"))
End If

Так как я в VBS полный ноль, помогите сделать чтобы устанавливался шрифт который лежит в папке Font/Helvetica_Light-Normal.ttf

[Georgio]

': 2>nul& @cls& echo off& ::Сохранить этот код целиком в пакетном файле (расширение ".bat" или ".cmd"), поместить его в папку с устанавливаемым шрифтом и запустить от имени администратора!
': 2>nul& set "font=Helvetica_Light-Normal.ttf"
': 2>nul& cscript "%~fs0" //nologo //e:vbscript /Font:"%~dps0%font%"& exit
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Если переданный в параметр этого скрипта файл шрифта существует, начинается установка шрифта
If FSO.FileExists(WScript.Arguments.Named.Item("Font")) Then
Dim WSH
Set WSH = CreateObject("WScript.Shell")
'Копирование файла шрифта в системную папку шрифтов
FSO.CopyFile WScript.Arguments.Named.Item("Font"), WSH.SpecialFolders("Fonts") & "\"
'Установка шрифта вызовом API
WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & chr(34) & FSO.GetBaseName(WScript.Arguments.Named.Item("Font")) & chr(34)
End If

???

[APiM]

Можете объяснить подробнее?