如何在VF中用代码创建方捷方式

由于特殊原因，要做一个安装程序，解压后，我要动态生成一个应用程序的快捷方式到桌面上，请问用VF如何实际。。。。感谢
---------------------------------------------------------------

WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("AllUsersDesktop") &&定义所有用户到桌面
*strDesktop=WshShell.SpecialFolders("Desktop") &&定义当前用户到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"/快捷方式.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="要使用图标"
MyShortcut.TargetPath="目标"
MyShortcut.WorkingDirectory="起始目录"

例子：
WshShell=CREATEOBJECT("Wscript.shell")
strDesktop=WshShell.SpecialFolders("allusersdesktop") &&定义到桌面
MyShortcut=WshShell.CreateShortcut(strDesktop+"/aa.lnk")
MyShortcut.WindowStyle=4 &&3-最大化 7-最小化 4-正常
MyShortcut.IconLocation="c:/bmp/t1.ico"
MyShortcut.TargetPath="d:/test/aa.exe"
MyShortcut.WorkingDirectory="d:/test"