(defun zw-get-url-response(url)
  (setq xml (vlax-create-object "MSXML2.XMLHTTP"))
  (vlax-invoke-method xml 'open "GET" url :vlax-false)
  (vlax-invoke-method xml 'send)
  (vlax-get-property xml 'responsetext)
 )

(defun zw-connect-app-url(url path)
  (setq catch (vl-catch-all-apply 'zw-get-url-response (list url)))
  (if (= T (vl-catch-all-error-p catch))
    (command "browser" (findfile path))
    (if (= 0 (strlen catch))
      (command "browser" (findfile path))
      (command "browser" url)
      )
    )
  )