windows创建桌面快捷方式的VBA脚本

Dim wShell, oShortcut
    'Dim strDesktop$ ' 为了与VBS兼容，
    Dim strDesktop    ' 这里改写一下，测试通过。。。
    Set wShell = CreateObject("Wscript.shell")
    strDesktop = wShell.SpecialFolders("Desktop")
    strDesktop = strDesktop + "\搜物网-货源必备.lnk"
    Set oShortcut = wShell.CreateShortcut(strDesktop)
    oShortcut.TargetPath = "http://www.sowu.com/"                 '快捷方式对象的目标路径
    oShortcut.Description = "MM图" & vbCrLf & ""    '快捷方式对象的说明
    'oShortcut.Hotkey = "CTRL+ALT+A"                                         '快捷方式对象的热键
    'oShortcut.WorkingDirectory = "d:\program Files\uusee\skins\UUPlayer"    '快捷方式对象的工作目录
    oShortcut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,211"        '快捷方式对象的图标位置
    oShortcut.Save