create a shrotcut of a network path to your desktop

Set WSHShell = CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
strDoc = WshShell.SpecialFolders("Desktop")
strShortcut = strDoc & "\\shortcut.lnk"


If Not FSO.FileExists(strShortcut) Then
Set Link = WshShell.CreateShortcut(strShortcut)
Link.TargetPath = "\\server\folder"
Link.Description = "Shared Drive"
Link.Save
End If