Jump to content

djm0

Member
  • Posts

    1
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Canada

About djm0

Profile Information

  • OS
    Windows 7 x64

djm0's Achievements

0

Reputation

  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
×
×
  • Create New...