VBScript: sortie vers fichier log
Hitch16
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008
-
8 août 2006 à 11:49
Hitch16 Messages postés 78 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 6 octobre 2008 - 5 sept. 2006 à 15:27
Hitch16 Messages postés 78 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 6 octobre 2008 - 5 sept. 2006 à 15:27
3 réponses
Hitch16
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008
11 août 2006 à 12:50
11 août 2006 à 12:50
Bon bin ça n'a l'air de passionner personne, dommage....
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
27 août 2006 à 09:26
27 août 2006 à 09: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
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
Hitch16
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008
5 sept. 2006 à 15:27
5 sept. 2006 à 15:27
Salut,
Désolé pour l'intéruption momentannée, petites vacances....
Je regarde ça de prêt dès que possible, merci!!
Désolé pour l'intéruption momentannée, petites vacances....
Je regarde ça de prêt dès que possible, merci!!
