Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 



djm0

Member
  • Content count

    1
  • Donations

    $0.00 
  • Joined

  • Last visited

Community Reputation

0 Neutral

About djm0

Profile Information

  • OS
    Windows 7 x64
  1. Pin To Start Menu - Solved

    I have a VBS I created with some help from a post I found: I setup the default user profile to run this vbs once (stored locally on the image) so every profile gets these pinned icons set on first login. '******************************************************************************************** '* * '* PIN TO TASKBAR SCRIPT * '* Dan M - 07/29/2010 * '* * '******************************************************************************************** on error resume next 'Required Objects Set objShell = CreateObject("Shell.Application") Set objFSO = CreateObject("Scripting.FileSystemObject") 'Remove Pins strlPath = "C:\Program Files (x86)\Windows Media Player\wmplayer.exe" strFolder = objFSO.GetParentFolderName(strlPath) strFile = objFSO.GetFileName(strlPath) Set objFolder = objShell.Namespace(strFolder) set objFolderItem = objFolder.ParseName(strFile) Set colVerbs = objFolderItem.Verbs For each itemverb in objFolderItem.verbs If Replace(itemverb.name, "&", "") = "Unpin from Taskbar" Then itemverb.DoIt Next 'Remove Pins strlPath = "C:\Windows\explorer.exe" strFolder = objFSO.GetParentFolderName(strlPath) strFile = objFSO.GetFileName(strlPath) Set objFolder = objShell.Namespace(strFolder) set objFolderItem = objFolder.ParseName(strFile) Set colVerbs = objFolderItem.Verbs For each itemverb in objFolderItem.verbs If Replace(itemverb.name, "&", "") = "Unpin from Taskbar" Then itemverb.DoIt Next 'Pin Office Objects strlPath = "C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE" strFolder = objFSO.GetParentFolderName(strlPath) strFile = objFSO.GetFileName(strlPath) Set objFolder = objShell.Namespace(strFolder) set objFolderItem = objFolder.ParseName(strFile) Set colVerbs = objFolderItem.Verbs For each itemverb in objFolderItem.verbs If Replace(itemverb.name, "&", "") = "Pin to Taskbar" Then itemverb.DoIt Next strlPath = "C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE" strFolder = objFSO.GetParentFolderName(strlPath) strFile = objFSO.GetFileName(strlPath) Set objFolder = objShell.Namespace(strFolder) set objFolderItem = objFolder.ParseName(strFile) Set colVerbs = objFolderItem.Verbs For each itemverb in objFolderItem.verbs If Replace(itemverb.name, "&", "") = "Pin to Taskbar" Then itemverb.DoIt Next strlPath = "C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE" strFolder = objFSO.GetParentFolderName(strlPath) strFile = objFSO.GetFileName(strlPath) Set objFolder = objShell.Namespace(strFolder) set objFolderItem = objFolder.ParseName(strFile) Set colVerbs = objFolderItem.Verbs For each itemverb in objFolderItem.verbs If Replace(itemverb.name, "&", "") = "Pin to Taskbar" Then itemverb.DoIt Next
×