set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\中学数学网.lnk")
oShellLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
oShellLink.WorkingDirectory = "C:\Program Files\Internet Explorer"
oShellLink.Arguments = "http://www.zxsxw.net"
oShellLink.Save
msgbox "放到桌面成功！以后点桌面的“中学数学网”就可以到我们网站了 ^_^ " & vbCrlf & vbCrlf& "                                                              www.zxsxw.net"