MyShortcut。

TargetPath　　=　　WSHShell。

ExpandEnvironmentStrings（〃％windir％notepad。

exe〃）；

MyShortcut。

WorkingDirectory　　=　　WSHShell。

ExpandEnvironmentStrings（〃％windir％〃）；

MyShortcut。

WindowStyle　　=　　1；

MyShortcut。

Description　　=　　〃Shortcut　　Script　　脚本〃；

MyShortcut。

Hotkey　　=　　〃CTRL＋Alt＋F〃；

MyShortcut。

IconLocation　　=　　WSHShell。

ExpandEnvironmentStrings（〃％windir％notepad。

exe；　　0〃）；

MyShortcut。

Save（）；

WScript。

Echo（〃成功建立桌面上　　Notepad　　的快捷方式〃）；

93；Q：在收藏夹中加入　　Url　　的快捷方式

A：

var　　WshShell　　=　　new　　ActiveXObject（〃WScript。

Shell〃）；

strFav　　=　　WshShell。

ExpandEnvironmentStrings（〃％windir％Favorites〃）；

var　　MyFav　　=　　WshShell。

CreateShortcut（strFav　　＋　　〃我的十万个为什么。

url〃）；

MyFav。

TargetPath　　=　　〃100000。

home。

sohu。

〃；

MyFav。