Discussion :

[nassu]

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

[hackoofr]

Récupérer l'état d'un service

[nassu]

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

[hackoofr]

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

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

[nassu]

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

Code ???

[hackoofr]

Code ???

C'est quoi comme service que vous allez interroger ?
Comment écrire dans un fichier texte

[nassu]

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

[hackoofr]

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

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

[nassu]

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

YEP

[nassu]

j'ai un pti problème

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

[hackoofr]

Code :

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

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