windows updates script (Vbscript)

• Question

• 

  

  0

  Sign in to vote

  Hi Guys ,  honestly i don't understand at all in VBscript, I need to update only next classifications : Critical Updates, Security Updates , Update Rollups and Updates . Please could you please tell me how I  cab indicate this in a script

  'ServerSelection values
  ssDefault = 0
  ssManagedServer   = 1
  ssWindowsUpdate   = 2
  ssOthers          = 3
  
  'InStr values
  intSearchStartChar = 1
  
  
  dim strTitle
  
  
  Set updateSession = CreateObject("Microsoft.Update.Session")
  Set updateSearcher = updateSession.CreateupdateSearcher()
  
  updateSearcher.ServerSelection = ssWindowsUpdate
  Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software'")
  
  WScript.Echo "List of applicable items on the machine:"
  
  For I = 0 To searchResult.Updates.Count-1
      Set update = searchResult.Updates.Item(I)
      WScript.Echo I + 1 & "> " & update.Title
  Next
  
  If searchResult.Updates.Count = 0 Then
      WScript.Echo "There are no applicable updates."
      WScript.Quit
  End If
  
  WScript.Echo vbCRLF & "Creating collection of updates to download:"
  
  Set updatesToDownload = CreateObject("Microsoft.Update.UpdateColl")
  
  For I = 0 to searchResult.Updates.Count-1
      Set update = searchResult.Updates.Item(I)
      addThisUpdate = false
      If update.InstallationBehavior.CanRequestUserInput = true Then
          WScript.Echo I + 1 & "> skipping: " & update.Title & _
          " because it requires user input"
      Else
          If update.EulaAccepted = false Then
              WScript.Echo I + 1 & "> note: " & update.Title & _
              " has a license agreement that must be accepted:"
              WScript.Echo update.EulaText
              WScript.Echo "Do you accept this license agreement? (Y/N)"
              ''strInput = WScript.StdIn.ReadLine
              strInput = "Y"
              WScript.Echo 
              If (strInput = "Y" or strInput = "y") Then
                  update.AcceptEula()
                  addThisUpdate = true
              Else
                  WScript.Echo I + 1 & "> skipping: " & update.Title & _
                  " because the license agreement was declined"
              End If
          Else
              addThisUpdate = true
          End If
      End If
      If addThisUpdate = true Then
          WScript.Echo I + 1 & "> adding: " & update.Title 
          updatesToDownload.Add(update)
      End If
  Next
  
  If updatesToDownload.Count = 0 Then
      WScript.Echo "All applicable updates were skipped."
      WScript.Quit
  End If
      
  WScript.Echo vbCRLF & "Downloading updates..."
  
  Set downloader = updateSession.CreateUpdateDownloader() 
  downloader.Updates = updatesToDownload
  downloader.Download()
  
  Set updatesToInstall = CreateObject("Microsoft.Update.UpdateColl")
  
  rebootMayBeRequired = false
  
  WScript.Echo vbCRLF & "Successfully downloaded updates:"
  
  For I = 0 To searchResult.Updates.Count-1
      set update = searchResult.Updates.Item(I)
      If update.IsDownloaded = true Then
          WScript.Echo I + 1 & "> " & update.Title 
          updatesToInstall.Add(update)	
          If update.InstallationBehavior.RebootBehavior > 0 Then
              rebootMayBeRequired = true
          End If
      End If
  Next
  
  If updatesToInstall.Count = 0 Then
      WScript.Echo "No updates were successfully downloaded."
      WScript.Quit
  End If
  
  If rebootMayBeRequired = true Then
      WScript.Echo vbCRLF & "These updates may require a reboot."
  End If
  
  WScript.Echo  vbCRLF & "Would you like to install updates now? (Y/N)"
  ''strInput = WScript.StdIn.ReadLine
  strInput = "Y"
  WScript.Echo 
  
  If (strInput = "Y" or strInput = "y") Then
      WScript.Echo "Installing updates..."
      Set installer = updateSession.CreateUpdateInstaller()
      installer.Updates = updatesToInstall
      Set installationResult = installer.Install()
  	
      'Output results of install
      WScript.Echo "Installation Result: " & _
      installationResult.ResultCode 
      WScript.Echo "Reboot Required: " & _ 
      installationResult.RebootRequired & vbCRLF 
      WScript.Echo "Listing of updates installed " & _
      "and individual installation results:" 
  	
      For I = 0 to updatesToInstall.Count - 1
          WScript.Echo I + 1 & "> " & _
          updatesToInstall.Item(i).Title & _
          ": " & installationResult.GetUpdateResult(i).ResultCode 		
      Next
  End If
  

  
  

  thank you very much ^_^

  Wednesday, November 13, 2019 10:01 PM