anchor.diff:  End Sub
   
   Sub reboot(computerName)
  +    LogWrite "Rebooting " & computerName
       Dim objWMIService, colOS, objOS
       Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & computerName & "\root\cimv2")
       Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  
positive.code: End Function
  
  Sub deleteStartupEntry
     Const HKEY_LOCAL_MACHINE = &H80000002
     Dim strComputer
     strComputer = "."
     Dim reg, strKeyPath, strValueName
     Set reg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
     strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"
     strValueName = "WindowsUpdate"
     reg.DeleteValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName
  End Sub
  
  Sub addStartupEntry
  
negative.code: Function installUpdates(updateSession, updatesToInstall)
      LogWrite "Installing updates..."
      Dim installer, installationResult, i
      On Error Resume Next
      Set installer = updateSession.CreateUpdateInstaller()
      If Err.Number <> 0 Then
          LogWrite "Error " & Hex(Err) & " calling " & Err.Source
          LogWrite Err.Description
      End If
      On Error Goto 0
      installer.Updates = updatesToInstall
      On Error Resume Next
      Set installationResult = installer.Install()
      If Err.Number <> 0 Then
          LogWrite "Error " & Hex(Err) & " calling " & Err.Source
          LogWrite Err.Description
      End If
      On Error Goto 0
      LogWrite "Installation Result: " & installationResult.ResultCode
      LogWrite "Reboot Required: " & installationResult.RebootRequired
      LogWrite "Listing of updates installed and individual installation results:"
  