Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set objShell = CreateObject("Shell.Application")
- ''''''''''''''''''''''''
- ''All Users Get These Fonts Below''
- ''''''''''''''''''''''''
- ''MYRIAD FONTS''
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\Myriad")
- Set objFolderItem = objFolder.ParseName("MyriadPro-BlackSemiCn.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-BoldSemiCn.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-LightSemiCn.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-LightSemiCnlt.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-SemiBoldSemiCn.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-SemiCn.otf")
- Set objFolderItem = objFolder.ParseName("MyriadPro-SemiCnlt.otf")
- userRole = msgbox("Are you a marketing user?",vbYesNo + vbQuestion,"swaCAD Font Installation v0.02")
- Select Case userRole
- ''''''''''''''''''''''''
- ''userRole = Marketing''
- ''''''''''''''''''''''''
- Case vbYes
- ''..\Marketing\GT-PRESSURA -- FONTS''
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\GT-Pressura\GT-PRESSURA-FULL-DESKTOP")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Bold.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Bold-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Light.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Light-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Bold.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Bold-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Light.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Light-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Regular.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Regular-Italic.otf")
- objFolderItem.InvokeVerb("Install")
- ''..\GT-Pressura -- Fonts''
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Mono-Regular-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Mono-Regular-Italic-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular-Italic-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Regular-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Regular-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- ''UNIVERS FONTS''
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Old")
- Set objFolderItem = objFolder.ParseName("bemsb___.ttf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("UVCB____.ttf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("UVCL____.ttf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("UVCR____.ttf")
- objFolderItem.InvokeVerb("Install")
- Set objFolderItem = objFolder.ParseName("wingdng3.ttf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Bold")
- Set objFolderItem = objFolder.ParseName("UniversLTStd-Bold.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Bold Oblique")
- Set objFolderItem = objFolder.ParseName("UniversLTStd-BoldObl.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Condensed")
- Set objFolderItem = objFolder.ParseName("UniversLTStd-Cn.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Extra Black")
- Set objFolderItem = objFolder.ParseName("UniversLTStd-Xblack.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Oblique")
- Set objFolderItem = objFolder.ParseName("UniversLTStd-Obl.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\Marketing\UNIVERS\Univers Std Roman")
- Set objFolderItem = objFolder.ParseName("UniversLTStd.otf")
- objFolderItem.InvokeVerb("Install")
- '''''''''''''''''''''''
- ''userRole = Designer''
- '''''''''''''''''''''''
- Case vbNo
- ''GT-PRESSURA FONTS''
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Bold-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Bold.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Mono-Regular-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Mono-Regular-Italic-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Mono-Regular-Italic-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- Set objFolder = objShell.Namespace("\\hou1fs801\it\apps\fonts\GT-Pressra\GT-Pressura-Regular-Desktop")
- Set objFolderItem = objFolder.ParseName("GT-Pressura-Regular-Desktop.otf")
- objFolderItem.InvokeVerb("Install")
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement