[VBS] WSUS téléchargement et installation

WSUS téléchargement et installation [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2009 à 15:58:48    

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 :p
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]  
 
 

Code :
  1. 'Setting Objects
  2. Set updateSession = CreateObject("Microsoft.Update.Session" )
  3. Set updateSearcher = updateSession.CreateupdateSearcher()
  4. Set updatesToProcess = CreateObject("Microsoft.Update.UpdateColl" )
  6. Err.clear
  7. Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software'" )
  9. For I = 0 To searchResult.Updates.Count-1
  10. Set update = searchResult.Updates.Item(I)
  11. wscript.echo "" & update.Title
  12. Next
  14. If searchResult.Updates.Count = 0 Then
  15. wscript.echo "No applicable updates."
  16. WScript.Quit
  17. End If
  19. wscript.echo "Collection of updates to download:"
  21. For I = 0 to searchResult.Updates.Count-1
  22. Set update = searchResult.Updates.Item(I)
  23.         ' IF not update.Title in c:\temp\blacklist.txt then
  24.      wscript.echo "" & update.Title
  25.      updatesToProcess.Add(update)
  26.         'End If
  27. Next
  30. 'Set downloader = updateSession.CreateUpdateDownloader()
  31. 'downloader.Updates = updatesToProcess
  32. 'downloader.Download()
  34. 'Set installer = updateSession.CreateUpdateInstaller()
  35. 'installer.Updates = updatesToProcess
  36. 'Set installationResult = installer.Install()

Reply

Marsh Posté le 30-06-2009 à 15:58:48   

Reply

Marsh Posté le 30-06-2009 à 20:56:10    

Oula, pas tous a la fois /o\
 
Menfin merci quand meme :p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed