|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
Set WshShell = CreateObject("WScript.Shell")
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
LinkPath = WshShell.CurrentDirectory + "\Midipix mintty shell.lnk"
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
If WScript.Arguments.Count = 0 Then
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
MinttyPath = "C:\cygwin64\bin\mintty.exe"
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
Else
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
MinttyPath = WScript.Arguments(0)
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
End If
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
If not (fso.FileExists(LinkPath)) Then
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
Set oMyShortCut = WshShell.CreateShortcut(LinkPath)
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortCut.WindowStyle = 4
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortcut.IconLocation = MinttyPath
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortCut.TargetPath = MinttyPath
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortCut.Arguments = "-i /Cygwin-Terminal.ico -e sh midipix.sh"
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortCut.WorkingDirectory = WshShell.CurrentDirectory
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
oMyShortCut.Save
|
|
Lucio Andrés Illanes Albornoz (arab, vxp) |
92d6c5 |
End If
|