Windows 7 pinned start menu

[Simcfc73]

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

[ihaveaproblem]

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.

 

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 

[CallumCatterall]

@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

[Simcfc73]

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...

[ihaveaproblem]

@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.

[Steve21]

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:

"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:

 

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

Edited August 16, 2012 by Steve21

[CallumCatterall]

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

[CallumCatterall]

Create new "shortcut" to:

"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:

 

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!

[Simcfc73]

Can this delete them also? I have managed to get a internet explorer (2) on the profile now.

[Steve21]

Can this delete them also? I have managed to get a internet explorer (2) on the profile now.

 

Change this line to the following:

 

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

[sonofsanta]

Create new "shortcut" to:

"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!

[Steve21]

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

[Steve21]

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:

C:\windows\system32\mstsc.exe "c:\myrdpfile.rdp"

 

etc

 

Steve

[Simcfc73]

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.

[jamin100]

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...

[tony_baduk]

We just can't get our items to pin using the below VBscript - any help please?

 

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 objFolder = objShell.Namespace("C:\Program Files\Google\Chrome\Application")

Set objFolderItem = objFolder.ParseName("chrome.exe")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

 

 

WScript.Quit