Шрифт - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Шрифт (http://forum.oszone.net/showthread.php?t=286076)

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

PHP код:


		
			
'========================================================================== 

'Этот скрипт демонстрирует возможность установки шрифта в систему. 

'Синтаксис вызова: "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

Код:

': 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

???

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