[VBS] ajouter une ligne dans un fichier texte

Question

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

Anonyme · Answer

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."

[VBS] ajouter une ligne dans un fichier texte

1 réponse

Discussions similaires

Newsletters