Windows 7 Start Menu Redirection

[Dan_ATR]

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.

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

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.

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