(vl-load-com)

(defun no-online-sync (/ hive key cloud need_restart)
  (if (getvar "onlinedocmode")
    (foreach subkey (vl-registry-descendents
                      (setq key (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\WebUsers"))
                      nil
                      ) ;_ end of vl-registry-descendents
      (if (and (setq cloud (vl-registry-read (strcat key "\" subkey) "CloudDefaultMode"))
               (/= cloud 0)
               ) ;_ end of and
        (progn
          (vl-registry-write (strcat key "\" subkey) "CloudDefaultMode" 0)
          (setq need_restart t)
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of foreach
    ) ;_ end of if
  (if (vl-registry-read
        (setq hive (strcat "HKEY_CURRENT_USER\"
                           (vlax-product-key)
                           "\\Variables"
                           ) ;_ end of strcat
              ) ;_ end of setq
        (setq key "ONLINESETTINGSSYNC")
        ) ;_ end of vl-registry-read
    (progn
      (vl-registry-delete hive key)
      (foreach subhive (vl-registry-descendents
                         (setq hive (strcat "HKEY_CURRENT_USER\"
                                            (vlax-product-key)
                                            "\\WebUsers"
                                            ) ;_ end of strcat
                               ) ;_ end of setq
                         nil
                         ) ;_ end of vl-registry-descendents
        (if (and (setq cloud (vl-registry-read (strcat hive "\" subhive) "OnlineSettingsSync"))
                 (/= cloud 0)
                 ) ;_ end of and
          (progn
            (setq need_restart t)
            (vl-registry-write (strcat hive "\" subhive) "OnlineSettingsSync" 0)
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if

  (if need_restart
    (alert "Перезапустите AutoCAD!")
    ) ;_ end of if
  ) ;_ end of defun

(no-online-sync)