今天早上从一个打包的绿色软件中提取出来的一段代码——用VBS创建快捷方式：

Dim WshShell,Shortcut
Dim path,fso
path="D:\Windows7Master\CleanMaster.exe"
Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shortcut=WshShell.CreateShortCut("C:\Users\hqw2010\Desktop\系统清理大师.lnk")
Shortcut.TargetPath=path
Shortcut.WorkingDirectory="D:\Windows7Master\"
Shortcut.Save