VBScript: sortie vers fichier log

Signaler
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008
-
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008
-
Bonjour,


J'aurais voulu savoir comment il est possible de rediriger la sortie
d'un script vers un fichier log dans lequel on consignerait chaque
ligne exécutée (ou non)...

Merci d'avance

3 réponses

Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008

Bon bin ça n'a l'air de passionner personne, dommage....
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Réponse un peu tardive.....

jean-marc

Option Explicit
Dim StrComputer, Resultat, objWMIService, Process, objProcess, colProcessList
StrComputer = "."
  
   For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process" )
   If Process.Name = "vbsedit.exe" Then
      'MsgBox "Le process " & Process.Name & " est actif.....numéro ID: " & Process.ProcessID
      Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\" _
      & strComputer & "\root\cimv2")
      Set colProcessList = objWMIService.ExecQuery _
     ("Select * from Win32_Process Where Name = 'vbsedit.exe'")
     For Each objProcess in colProcessList
        'objProcess.Terminate()
        MsgBox Process.Name & " id:" & Process.ProcessID &vbcrlf
        Resultat = Resultat & Process.Name & " id:" & Process.ProcessID &vbcrlf
     Next
  End  if
  Next
Set colProcessList = Nothing
Set objWMIService  = Nothing 


MsgBox Resultat


Const ForReading 1, ForWriting 2, ForAppending=8
Dim fso, fichier, path, FicEntree, ObjTextStream
Set fso = CreateObject("Scripting.FileSystemObject")
path = "d:"
FicEntree = "test.log"


If (fso.FileExists(path & FicEntree)) Then
   Set ObjTextStream = fso.OpenTextFile(Path & FicEntree, 8)
   Else
   Set fichier = fso.CreateTextFile(path & FicEntree, True)
   Set ObjTextStream = fso.OpenTextFile(Path & FicEntree, 2)
   End If


ObjTextStream.WriteLine Date & " test d'écriture en append"
ObjTextStream.WriteLine Resultat
 
ObjTextStream.Close
Set fichier = Nothing
Set fso = Nothing
Set ObjTextStream = Nothing
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008

Salut,


Désolé pour l'intéruption momentannée, petites vacances....


Je regarde ça de prêt dès que possible, merci!!