如何在桌面上建立快捷方式

 将下面一段代码放入html文件中，即可在桌面上建立一快捷方式：

< script language = " VBScript " >
Set Shell  =  CreateObject( " WScript.Shell " )
DesktopPath  =  Shell.SpecialFolders( " Desktop " )
Set link  =  Shell.CreateShortcut(DesktopPath  +   " \ET短信平台.lnk " )
link.Description  =   " ET短信平台 "
link.TargetPath  =   " http://www.et.com.ro "
link.Save()
</ script >