'vbs
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\千千静听.lnk")
oShellLink.IconLocation = "mspaint.exe, 0"
oShellLink.Save