Bonjour,
Je suis en train de faire un VBS qui télécharge et installe les mise a jour validée sur mon WSUS.
C'est pas bien compliqué car MS le fournit 
http://msdn.microsoft.com/en-us/li [...] S.85).aspx
Mais je voulais pouvoir gérer une blacklist en local.
En fait je souhaiterais comparé l'update.title aux lignes contenu dans un fichier annexe, et s'il y est présent, ne pas l'installer malgré sa dispo sur le WSUS. (voir le IF en commentaire)
Merci ![[:atog]](https://forum-images.hardware.fr/images/perso/atog.gif "[:atog]")
Code :
- 'Setting Objects
- Set updateSession = CreateObject("Microsoft.Update.Session" )
- Set updateSearcher = updateSession.CreateupdateSearcher()
- Set updatesToProcess = CreateObject("Microsoft.Update.UpdateColl" )
- Err.clear
- Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software'" )
- For I = 0 To searchResult.Updates.Count-1
- Set update = searchResult.Updates.Item(I)
- wscript.echo "" & update.Title
- Next
- If searchResult.Updates.Count = 0 Then
- wscript.echo "No applicable updates."
- WScript.Quit
- End If
- wscript.echo "Collection of updates to download:"
- For I = 0 to searchResult.Updates.Count-1
- Set update = searchResult.Updates.Item(I)
- ' IF not update.Title in c:\temp\blacklist.txt then
- wscript.echo "" & update.Title
- updatesToProcess.Add(update)
- 'End If
- Next
- 'Set downloader = updateSession.CreateUpdateDownloader()
- 'downloader.Updates = updatesToProcess
- 'downloader.Download()
- 'Set installer = updateSession.CreateUpdateInstaller()
- 'installer.Updates = updatesToProcess
- 'Set installationResult = installer.Install()
|
