set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set URL = WshShell.CreateShortcut(strDesktop & "\Web URL.url") URL.TargetPath = "http://www.yahoo.co.jp/" URL.Save