John's Tech Tips

Code: Select all

function uuid()
  Dim o
  Set o = CreateObject("MSXML2.XMLHTTP")
  o.open "GET", "https://www.uuidgenerator.net/api/version1", False
  o.send
  uuid = o.responseText
end function