Comparaison de chaine VB
Résolu
dafo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
dafo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
dafo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous ,
pas doué pour deux sous en dev , je dois desinstaller MBSA de tout mon les clients de mon parc...
J'ai trouvé le script ci dessous chez Microsoft qui , après modification avec le nom de l'appli ( 'Microsoft Baseline Security Analyzer 2.0.1') ici effectue cette desinstallation
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product " _
& "Where Name = 'Microsoft Baseline Security Analyzer 2.0.1'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next
le souci que je rencontre est que plusieurs versions de MBSA cohexistent dans le parc et que ce script ne fonctionne qu' avec la version 2.0.1.
que modifier pour que ce script fonctionne avec toutes les versions ?
en fait je voudrais qu 'il ne se base que surle debut de la chaine ''Microsoft Baseline Security Analyzer'
J'ai essayé de remplacé le numero de versions par un * , fais des tests avec LIKE mais je tourne en rond sans aucun succés ...
merci d'avance si vous avez une idée pour contourner le pb ou orienter ma reflexion .
pas doué pour deux sous en dev , je dois desinstaller MBSA de tout mon les clients de mon parc...
J'ai trouvé le script ci dessous chez Microsoft qui , après modification avec le nom de l'appli ( 'Microsoft Baseline Security Analyzer 2.0.1') ici effectue cette desinstallation
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product " _
& "Where Name = 'Microsoft Baseline Security Analyzer 2.0.1'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next
le souci que je rencontre est que plusieurs versions de MBSA cohexistent dans le parc et que ce script ne fonctionne qu' avec la version 2.0.1.
que modifier pour que ce script fonctionne avec toutes les versions ?
en fait je voudrais qu 'il ne se base que surle debut de la chaine ''Microsoft Baseline Security Analyzer'
J'ai essayé de remplacé le numero de versions par un * , fais des tests avec LIKE mais je tourne en rond sans aucun succés ...
merci d'avance si vous avez une idée pour contourner le pb ou orienter ma reflexion .
A voir également:
- Comparaison de chaine VB
- Comparaison million milliard - Accueil - Technologies
- Chaine tnt gratuite sur mobile - Guide
- Vb - Télécharger - Langages
- Plus de chaine tv - Guide
- Chaine radio - Télécharger - Médias et Actualité
2 réponses
Bonjour,
Pourquoi ne pas simplement retourner le nom de tous les produits installés dans te reqete WMI puis tester ce nom ds la boucle For....each ? Ca donnerait qqchose comme ça :
Pourquoi ne pas simplement retourner le nom de tous les produits installés dans te reqete WMI puis tester ce nom ds la boucle For....each ? Ca donnerait qqchose comme ça :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product'")
For Each objSoftware in colSoftware
If Instr(objSoftware.Name, "Baseline Security Analyzer") then
objSoftware.Uninstall()
End if
Next
Bonjour Tompols,
Merci pour ton aide ,j'ai testé ton script ca marche parfaitement ...
j'avais bien trouvé une autre solution qui etait de dupliquer le script fourni par ms avec le nom de chaque version présente mais ta solution est beaucoup plus propre que ma bidouille .
un petit souci de - merci encore :)
Merci pour ton aide ,j'ai testé ton script ca marche parfaitement ...
j'avais bien trouvé une autre solution qui etait de dupliquer le script fourni par ms avec le nom de chaque version présente mais ta solution est beaucoup plus propre que ma bidouille .
un petit souci de - merci encore :)