Crear un acceso directo en el escritorio

Como crear un acceso directo en el escritorio con Windows Scripting Host (WSH)

oWsh = CreateObject("WScript.Shell"-) 
cDesktopDir = oWsh.SpecialFolders("Desktop"-) 
oLnk = oWsh.CreateShortcut(cDesktopDir + "Shortcut a Notepad.lnk"-) 
oLnk.TargetPath = oWsh.ExpandEnvironmentStrings("%windir%"-) + "notepad.exe" 

Alex Feldstein, MCP
MVP Visual FoxPro