basic script template to install fonts, not working yet.

meirtsvi · Jan 4, 2012 · 01c5629 · 01c5629
1 parent c92f23f
commit 01c5629
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/WazeWP7/InstallFonts.vbs b/WazeWP7/InstallFonts.vbs
@@ -0,0 +1,8 @@
+Set objShell = CreateObject("Shell.Application")
+Set objFolder = objShell.Namespace("<Folder or Share Location>")
+Set objFolderItem = objFolder.ParseName("<TTF File Name>")
+objFolderItem.InvokeVerb("Install")
+Set objShell = CreateObject("Shell.Application")
+Set objFolder = objShell.Namespace("<Folder or Share Location>")
+Set objFolderItem = objFolder.ParseName("<TTF File Name>")
+objFolderItem.InvokeVerb("Install")