[VBS] ajouter une ligne dans un fichier texte

rom1 -  
 Anonyme -
Bonjour,


je voudrais ajouter une ligne dans un fichier texte mais je sais pas comment faire

j'ai commencer a faire le script mais ca ne fonctionne pas

vbs
-----------------------
dim POSTE
dim IP
POSTE = InputBox("Quel est le nom du terminal ?")
IP = InputBox("Quel est l'ip du terminal ?")
Set oShell = CreateObject("WScript.Shell" )
oShell.Run "host.bat %"+IP +POSTE
Wscript.Quit
---------------

contenu du fichier .bat
---------------------------------
echo |more| echo %IP% %domain% >> \\srv1\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv2\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv3\c$\WINNT\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv4\c$\WINNT\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv5\c$\WINDOWS\system32\drivers\etc\hosts
echo |more| echo %IP% %domain% >> \\srv6\c$\WINDOWS\system32\drivers\etc\hosts


il doit avoir la possibilité de lancer tout en vbs mais mes compétences en la matiére s'arrete la

merci de votre aide
A voir également:

1 réponse

Réponse 1 / 1
Anonyme
 
Pour faire cela, on doit ouvrire le fichier texte en mode ForAppending avec openTextFile, de l'objet FileSystemObject. Voilà un code qui devrait fonctionner :


function ajoute(nameoffile, textadd)
set sys=CreateObject("Scripting.FileSystemObject")
if not sys.fileexists(nameoffile) then
ajoute=1 'retourne vrai si le fichier est inexistant
end if
set fr=sys.openTextFile(nameoffile, 8) '8 pour le mode ForAppending
fr.write(textadd)
fr.close
fr=null
ajoute=0 'retourne faux si le fichier existe
end function

ajoute "testtxt.txt", "Bonjour."
-2