+ Post New Thread
Page 1 of 2 12 LastLast
Results 1 to 15 of 16
Windows 7 Thread, Windows 7 pinned start menu in Technical; Hi, I am trying to work out how to pin items to the start menu in W7, I have created ...
  1. #1

    Join Date
    Nov 2005
    Location
    North
    Posts
    1,828
    Thank Post
    24
    Thanked 91 Times in 71 Posts
    Rep Power
    50

    Windows 7 pinned start menu

    Hi,

    I am trying to work out how to pin items to the start menu in W7, I have created a default profile nicely which has the pinned items I want and the links are in the default profile folders. For some reason they are not showing up in the student or staff logons.. so it looks a bit pants as its blank.

    I did read somewhere that they must exist in the redirected start menu folders. (I redirect to the C: drive)

    Oh and does anyone know what the least permissions need to be in the redirected folder? I have found that staff can delete items from the menu folder.. not a biggy as it syncs on logon but an annoyance.

    Almost ready to deploy 50 W7 machines.. so sad to be leaving XP.

    S

  2. #2

    Join Date
    Jun 2010
    Location
    England
    Posts
    735
    Thank Post
    89
    Thanked 52 Times in 46 Posts
    Rep Power
    35
    Here's the script I use as a login script to pin start-menu Item. Adjust as need.
    As for permissions on redirected folder. Set the NTFS permissions and read access. That's how mine are set and stops anyone from deleting shortcuts.

    Code:
    Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell
    
    
    Set objShell = CreateObject("Shell.Application")
    
    Set objFolder = objShell.Namespace("C:\Program Files\Internet Explorer")
    Set objFolderItem = objFolder.ParseName("iexplore.exe")
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
    Next
    
    Set objShell = CreateObject("Shell.Application")
    
    Set objFolder = objShell.Namespace("C:\Program Files\Microsoft Office\Office14")
    Set objFolderItem = objFolder.ParseName("winword.exe")
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
    Next
    
    
    
    WScript.Quit

  3. 3 Thanks to ihaveaproblem:

    CallumCatterall (15th August 2012), lionsl2005 (17th August 2012), stevenlong1985 (2nd October 2012)

  4. #3
    CallumCatterall's Avatar
    Join Date
    Oct 2011
    Location
    United Kingdom
    Posts
    45
    Thank Post
    10
    Thanked 11 Times in 2 Posts
    Rep Power
    7
    @ihaveaproblem Just started using your script for our users, works great!
    Its there a way to pin a URL to the Start Menu using it?

    Thanks

  5. #4

    Join Date
    Nov 2005
    Location
    North
    Posts
    1,828
    Thank Post
    24
    Thanked 91 Times in 71 Posts
    Rep Power
    50
    Thanks for this, the only thing I have to sort out now is that the default size when I open explorer shows the navigation winodws 90% across the screen and I can't work out how to change it... it seems to default back to the silly size when I log off and back on...

  6. #5

    Join Date
    Jun 2010
    Location
    England
    Posts
    735
    Thank Post
    89
    Thanked 52 Times in 46 Posts
    Rep Power
    35
    Quote Originally Posted by CallumCatterall View Post
    @ihaveaproblem Just started using your script for our users, works great!
    Its there a way to pin a URL to the Start Menu using it?

    Thanks
    Hi Callum.
    To be honest I don't know. I got given this script by another edugeek user @Steve21 gave it to me if I remember correctly, so maybe he can help.

  7. #6

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,694
    Thank Post
    335
    Thanked 515 Times in 483 Posts
    Rep Power
    179
    Quote Originally Posted by ihaveaproblem View Post
    Hi Callum.
    To be honest I don't know. I got given this script by another edugeek user @Steve21 gave it to me if I remember correctly, so maybe he can help.
    Create new "shortcut" to:
    Code:
    "C:\Program Files (x86)\Internet Explorer\iexplore.exe" www.bbc.co.uk
    (Obvioulsy changing (x86) if 32bit client, and website to your URL. THen run script as such:

    Code:
    Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell
    
    
    Set objShell = CreateObject("Shell.Application")
    
    Set objFolder = objShell.Namespace("C:\Users\Steve\Desktop")
    Set objFolderItem = objFolder.ParseName("MyShortCut.lnk")
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
    Next
    
    WScript.Quit
    Again obviously editting names etc

    Steve
    Last edited by Steve21; 16th August 2012 at 08:18 PM.

  8. Thanks to Steve21 from:

    sonofsanta (21st August 2012)

  9. #7
    CallumCatterall's Avatar
    Join Date
    Oct 2011
    Location
    United Kingdom
    Posts
    45
    Thank Post
    10
    Thanked 11 Times in 2 Posts
    Rep Power
    7
    Thanks for that, now it does pin them as an Administrator but when I log on as staff (C Drive Restricted) it doesn't pin anything. I have tried placing the shortcut in a network share but still nothing.

    Do you know a way around?

    Thanks

  10. #8
    CallumCatterall's Avatar
    Join Date
    Oct 2011
    Location
    United Kingdom
    Posts
    45
    Thank Post
    10
    Thanked 11 Times in 2 Posts
    Rep Power
    7
    Quote Originally Posted by Steve21 View Post
    Create new "shortcut" to:
    Code:
    "C:\Program Files (x86)\Internet Explorer\iexplore.exe" www.bbc.co.uk
    (Obvioulsy changing (x86) if 32bit client, and website to your URL. THen run script as such:

    Code:
    Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell
    
    
    Set objShell = CreateObject("Shell.Application")
    
    Set objFolder = objShell.Namespace("C:\Users\Steve\Desktop")
    Set objFolderItem = objFolder.ParseName("MyShortCut.lnk")
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
    Next
    
    WScript.Quit
    Again obviously editting names etc

    Steve
    Just checked a few things, works perfect now. Thanks!

  11. #9

    Join Date
    Nov 2005
    Location
    North
    Posts
    1,828
    Thank Post
    24
    Thanked 91 Times in 71 Posts
    Rep Power
    50
    Can this delete them also? I have managed to get a internet explorer (2) on the profile now.

  12. #10

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,694
    Thank Post
    335
    Thanked 515 Times in 483 Posts
    Rep Power
    179
    Quote Originally Posted by Simcfc73 View Post
    Can this delete them also? I have managed to get a internet explorer (2) on the profile now.
    Change this line to the following:

    Code:
    If Replace(objVerb.name, "&", "") = "Unpin from Start Menu" Then objVerb.DoIt

  13. #11

    sonofsanta's Avatar
    Join Date
    Dec 2009
    Location
    Lincolnshire, UK
    Posts
    4,951
    Thank Post
    862
    Thanked 1,443 Times in 991 Posts
    Blog Entries
    47
    Rep Power
    616
    Quote Originally Posted by Steve21 View Post
    Create new "shortcut" to:
    Code:
    "C:\Program Files (x86)\Internet Explorer\iexplore.exe" www.bbc.co.uk
    (Obvioulsy changing (x86) if 32bit client, and website to your URL. THen run script as such:

    Again obviously editting names etc

    Steve
    Hadn't got that working with shortcuts before - I'd been trying to slip the URL directly into the script, rather than pinning a shortcut with the URL already appended. Cheers!

  14. #12

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,694
    Thank Post
    335
    Thanked 515 Times in 483 Posts
    Rep Power
    179
    Quote Originally Posted by sonofsanta View Post
    Hadn't got that working with shortcuts before - I'd been trying to slip the URL directly into the script, rather than pinning a shortcut with the URL already appended. Cheers!
    Aye can't do it that way I'm afraid, as it becomes a .URL and loses the pin option hehe

    Steve

  15. #13

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,694
    Thank Post
    335
    Thanked 515 Times in 483 Posts
    Rep Power
    179
    Was asked in a PM about pinning other items like RDP files, so thought I'd post this just in case anyones looking for it in future:

    For any files that open using two part lines, do the same as URL file but to the filename of the actual exe.

    E.g.

    (RDP Files) Create shortcut to:
    Code:
    C:\windows\system32\mstsc.exe "c:\myrdpfile.rdp"
    etc

    Steve

  16. #14

    Join Date
    Nov 2005
    Location
    North
    Posts
    1,828
    Thank Post
    24
    Thanked 91 Times in 71 Posts
    Rep Power
    50
    Is there a way to suppress the pop up error? I am getting one when a client doesn't have word 2010 on their machine and its wanting to add it.

  17. #15
    jamin100's Avatar
    Join Date
    Feb 2008
    Location
    Birmingham
    Posts
    1,038
    Thank Post
    141
    Thanked 98 Times in 78 Posts
    Rep Power
    33
    Quote Originally Posted by Simcfc73 View Post
    Is there a way to suppress the pop up error? I am getting one when a client doesn't have word 2010 on their machine and its wanting to add it.
    Yeh im getting that with Smart Notebook...

SHARE:
+ Post New Thread
Page 1 of 2 12 LastLast

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. Deploying Pinned Start Menu / Taskbar items
    By Gatt in forum Windows 7
    Replies: 6
    Last Post: 12th August 2010, 02:34 PM
  3. Replies: 0
    Last Post: 31st March 2010, 03:57 PM
  4. Add Windows 7 Start Menu Animation
    By DaveP in forum Windows 7
    Replies: 4
    Last Post: 11th January 2010, 10:05 AM
  5. Windows XP Start Menu
    By garethedmondson in forum Windows
    Replies: 8
    Last Post: 8th July 2009, 07:43 AM

Thread Information

Users Browsing this Thread

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

Posting Permissions

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