"ThatsIT.net.au" <me[ at ]thatsit> wrote in message news:0DAC4668-1022-47FC-BD00-D928BD84BC1F[ at ]microsoft.com...
[Quoted Text] Yes
set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut.lnk") oShellLink.TargetPath = "c:\yourfile" oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+F" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description = "My Shortcut" oShellLink.WorkingDirectory = strDesktop oShellLink.Save set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url") oUrlLink.TargetPath = "http://www.microsoft.com" oUrlLink.Save
|