Set Fso = WScript.CreateObject( "Scripting.FileSystemObject" )
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

Set WshShell = WScript.CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\TeraPad.lnk")
oShellLink.TargetPath = strCurPath & "\TeraPad.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = strCurPath & "\TeraPad.exe, 0"
oShellLink.Description = "ショートカット スクリプト."
oShellLink.WorkingDirectory = strCurPath
oShellLink.Save

strDesktop = WshShell.SpecialFolders("SendTo")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\_TeraPad.lnk")
oShellLink.TargetPath = strCurPath & "\TeraPad.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = strCurPath & "\TeraPad.exe, 0"
oShellLink.Description = "ショートカット スクリプト."
oShellLink.WorkingDirectory = strCurPath
oShellLink.Save