(use dbus)

(define (device-properties device)
  (let ((c (dbus:make-context bus: dbus:system-bus
			      service: 'net.connman 
			      interface: 'net.connman.Service
			      path: (make-pathname "/net/connman/service"
						   device))))
    (dbus:call c "GetProperties")))

(pp (device-properties "ethernet_080027447063_cable"))

;; => (#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))