diff --git a/connman.scm b/connman.scm
index 7f388bb..fdfa046 100644
--- a/connman.scm
+++ b/connman.scm
@@ -127,8 +127,16 @@
    ;;;
    ;;; Manager
    ;;;
+   manager-properties
+   manager-properties-state
+   manager-properties-offline-mode?
+   manager-properties-available-debugs
+   manager-properties-enabled-debugs
+   manager-properties-session-mode?
+   manager-properties-set-offline-mode!
+   manager-properties-set-session-mode!
+
    make-manager-context
-   manager-state
    manager-technologies
    manager-services
    )
diff --git a/manager.scm b/manager.scm
index 20421e1..8933d51 100644
--- a/manager.scm
+++ b/manager.scm
@@ -5,9 +5,45 @@
                      interface: 'net.connman.Manager))
 
 
-(define (manager-state context)
-  (and-let* ((state (dbus-call context "GetState")))
-    (car state)))
+;;;
+;;; Manager properties
+;;;
+(define-record manager-properties
+  context
+  state
+  offline-mode?
+  available-debugs
+  enabled-debugs
+  session-mode?)
+
+(define (manager-properties context)
+  (and-let* ((properties (dbus-call context "GetProperties"))
+             (properties (vector->list (car properties))))
+    (make-manager-properties
+     context
+     (dbus-value "State" properties)
+     (dbus-value "OfflineMode" properties)
+     (dbus-value "AvailableDebugs" properties)
+     (dbus-value "EnabledDebugs" properties)
+     (dbus-value "SessionMode" properties))))
+
+
+(define (manager-properties-set-offline-mode! properties offline?)
+  (manager-properties-offline-mode?-set! properties offline?)
+  (dbus-call
+   (manager-properties-context properties)
+   "SetProperty"
+   "OfflineMode"
+   (make-variant offline?)))
+
+
+(define (manager-properties-set-session-mode! properties session-mode?)
+  (manager-properties-session-mode?-set! properties session-mode?)
+  (dbus-call
+   (manager-properties-context properties)
+   "SetProperty"
+   "SessionMode"
+   (make-variant session-mode?)))
 
 
 (define (manager-technologies context)
@@ -17,4 +53,4 @@
 
 (define (manager-services context)
   (and-let* ((services (dbus-call context "GetServices")))
-    (car services)))
\ No newline at end of file
+    (car services)))