' VBScript.
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL1 = Shell.CreateShortcut(DesktopPath & "\My Home.LNK")
URL1.TargetPath = "H:\"
URL1.Save

