Vbscript για εγκατάσταση γραμματοσειρών.

[prjim166]

Αγαπητοί Φίλοι.

 

Θα ήθελα την βοήθεια όσων ασχολούνται με Vbscript.

 

Έχω ένα batch file που κάνει copy κάποια αρχεία fonts στο %systemroot% και μετά κάνει register τα fonts καλλώντας ένα .reg αρχείο.

Επίσης το batch file κάνει μια εγραφή σε ενα Log file που υποδηλώνει σε ποιό pc ετρεξε το batch file.

 

Αυτό θέλω να το μετατρέψω σε Vbscipt για να το τρέξω με group policy.

 

Παραθέτω πώς είναι το batch αρχείο για να καταλάβετε.

 

Fontinst.bat

------------

 

@echo off

Rem fontinst.bat

copy \\athfs01\sys\apps\fonts\"open type"\BIAntiquaGR-Bold.otf %systemroot%\fonts

copy \\athfs01\sys\apps\fonts\"open type"\BIAntiquaGR-Italic.otf %systemroot%\fonts

regedit /s font.reg

echo --------------------------------------------------------------------------------------- >> \\athfs01\vol1\common\Findgrp\font.txt

echo OpenType Fonts installed on %computername% by %userdomain%\%username% user,logged at %date% on %time% >> \\athfs01\vol1\common\Findgrp\font.txt

 

 

Font.reg

--------

 

REGEDIT4

 

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

"BIAntiquaGreek-Bold (OpenType)"="BIAntiquaGR-Bold.otf"

 

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

"BIAntiquaGreek-Italic (OpenType)"="BIAntiquaGR-Italic.otf"

 

Όποια βοήθεια είναι ευπρόσδεκτη.

 

Ευχαριστώ.