J'ai trouvé une grande partie du code:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject" )
'Ouverture et lecture du fichier à modifier
Set f = fso.OpenTextFile("C:\Documents and Settings\moi\application data\microsoft\signatures\SignatureGroupe.htm", ForReading)
st = f.readAll
f.Close
'ecriture du fichier modifier... aprés avoir remplacer "ancien" par "nouveau"..
Set f = fso.OpenTextFile("C:\Documents and Settings\moi\application data\microsoft\signatures\SignatureGroupe.htm", ForWriting)
f.Write replace(st,"#881100","#99CC00" )
f.close
Cela fonctionne très bien, dernier point manquant, je ne peux l'exécuter qu'en spécifiant un chemin local comme c:\... mais pas avec les variables Windows comme %userprofile%
Je suis en train de chercher commment les utiliser, apparemment c'est avec WSH.