Создание объекта на рабочем столе, создание в общей папке локальной папки юзера

Делаем небольшой скрипт...

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

' Путь до рабочего стола через спец переменную
strDesktop = WshShell.SpecialFolders("Desktop")

' Создание ярлыка:
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\MY_MEGA_SHARE.lnk")

' Целевой путь к файлу для которого создаётся ярлык:
oShellLink.TargetPath = "\\192.168.0.5\qwerty"

' Стиль открытия окна:
' 1 - Обычный размер окна; 3 - Развёрнутое на весь экран; 7 - Свёрнутое в значoк
oShellLink.WindowStyle = 1

' Клавиши быстрого вызова:
' oShellLink.Hotkey = "CTRL+SHIFT+F"

' Путь к файлу который содержит иконку для ярлыка:
oShellLink.IconLocation = "\\192.168.0.5\qwerty\graph.ico, 0"

' Комментарий:
oShellLink.Description = "Сетевая программа"

' Рабочая папка:
oShellLink.WorkingDirectory = "\\192.168.0.5\qwerty"

' Аргументы командной строки:
' Аргументы имеют смысл если файл к которому обращается ярлык - исполняемый, т.е. имеет одно из следующих расширений: .exe; .bat; .com; .cmd; .vbs и т.д.
' oShellLink.Arguments = "C:\My_File.txt"
' Сохранение ярлыка на жестком диске:
oShellLink.Save