anchor.diff:  	      "http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous"))
   	  (:|a:Action| :|s:mustUnderstand| "true"
   	    "http://schemas.xmlsoap.org/ws/2004/09/enumeration/Enumerate")
  -	  (:|p:MaxEnvelopeSize| :|s:mustUnderstand| "true"
  +	  (:|w:MaxEnvelopeSize| :|s:mustUnderstand| "true"
   	    "512000")
   	  (:|a:MessageID| (princ msg-id s))
   	  (:|p:Locale| :|xml:lang| "en-GB" :|s:mustUnderstand| "false" )
  
positive.code: 	      "http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous"))
  	  (:|a:Action| :|s:mustUnderstand| "true"
  	    "http://schemas.xmlsoap.org/ws/2004/09/enumeration/Enumerate")
  	  (:|p:MaxEnvelopeSize| :|s:mustUnderstand| "true"
  	    "512000")
  	  (:|a:MessageID| (princ msg-id s))
  	  (:|p:Locale| :|s:mustUnderstand| "false"
  
negative.code: 		  (:|w:Selector| :|Name| "DeviceId" "c:"))
  		(:|w:OperationTimeout| "PT60.000S"))
        (:|s:Body|))))
  
  ;; read this
  ;; http://msdn.microsoft.com/en-us/library/cc251709.aspx
  ;; http://www.dmtf.org/sites/default/files/standards/documents/DSP0227_1.0.0.pdf
  
  
  (defun encode-wsman-get-class ()
    "Basic exmaple of how we might go about encoding the messages. Uses CL-WHO."
    (cl-who:with-html-output-to-string (s)
      "<?xml version=\"1.0\" encoding=\"utf-8\" ?>"
      (terpri s)
  	(:|s:Envelope| :|xmlns:s| +soap-envelope+
  	               :|xmlns:a| +soap-addressing+
  		       :|xmlns:w| +soap-wsman+
  	  (:|s:Header|
  		(:|a:To| "http://hyperb.angelo.exsequi.com:5985/wsman")
  		(:|w:ResourceURI| :|s:mustUnderstand| "true"
  		 "http://schemas.microsoft.com/wbem/wsman/1/wmi/root/cimv2/*")
  		(:|a:ReplyTo|
  		  (:|a:Address| :|s:mustUnderstand| "true"
  			"http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous"))
  		(:|a:Action| :|s:mustUnderstand| "true"
  		  "http://schemas.xmlsoap.org/ws/2004/09/enumeration/Enumerate")
  		(:|w:MaxEnvelopeSize| :|s:mustUnderstand| "true" "153600")
  		(:|a:MessageID| (princ (gen-id) s))
  		(:|w:Locale| :|xml:lang| "en-US" :|s:mustUnderstand| "false")
  		(:|w:OperationTimeout| "PT60.000S"))
        (:|s:Body|))))
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  (defun encode-wsman-get-instance (class-name name value)
  