VINKKEJÄ JA OHJEITA

'Create web shortcut
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Phone List.lnk")
oUrlLink.TargetPath = "http://intraneturl"
oUrlLink.IconLocation = "\\Server\Share\Shortcut.ico"
oUrlLink.Save