+ Post New Thread
Page 2 of 2 FirstFirst 12
Results 16 to 16 of 16
Windows 7 Thread, Windows 7 Start Menu Redirection in Technical; We are having issues with this too here at Oakmead. Im trying to Pin items to the Start Menu and ...
  1. #16
    Dan_ATR's Avatar
    Join Date
    Oct 2011
    Location
    Bournemouth
    Posts
    74
    Thank Post
    5
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    We are having issues with this too here at Oakmead.

    Im trying to Pin items to the Start Menu and also remove the Accessors>.....> Internet Explorer No-Addons. etc..

    some of the things I have found are the following.

    This hides the programs left over.

    Code:
    cd %userprofile%\Start Menu\Programs
    attrib +h Accessories
    attrib +h Startup
    exit
    This was some other stuff I found which adds the .lnk to pinned items on the start menu. Will test this tomorrow..

    The first script removes the left over start menu items... but need to also test. This is supposed to be fired off before the script below this.

    I need to modify it a bit more too...

    Code:
    del /F /Q "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup"
    del /F /Q "C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\*.*"
    Removing the folders will not work. Hiding the files maybe the next best thing. But apparently when logging on the start up script gets denied access to do this :/ If deleting thru windows explorer, works fine. But using vb script, comes up with access denied...
    Was in the middle of modifying this lol.
    Code:
    Set objShell = createobject("Shell.application")
    Set objFolder = objShell.Namespace("C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\*.lnk")
    
    REM INTERNET EXPLORER -------------------------------------------------------------
    set objFolderItem = objFolder.ParseName("*.lnk")
    for Each objVerb in objFolderItem.Verbs
    	'wscript.echo objVerb
    	if objVerb.name = "Pin to Start Men&u" Then objVerb.DoIt
    REM	if objVerb.name = "Pin to Tas&kBar" then objVerb.DoIt
    next
    
    REM Microsoft Outlook -----------------------------------------------------------------------
    REMset objFolderItem = objFolder.ParseName("Microsoft Outlook.lnk")
    REMfor Each objVerb in objFolderItem.Verbs
    REM	'wscript.echo objVerb
    REM	if objVerb.name = "Pin to Start Men&u" Then objVerb.DoIt
    REM	if objVerb.name = "Pin to Tas&kBar" then objVerb.DoIt
    REMnext
    
    REM Windows Media Player -------------------------------------------------------------------------
    REMset objFolderItem = objFolder.ParseName("Windows Media Player.lnk")
    REMfor Each objVerb in objFolderItem.Verbs
    REM	'wscript.echo objVerb
    REM	if objVerb.name = "Pin to Start Men&u" Then objVerb.DoIt
    REM	if objVerb.name = "Pin to Tas&kBar" then objVerb.DoIt
    REMnext
    Last edited by Dan_ATR; 31st July 2012 at 10:41 PM.

SHARE:
+ Post New Thread
Page 2 of 2 FirstFirst 12

Similar Threads

  1. Windows 7 start menu redirection not working
    By dombera in forum Windows 7
    Replies: 2
    Last Post: 30th September 2010, 04:36 PM
  2. Start Menu Redirection
    By Techie101 in forum Windows
    Replies: 19
    Last Post: 22nd October 2009, 10:25 AM
  3. Start Menu Redirection
    By denon101 in forum Windows
    Replies: 11
    Last Post: 6th February 2009, 08:47 AM
  4. Start Menu Redirection
    By gybe78 in forum Network and Classroom Management
    Replies: 0
    Last Post: 26th September 2008, 12:49 PM
  5. Start menu redirection
    By Andi in forum Network and Classroom Management
    Replies: 28
    Last Post: 5th December 2007, 01:48 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •