[VBS WMI] HotFix Windows + Excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
je fai un script chargé de me récupéré pas mal d'info sur des machines distantes (processus et services en cours d'exec...) et j'ai un problème en ce qui concerne la vérification des correctifs présents sur les machines. En effet, lorsque j'ai le résultat mise en page dans Excel de ma requete WMI j'ai quelques chose de tres étrange (voir pj). On dirai qu'il me test plusieur fois le meme correctif. Ce que j'aimerais, c'est que le script test le contenu dans la variable "correctif" en le comparant au résultat de la requete wmi afin de voir si il est bien présent sur la machine, et qu'en fonction du résultat il insere un "OK" ou un "NOK" dans mon excel ds des cellules spécifique de mon excel...
Je ne voi pa mon erreur pouvez vous l'aidez svp?
Bonne journée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
line = objTextFile.Readline
insertion = Split(line,",",-1, 1)
StrNomdemachine = insertion(0)
strComputer = insertion(1)
proco = insertion(2)
service = insertion(3)
correctif = insertion(5)
insertionprocessus = Split(proco,";",-1, 1)
insertionservice = Split(service,";",-1, 1)
insertioncorrectif = Split(correctif,";",-1, 1)
 
' + les autres déclarations pour la création de mon excel et l'ouverture du CSV
' contenant mes machines, processus, services et correctif a tester!
 
For Each correctif in insertioncorrectif
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
    ("Select * from Win32_QuickFixEngineering")
 
        For Each objQuickFix in colQuickFixes
 
        if correctif = objQuickFix.HotFixID then
                feuille.Range("F" & cptcorrect) = correctif
                feuille.Range("G" & cptcorrect) = "OK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 4
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 4
                else
                feuille.Range("F" & cptcorrect) = correctif
                feuille.Range("G" & cptcorrect) = "NOK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 3
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 3
 
                end if
        cptcorrect = cptcorrect + 1
        Next
next

bonjour

tu peux essayer cette adaptation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim Verif As Boolean
 
For Each correctif In insertioncorrectif
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
    ("Select * from Win32_QuickFixEngineering")
 
        Verif = False
 
        For Each objQuickFix In colQuickFixes
            If correctif = objQuickFix.HotFixID Then Verif = True
        Next
 
        cptcorrect = cptcorrect + 1
 
        If Verif = True Then
                feuille.Range("F" & cptcorrect) = correctif
                feuille.Range("G" & cptcorrect) = "OK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 4
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 4
                Else
                feuille.Range("F" & cptcorrect) = correctif
                feuille.Range("G" & cptcorrect) = "NOK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 3
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 3
        End If
 
Next

puisque tu vérifies des correctifs à partir de leur nom, tu pourrais aussi ecrire directement

Code:

1
2
3
   Set colQuickFixes = _
    objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering WHERE HotFixID='" _
    & Correctif & "'")

pour ne pas avoir à boucler sur tous les patchs existants.
il te resterait juste à gérer les correctifs non trouvés. par exemple :

Code:

If Not colQuickFixes Is Nothing Then

je n'ai pas testé mais ça pourrait donner quelque chose comm ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For Each Correctif In insertioncorrectif
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = _
    objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering WHERE HotFixID='" _
    & Correctif & "'")
 
            If Not colQuickFixes Is Nothing Then
                feuille.Range("F" & cptcorrect) = Correctif
                feuille.Range("G" & cptcorrect) = "OK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 4
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 4
                Else
                feuille.Range("F" & cptcorrect) = Correctif
                feuille.Range("G" & cptcorrect) = "NOK"
                feuille.Range("F" & cptcorrect).Interior.ColorIndex = 3
                feuille.Range("G" & cptcorrect).Interior.ColorIndex = 3
             End If
 
Next

bonne soiree
michel

29/07/2006, 19h42
nonotoubo

Résolution et remerciements

Merci beaucoup, l'utilisation de la variable booleenne resoud parfaitement le probleme !
Pour l'autre solution j'ai essayé mais je me retrouvais avec une nouvelle erreur d'affichage donc, je me contenterai de la premiere solution.
Encore merci et bonne fin de journée !

J.christophe