Unpinning Items from Task bar

All replies

• 

  

  0

  Sign in to vote

  For scripting related questions, please post here : http://social.technet.microsoft.com/Forums/scriptcenter/en-us/home?forum=ITCG

  ---

  Arnav Sharma | http://arnavsharma.net/ Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.

  Tuesday, September 23, 2014 10:56 PM
• 

  

  0

  Sign in to vote

  Hi,

  I'm a bit confused with your question, as if you unpin these app from Task Bar, next time you boot into system, these app would also keep unpined from Task Bar.

  Please provide more details if you encounter any problem need to using script unpin these app from Task Bar.

  ---

  Roger Lu
  TechNet Community Support

  

  Wednesday, September 24, 2014 2:32 AM
• 

  

  0

  Sign in to vote

  Delete the shortcuts from "C:\Users\Default\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" ?

  Wednesday, September 24, 2014 8:35 PM
• 

  

  0

  Sign in to vote

  Are you trying to deploy multiple machines and want to unpin on bulk? If this is just an individual machine then you shouldn't have to keep unpinning each time you log in. Unless there's a script already running that resets things back to default state after each session? In which case you'll probably need to be looking at that rather than bolting on an additional script.
  

  Wednesday, September 24, 2014 9:16 PM
• 

  

  0

  Sign in to vote

  I found it,  there was a script on here that did what I wanted:

  'Credit goes to Eric G. for writing this script.
  'More info at http://frontslash.wordpress.com/2010/03/01/removing-internet-explorer-and-windows-media-player-from-taskbar/#comment-178
  
  Option Explicit
  
  Const CSIDL_COMMON_PROGRAMS = &H17
  Const CSIDL_PROGRAMS = &H2
  Const CSIDL_STARTMENU = &HB
  
  Dim objShell, objFSO
  Dim objCurrentUserStartFolder
  Dim strCurrentUserStartFolderPath
  Dim objAllUsersProgramsFolder
  Dim strAllUsersProgramsPath
  Dim objFolder
  Dim objFolderItem
  Dim colVerbs
  Dim objVerb
  
  Set objShell = CreateObject("Shell.Application")
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objCurrentUserStartFolder = objShell.NameSpace (CSIDL_STARTMENU)
  strCurrentUserStartFolderPath = objCurrentUserStartFolder.Self.Path
  Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
  strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
  
  'Internet Explorer
  If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Internet Explorer.lnk") Then
      Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs")
      Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
      Set colVerbs = objFolderItem.Verbs
      For Each objVerb in colVerbs
          If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
      Next
  End If
  'Windows Explorer
  If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Accessories\Windows Explorer.lnk") Then
      Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs\Accessories")
      Set objFolderItem = objFolder.ParseName("Windows Explorer.lnk")
      Set colVerbs = objFolderItem.Verbs
      For Each objVerb in colVerbs
          If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
      Next
  End If
  'Windows Media Player
  If objFSO.FileExists(strAllUsersProgramsPath & "\Windows Media Player.lnk") Then
      Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
      Set objFolderItem = objFolder.ParseName("Windows Media Player.lnk")
      Set colVerbs = objFolderItem.Verbs
      For Each objVerb in colVerbs
          If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
      Next
  End If
  

  
  

  • Marked as answer by Roger Lu Friday, September 26, 2014 2:12 AM

  Thursday, September 25, 2014 1:38 PM