Set S = WScript.CreateObject("WScript.Shell")
Desktop = S.SpecialFolders("Desktop")
set lnk = S.CreateShortcut(Desktop & "\HttpAnalyzerStdV7.lnk")

currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

lnk.TargetPath = currentpath & "\HttpAnalyzerStdV7.exe"

lnk.IconLocation = currentpath & "\HttpAnalyzerStdV7.exe, 0"
lnk.Description = "HttpAnalyzerStdV7 ÂÌÉ«°æ" 
lnk.WorkingDirectory = Desktop
lnk.Save