create a shortcut to a share folder and put the shortcut in my doc

sHi,

I need to create a shortcut called Personal Folder to a share folder named
MY File in the file server A, and put the shortcut to MY Document.

I am running a windows 2000 based Active Directory and the client machine
are all windows 2000.

Thanks,

trading_jacks
Mon Oct 16 23:17:38 CDT 2006

I will post some code when I get to work tomorrow, I have a script to
create a shortcut. But have you considered using group policy to
accomplish this? You can setup the entire my docs folder to be
redirected to a network location.

qjlee
Mon Oct 16 23:26:02 CDT 2006

Thank you very much.

Yes, I have a group policy to redirect my doc. to a network location, but I
need to map other folders to my doc so that they will appear that everything
is in the same place.

Thanks again.

"trading_jacks" wrote:

> I will post some code when I get to work tomorrow, I have a script to
> create a shortcut. But have you considered using group policy to
> accomplish this? You can setup the entire my docs folder to be
> redirected to a network location.
>
>

trading_jacks
Tue Oct 17 09:15:13 CDT 2006

I found this online a while back. I commented out some of the stuff
that we did not need. I am not exactly sure how the icon location
would work if you wanted to use an icon in a dll, but this works good
if you have an .ico file.


set WshShell = WScript.CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\MSDS
Documents.lnk")

oShellLink.TargetPath = "\\svr\redirect.html"

oShellLink.WindowStyle = 1

'----oShellLink.Hotkey = "CTRL+SHIFT+F"

oShellLink.IconLocation = "\\svr\share\Icons\msds.ico, 0"

oShellLink.Description = "MSDS Documents"

'----oShellLink.WorkingDirectory = strDesktop

oShellLink.Save