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

[Tetzor]

ok l'insertion marque niquel ! par contre ca :

Code :

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

MonLog "Test de mon log"

est-ce qu'on peut lui dire d'aller prendre les infos ailleurs ? car, il écrit ce que je veux mettre, mais peut il prendre les lignes d'au dessus pour me montrer que les lignes on été exécutées ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' Création du chemin local contenant les signatures
'--------------------------------------------------
 
UserDataPath = ObjShell.ExpandEnvironmentStrings("%appdata%")
FolderLocation = UserDataPath &"\Microsoft\Externe\"
FolderLocation = UserDataPath &"\Microsoft\Externe\"
 
'test du log
'-----------------------
 
MonLog "salut toto"
Sub MonLog (StMess)
Const ForReading = 1, ForWriting = 2 ,ForAppending = 8
 Dim oFso, f
 Set oFso = CreateObject("Scripting.FileSystemObject")
 Set f = oFso.OpenTextFile("c:\Temp\Script.txt", ForAppending,true)
 f.writeLine Now & " : " & stMess
 f.Close
 end sub
 
'fin de test du log
'---------------------

donc là, je veux juste qu'il écrive si l'action précedente (donc création du chemin local et le reste) à été faite, si ce n'a pas été fait, il n'écrira rien et donc nous en lisant le script, on saura ou ca bug

[ced600]

Bah cela peut le faire mais pas tout seul.

Pour écrire en fonction de la réussite de la ligne précédente, il faut tester le résultat de la ligne précédente, si elle est testable.
Et tu n'as plus qu'à lui passer la ligne du code en commentaire comme si c'était du texte, par exemple :

Code :

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

1
2
3
4
5
dim toto
toto = "un texte"
If Not IsEmpty(toto) Then
   MonLog "le contenu ""toto"" : " & toto & " a bien était copié dans la variable toto"
End If

Une remarque, il n'est pas nécessaire de copier partout la fonction sub.
Tu l'as met une seule fois dans le script, en dehors de ton sub principael, et ensuite tu l'appelle à l'aide de son nom.

Je n'ai pas l'empression que tu as des notion de programmation, je me trompe ?
As tu déjà développé un script ou autre chose ?

[Tetzor]

non, je comprends juste la logique, je connais le basic (ti-82 ^^)

en fait, je suis en entreprise pour le moment, et on travaille sur ce script (je suis un peu laissé à l'aveuglette pour que je fasse mes armes) et donc je prépare un BTS IG option admin reséaux ^^ les cours commencent le 15 sept, donc là, si on me parle de boucle, if, then ou autre chose je vais comprendre, mais vu que je n'y connais rien je ne sais pas encore quoi mettre/faire ^^

je test et j'edit merci en tout cas

[Tetzor]

eheh, tout marche, merci à vous pour vos réponses rapide ^^