[Excel] Créer LienHypertexte vers exécutable

function creerRaccourci( putty, nomFichierLien, cible )
{
    var oShellLink = WshShell.CreateShortcut( nomFichierLien );
    
    oShellLink.TargetPath = putty;
    oShellLink.Arguments = "-load " + cible;
    oShellLink.WindowStyle = 3;
    oShellLink.IconLocation = putty + ", 0";
    oShellLink.Save();
}

var fso = new ActiveXObject("Scripting.FileSystemObject");
fic = fso.GetFile( WScript.ScriptFullName );

// Suppression des raccourcis actuels
dest = fic.ParentFolder.Path + "\\X";

if( ! fso.FolderExists( dest ) )
{
    fso.CreateFolder( dest );
}
f = fso.GetFolder( dest );

fc = new Enumerator( f.files );
for (; !fc.atEnd(); fc.moveNext())
{
    x = fso.GetFile( fc.item() );
    if( x.Path != WScript.ScriptFullName && x.Type == 'Raccourci'  )
    {
        fso.DeleteFile( fc.item() );
    }
}

// Lecture des sessions putty
HKCU = 0x80000001;
sRegPath = "Software\\SimonTatham\\PuTTY\\Sessions";

oLoc = new ActiveXObject("WbemScripting.SWbemLocator");
oSvc = oLoc.ConnectServer(null, "root\\default");
oReg = oSvc.Get("StdRegProv");
oMethod = oReg.Methods_.Item("EnumKey");
oInParam = oMethod.InParameters.SpawnInstance_();
oInParam.hDefKey = HKCU;
oInParam.sSubKeyName = sRegPath;
oOutParam = oReg.ExecMethod_(oMethod.Name, oInParam);

aNames = oOutParam.sNames.toArray();
//-------------------------------------------------------------

var WshShell = WScript.CreateObject("WScript.Shell");

s = "";
n = 0;

// Création des raccourcis
for (i = 0; i < aNames.length; i++)
{
    aParts = aNames[i].split( "@" );
    creerRaccourci( fic.ParentFolder.Path + "\\putty.exe", dest + "\\" + aParts[1] + " - " + aParts[0] + ".lnk", aNames[i] );
    s = s + aParts[1] + " - " + aParts[0] + "\n";
    n++;
}
WScript.Echo( s + "\n" + n + " Raccourcis créés dans : " + dest );