Removing Programs folder and Quick Launch bar

[Scott Elgram]

Greetings,
I am in need of a way, either through script or group policy, to remove
the programs folder from the start menu and quick launch from the task bar.
I am using windows 2000 in a windows 2000 server domain.
Any help would be greatly appreciated.

thanks

 

[MS Newsgroups]

To remove Programs from Start Menue

User Configuration->Administrative Templates->Start Menue & Task Bar->
Remove all programs list from start menu

Not sure if you can remove quick launce by GP, but a script would definetly
do it for you

Save with a .vbs extension and apply to your GPO in the User configuration
as Logon script

'**SCRIPT START
Dim oFSO
Dim oShell
Dim sAppData

Set oFSO=CreateObject("scripting.filesystemobject")
Set oShell=CreateObject("wscript.shell")
sAppData=oShell.ExpandEnvironmentStrings("%AppData%")

oFSO.DeleteFolder sAppData & "\Microsoft\Internet Explorer\Quick
Launch",true
'**SCRIPT END

Good luck

Niclas Lindblom

 

[Scott Elgram]

Thanks much for the script. I haven't had time to give it a try yet
though, I'll have to get back to you on that. However, the "Remove all
programs list from start menu" only removes the program from the "all users"
profile. I need to block everything from both the users profile and the all
users profile. Essentially all the user has in their start menu is "Log
Off". In the past I have achieved this by setting the up the computer for a
user under this GP and deleting the programs folder and quick launch folder
but due to an increase of hires and people moving this is no longer
feasible.

--
-Scott Elgram

To remove Programs from Start Menue

User Configuration->Administrative Templates->Start Menue & Task Bar->
Remove all programs list from start menu

Not sure if you can remove quick launce by GP, but a script would definetly
do it for you

Save with a .vbs extension and apply to your GPO in the User configuration
as Logon script

'**SCRIPT START
Dim oFSO
Dim oShell
Dim sAppData

Set oFSO=CreateObject("scripting.filesystemobject")
Set oShell=CreateObject("wscript.shell")
sAppData=oShell.ExpandEnvironmentStrings("%AppData%")

oFSO.DeleteFolder sAppData & "\Microsoft\Internet Explorer\Quick
Launch",true
'**SCRIPT END

Good luck

Niclas Lindblom

 

[MS Newsgroups]

OK,

Perhaps we could just extend the script a bit to take care of the deletion
of the programs folder as well. I have not tested this myself, but have a go
and see if it works

'**SCRIPT START
Dim oFSO
Dim oShell
Dim sAppData
Dim sProfile

Set oFSO=CreateObject("scripting.filesystemobject")
Set oShell=CreateObject("wscript.shell")
sAppData=oShell.ExpandEnvironmentStrings("%AppData%")
sProfile=oShell.ExpandEnvironmentStrings("%USERPROFILE%")

If oFSO.FolderExists(sAppData & "\Microsoft\Internet Explorer\Quick Launch")
=True Then
oFSO.DeleteFolder sAppData & "\Microsoft\Internet Explorer\Quick
Launch",True
End If

If oFSO.FolderExists(sProfile & "\Start Menu\Programs")=True Then
oFSO.DeleteFolder sProfile & "\Start Menu\Programs",True
End if

'**SCRIPT END

Regards

Niclas Lindblom

Thanks much for the script. I haven't had time to give it a try yet
though, I'll have to get back to you on that. However, the "Remove all
programs list from start menu" only removes the program from the "all users"
profile. I need to block everything from both the users profile and the all
users profile. Essentially all the user has in their start menu is "Log
Off". In the past I have achieved this by setting the up the computer for a
user under this GP and deleting the programs folder and quick launch folder
but due to an increase of hires and people moving this is no longer
feasible.

 

[Scott Elgram]

Niclas Lindblom,
Thanks for the updated script......It seems to have done it's job with
the programs folder but the quick launch still remains for accounts that are
new the a machine. I am assuming this is because the quick launch folder is
created after scripts are run. Also, Norton doesn't like the script either.
I may have to find some other way of accomplishing this task. I am looking
into an MSI file that will delete folders, I'm not sure if it will work
though.

Thanks a lot for your help....if you have any other ideas on how I could do
this it would be appreciated.

thanks again

 

[MS Newsgroups]

Hmm,

Not sure about how to get around the issue with new profiles. To get around
the problem with NAV, you could perhaps compile this into a .Net assembly if
you are familiar with how to do that, and create a .MSI to install the
application, then execute through the registry run key. If you believe this
would bring you forward, I can write you some .net code to do the job, Just
let me know

Regards

Niclas