VBA script for Windows to create desktop shortcuts

Dim Wshell, Oshortcut
' Dim strdesktop$ ' in order to be compatible with VBS,
Dim strdesktop ' Here rewrite, test pass ...
Set Wshell = CreateObject ("Wscript.Shell")
Strdesktop = Wshell.specialfolders ("Desktop")
Strdesktop = strdesktop + "\ Search Net-sourcing required. lnk"
Set oshortcut = wshell.createshortcut (strdesktop)
Oshortcut.targetpath = Destination path for "http://www.sowu.com/" shortcut object
Oshortcut.description = Description of "mm graph" & vbCrLf & "" ' Shortcut object
' Oshortcut.hotkey = Hotkey for ' ctrl+alt+a ' shortcut object
' oshortcut.workingdirectory = ' D:\Program Files\uusee\skins\uuplayer ' The working directory of the shortcut object
Oshortcut.iconlocation = icon position of "%systemroot%\system32\shell32.dll,211" shortcut object
Oshortcut.save