|
Dim objShell, strDesktop, objShortCut
Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortCut(strDesktop & "\Home.lnk")
objShortCut.TargetPath = "u:\"
objShortCut.Save
Set objShortCut = objShell.CreateShortCut(strDesktop & "\Shared.lnk")
objShortCut.TargetPath = "v:\"
objShortCut.Save
| 
