Skip to content

Instantly share code, notes, and snippets.

@bjacobowski
Created October 24, 2014 12:55
Show Gist options
  • Save bjacobowski/9000159d9f99d2537d8b to your computer and use it in GitHub Desktop.
Save bjacobowski/9000159d9f99d2537d8b to your computer and use it in GitHub Desktop.
Windows font install
Set objShell= CreateObject("Shell.Application")
Set objFolder= objShell.Namespace("C:\Users\Brian\.fonts\powerline-fonts\DejaVuSansMono")
Set objFolderItem1=objFolder.ParseName("DejaVu Sans Mono Bold for Powerline.ttf")
Set objFolderItem2=objFolder.ParseName("DejaVu Sans Mono Bold Oblique for Powerline.ttf")
Set objFolderItem3=objFolder.ParseName("DejaVu Sans Mono for Powerline.ttf")
Set objFolderItem4=objFolder.ParseName("DejaVu Sans Mono Oblique for Powerline.ttf")
objFolderItem1.InvokeVerb("Install")
objFolderItem2.InvokeVerb("Install")
objFolderItem3.InvokeVerb("Install")
objFolderItem4.InvokeVerb("Install")
Set objFolder=objShell.Namespace("C:\Users\Brian\.fonts\powerline-fonts\SourceCodePro")
Set objFolderItem1=objFolder.ParseName("Sauce Code Powerline Black.otf")
Set objFolderItem2=objFolder.ParseName("Sauce Code Powerline Bold.otf")
Set objFolderItem3=objFolder.ParseName("Sauce Code Powerline ExtraLight.otf")
Set objFolderItem4=objFolder.ParseName("Sauce Code Powerline Light.otf")
Set objFolderItem5=objFolder.ParseName("Sauce Code Powerline Medium.otf")
Set objFolderItem6=objFolder.ParseName("Sauce Code Powerline Regular.otf")
Set objFolderItem7=objFolder.ParseName("Sauce Code Powerline Semibold.otf")
objFolderItem1.InvokeVerb("Install")
objFolderItem2.InvokeVerb("Install")
objFolderItem3.InvokeVerb("Install")
objFolderItem4.InvokeVerb("Install")
objFolderItem5.InvokeVerb("Install")
objFolderItem6.InvokeVerb("Install")
objFolderItem7.InvokeVerb("Install")
Set objFolder=objShell.Namespace("C:\Users\Brian\.fonts\powerline-fonts\SourceCodePro")
Set objFolderItem1=objFolder.ParseName("Sauce Code Powerline Black.otf")
Set objFolderItem2=objFolder.ParseName("Sauce Code Powerline Bold.otf")
Set objFolderItem3=objFolder.ParseName("Sauce Code Powerline ExtraLight.otf")
Set objFolderItem4=objFolder.ParseName("Sauce Code Powerline Light.otf")
Set objFolderItem5=objFolder.ParseName("Sauce Code Powerline Medium.otf")
Set objFolderItem6=objFolder.ParseName("Sauce Code Powerline Regular.otf")
Set objFolderItem7=objFolder.ParseName("Sauce Code Powerline Semibold.otf")
objFolderItem1.InvokeVerb("Install")
objFolderItem2.InvokeVerb("Install")
objFolderItem3.InvokeVerb("Install")
objFolderItem4.InvokeVerb("Install")
objFolderItem5.InvokeVerb("Install")
objFolderItem6.InvokeVerb("Install")
objFolderItem7.InvokeVerb("Install")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment