Web-linkki kaikkien työpöydälle

eero
Site Admin
Viestit: 329
Liittynyt: 07 Marras 2007 20:17

Web-linkki kaikkien työpöydälle

Viesti Kirjoittaja eero »

'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