Solved

group policies for mapped network drive shortcuts on desktop?

Posted on 2006-06-14
7
391 Views
Last Modified: 2010-04-18
Hi,

I would like to setup a group policy (I am assuming this is the easiest way) that will force a mapped network drive shortcut on every users desktop.

Currently, when a user logs onto the network, a logon batch file runs that connects the user to the two mapped network drives. Now, I would like to have the two mapped network drives forced to the users desktop as shortcuts. I would like be able to name the shortcuts, H drive and Z drive. The user should not be able to remove or move the shortcuts from the desktop. Finally, and not as important, I would like be able to position the shortcuts on the top-middle of the screen/desktop.

Can anyone give me a step-by-step breakdown on how I can set this up?

Thanks!
0
Comment
Question by:afoedit
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
7 Comments
 

Author Comment

by:afoedit
ID: 16905232
Anyone?
0
 
LVL 48

Expert Comment

by:Jay_Jay70
ID: 16907676
how are you with scripting......this is going to be a scripting task
0
 

Author Comment

by:afoedit
ID: 16911041
i understand scripting. i have a background in programming. but, i am not familiar with windows scripting. could you get point me in the right direction?

thanks!
0
 
LVL 48

Expert Comment

by:Jay_Jay70
ID: 16916763
i have 0 background in anything except networking :) create a script to map your drives using the net use command.

then you will have to maybe post in the VB topic area and get some help on how to create a shortcut with vbs, i apologise for such a vague answer, just didnt want to leave your Q hanging open :)
0
 
LVL 26

Accepted Solution

by:
Pber earned 500 total points
ID: 16985970
This script will create your shortcuts:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
'DesktopPath = "C:\Documents and Settings\All Users\Desktop"
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\H Drive.lnk")
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("\\server\H-share")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("\\server\H-share")
MyShortcut.WindowStyle = 1
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings ("c:\windows\system32\shell32.dll, 9")
MyShortcut.Save

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Z Drive.lnk")
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("\\server\Z-share")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("\\server\Z-share")
MyShortcut.WindowStyle = 1
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings ("c:\windows\system32\shell32.dll, 9")
MyShortcut.Save

I'll have to see about the icon locations
0

Featured Post

Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A quick step-by-step overview of installing and configuring Carbonite Server Backup.
This article provides a convenient collection of links to Microsoft provided Security Patches for operating systems that have reached their End of Life support cycle. Included operating systems covered by this article are Windows XP,  Windows Server…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

635 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question