Discussion :

[Tetzor]

Bonjour,

je voudrais savoir comment faire pour créer un fichier texte à chaque partie de mon script VBS pour qu'il écrive et confirme qu'il execute bien les différentes parties du script que j'ai. Je ne sais pas si c'est clair ^^ en gros, à chaque fois que le script fait une action sur windows, qu'il crée un répertoire, je voudrais que la commande soit inscrite dans un fichier .txt (ou .log) à la suite, et cela me permet de voir si le script s'execute correctement sur certains pc ou pas. (sorte de debogeur). Je précise que je ne connais pratiquement rien en .vbs ^^. Il faudrait aussi qu'a chaque ligne qui est executée soit écrite sans effacer la précedente, enfin j'espère être assez clair ^^

merci à vous pour votre aide et vos réponses !

[SfJ5Rpw8]

en utilisant fso ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
MonLog "Test de mon log"
Sub MonLog (StMess)
  Const ForReading = 1, ForWriting = 2 ,ForAppending = 8
   Dim oFso, f
   Set oFso = CreateObject("Scripting.FileSystemObject")
   Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForAppending,true)
   f.writeLine Now & " : " & stMess
   f.Close
 end sub

tu peu aussi écrire dans le journal d'évènement de windows

Comment écrire dans le journal d'évènements de Windows ?

[Tetzor]

l'écriture dans le journal windows pas pour tout de suite ^^

là ton script permet je crois (si je sais lire vu que je ne maitrise) de juste lire un fichier txt via un vbs non ? vu que tu lui demandes d'ouvrir le fichier via un repertoire, moi je voudrais que pendant mon script, ici par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
' On crée ici les signatures
' A partir d'ici, toute la méthode n'est pas supportée par Microsoft.
'---------------------------------------------------------------------
Dim objShell, RegKey, RegKeyParm
Set objShell = CreateObject("WScript.Shell")

il puisse créer un fichier texte qui me dit qu'il a bien fait les 2 lignes de commandes, et vu que je veux le mettre après exécution de commandes, il faut que le fichier puisse être modifier et mis à jour pendant l'exe du vbs sans supprimer ce qu'il a mit au début (si tu vois ce que je veux dire ^^)

[SfJ5Rpw8]

ben tu modifie ton code par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim objShell, RegKey, RegKeyParm
MonLog "On crée ici les signatures"
Set objShell = CreateObject("WScript.Shell")

[Tetzor]

je dois mal m'exprimer xD

en fait ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
' On crée ici les signatures
' A partir d'ici, toute la méthode n'est pas supportée par Microsoft.
'---------------------------------------------------------------------
Dim objShell, RegKey, RegKeyParm
Set objShell = CreateObject("WScript.Shell")

il ne faut pas y toucher, c'est mon script mais il effectue donc une action, et cette action je veux qu'elle soit écrite dans un fichier .txt/log pour qu'on voit si selon les pc l'action est exécutée ou pas ! (tu saisis ou pas là ? xD ^^)


pour comparer, ou pour que d'autres comprennent ^^ il faut que ca fasse comme un fichier .bat ou quand tu fais les executions de ligne tu peux créer un fichier texte pour voir si les actions ont été exécutées ou pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set Currentpath=%~dp0
call %currentpath%Script_commun.bat
 
 
if not exist "c:\Temp\" md c:\Temp
if not exist "c:\Temp\Logon\" md c:\Temp\Logon
 
if exist "\\root\Logon\%username%_srv.txt" del "\\root\Logon\%username%_srv.txt"
del "c:\Temp\Logon\%username%_srv.txt"

un truc comme ca, mais pour le vbs, car le batch ne passe pas en vbs ;(

[ced600]

ce que t'a fourni bbil est une méthode sub, qui lorsqu'elle est appellé, ajoute à la fin d'un fichier log un message passé en paramètre de cette fonction.

A chaque fois que tu veux savoir si telle ou telle ligne a été faite, tu fais appelle à cette méthode juste après ces lignes.
Un exemple avec la méthode sub de bbil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim toto
toto = "youi !!!!"
msgbox toto
MonLog toto & " a été affiché"

Ce script t'affiche le contenu de la variable toto puis ensuite ecrit à la suite des autres lignes du fichier log que le contenu de la varaible toto a été affiché.