interroger un service et créer un log

Version imprimable

22/01/2013, 14h20
nassu

interroger un service et créer un log

Bonjour les gars,
j'aurai besoin d'aide pour un pti projet , le truc cest que je suis nul en vbs.

je cherche a faire un VBS qui interroge un service et sauvegarde son état dans un log, toute en m'étant la date.

vous avez un exemple ??

Merciiiiiiiiiiiiii
22/01/2013, 14h44
hackoofr

:salut:
Récupérer l'état d'un service
22/01/2013, 14h55
nassu

Merci hackoofr,
et comment sauvegarder le tout dans un log ??
22/01/2013, 15h01
hackoofr

Citation:

Envoyé par nassu

Merci hackoofr,
et comment sauvegarder le tout dans un log ??

et c'est quoi comme code que vous avez opté :koi:
22/01/2013, 15h07
nassu

Citation:

Envoyé par hackoofr

et c'est quoi comme code que vous avez opté :koi:

Code ???
22/01/2013, 15h20
hackoofr

Citation:

Envoyé par nassu

Code ???

C'est quoi comme service que vous allez interroger ?
Comment écrire dans un fichier texte
22/01/2013, 15h30
nassu

ahhh, je dois interroger des services d'une application du nom de qlikview.
22/01/2013, 23h12
hackoofr

Citation:

Envoyé par nassu

ahhh, je dois interroger des services d'une application du nom de qlikview.

:salut: vous voulez dire Qlikview comme dans ce lien
http://www.limtree.com/component/con...ution-par-lots
23/01/2013, 10h25
nassu

Citation:

Envoyé par hackoofr

:salut: vous voulez dire Qlikview comme dans ce lien
http://www.limtree.com/component/con...ution-par-lots

YEP :)

j'ai un pti problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
strComputer = "."
 
   Const ForWriting = 2
   Dim fso, f   
 
 
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'QlikViewDistributionService'",,48)
     For Each objItem in colItems
 
   Set fso = CreateObject("Scripting.FileSystemObject")
      Set f = fso.OpenTextFile("ecr.txt", ForWriting,true)
 
	 f.write("Service : " & objItem.Name & " : " & objItem.State &" "& now())
 
     Next
 
    Set colItems = Nothing
    Set objWMIService = Nothing

ce code marche parfaitement, il me donne exactement ce que je veux, sauf que : a chaque exécution il efface l'ancien contenu, ya pas moyen pour qu'il mettre a jour uniquement ?????

Merci

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
strComputer = "."
Const ForAppending = 8
Dim fso, f   
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("ecr.txt",ForAppending,true)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'QlikViewDistributionService'",,48)
For Each objItem in colItems
    f.writeLine("Service : " & objItem.Name & " : " & objItem.State &" "& now())
Next
Set colItems = Nothing
Set objWMIService = Nothing