djm0

Member
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutral

About djm0

Profile Information

  • OS
    Windows 7 x64
  1. 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