Communication entre plusieurs scripts

Réponse acceptée !
BUG DE WBScript :

En fait, la solution du registre ne fonctionne pas.

Pour une raison que j'ignore, wscript garde en mémoire les paramètres du 1er script ce qui empêche le second de fonctionner correctement : Tout doit être fait en double.

=> Le script écrit une clé dans la base des registres, puis le relance via runas
=> Le second script NE DETECTE PAS la clé, puis la réécrit, puis se relance via runas
=> Le troisième script DETECTE la clé, il NE L'EFFACE PAS puis continu
=> La prochaine fois, la clé sera encore là et runas ne se lancera pas

SEULE SOLUTION :

On écrit un fichier temporaire qui relancera le script via runas.exe
Ce fichier sera un nouveau fichier, donc les paramètres seront réinitialisés, et le fichier sera relancé correctement.

Code :
_____________________________________________________



  file_full_name = objet_shell.currentdirectory & "\runas launcher.vbs"

  If objet_systeme_de_fichier.FileExists(file_full_name)=TRUE Then                               ' Si le fichier existe déjà
    objet_systeme_de_fichier.DeleteFile file_full_name, TRUE                                     ' On le détruit

  Else                                                                                           ' S'il n'existe pas

    If version_NT>=5.1 And Nom_du_compte_administrateur<>"" And Mot_de_passe_du_compte_administrateur<>"" Then
'   Si >= XP (runas n'existe qu'à partir d'XP), Si un nom de compte et un mot de passe ont été écrit  (Pas de mot de passe vide)
'   If >= XP (runas exists only since XP)     , If a name of account and a password have been written (No empty password)

      Tableau=Split(Nom_du_compte_administrateur, " ")                                           ' Pas d'espace dans le nom du compte    No space in the name of account
      If UBound(Tableau)>=1 Then
        msgbox "Les espaces dans le nom du compte ne sont pas supportés." & vbCRLF _
        & "Ce script va donc s'arrêter.",vbcritical,"Espaces non supportés"
        Wscript.quit 0
      End If

      Set objet_fichier = objet_systeme_de_fichier.CreateTextFile(file_full_name,TRUE)           ' On le créé dans le même dossier
      Set objet_fichier = objet_systeme_de_fichier.GetFile(file_full_name)                       ' et on le met en fichier caché
      If objet_fichier.attributes xor 2 Then
        objet_fichier.attributes = objet_fichier.attributes + 2
      End If

      Set objet_fichier = objet_systeme_de_fichier.OpenTextFile(file_full_name,8,TRUE)           ' Ensuite on écrit dedans la séquence de lancement de runas.exe (On peut utiliser "" pour forcer à écrire ")
      objet_fichier.writeline "Set objet_shell = WScript.CreateObject(""WScript.Shell"")"
      objet_fichier.writeline "program_full_name = objet_shell.ExpandEnvironmentStrings(""%WinDir%"") & ""\system32\runas.exe"""
      objet_fichier.writeline "program_arguments = ""/noprofile /env /user:"" & objet_shell.ExpandEnvironmentStrings(""%USERDOMAIN%"") & ""\" _
      & Nom_du_compte_administrateur & """ & chr(32) & chr(34) & objet_shell.ExpandEnvironmentStrings(""%WinDir%"") & ""\system32\wscript.exe"" & "" \"" & chr(34) & """ _
      & WScript.ScriptFullName & """ & ""\"" & chr(34) & chr(34)"
      objet_fichier.writeline "objet_shell.Run program_full_name & chr(32) & program_arguments, 2, FALSE"                                                                                            ' On lance Runas.exe, en taille réduite au premier plan, sans attendre sa fermeture pour continuer
      objet_fichier.writeline "objet_shell.AppActivate program_full_name"                                                                                                                            ' On active la fenêtre comme si on cliquait dessus pour taper le mot de passe
      objet_fichier.writeline "WScript.Sleep 150"                                                                                                                                                    ' On attend 150 millisecondes
      objet_fichier.writeline "objet_shell.SendKeys" & chr(32) & chr(34) & Mot_de_passe_du_compte_administrateur & chr(34) & chr(32) & "& ""~"""                                                     ' On entre le mot de passe suivit du caractère de validation
      objet_fichier.close

      objet_shell.Run objet_shell.ExpandEnvironmentStrings("%WinDir%") _
      & "\system32\wscript.exe" & chr(32) & chr(34) & file_full_name & chr(34), 2, FALSE         ' Puis on lance le fichier temporaire
      wscript.quit 0                                                                             ' Et on quitte

    End If
  End If
_________________________________________________

[Applaudissements]