Access to first activation date of product key

Greetings,

Is it possible to get a date when the product key is activated for the first time? I would need this for time-limited licensing. The solution using a relative time custom field to when the product key is created doesn't work in my case because I provide time-limited product keys to a reseller. The product key creation dates are not the same as the dates when the products are purchased. 

Here is some VBA code you can run in Excel to get the complete “activity” for a given product key.  It will be an xml string returned by the call to do1Get( ).  I've been using this code for years and it works great.

        PKey = “put product key here”
       If Len(PKey) <> 34 Then MsgBox ("Not a product key: " & PKey & vbLf & "Select a cell in the Product Key column"): Exit Sub
       s = "&version_id=" & Version_Id$ & _
           "&method=limelm.pkey.activity" & _
           "&start=2014-01-01" & _
           "&activation=true" & _
           "&deactivation=true"
       s = do1GET(s)

Function do1GET(ByVal s) 'sends a query to the lime server and returns the response as a string
   Dim sUrl$, webresponse$
   sUrl = "https://wyday.com/limelm/api/rest/"
   s = "&api_key=put your API key here" & s
   Dim objHTTP As MSXML2.XMLHTTP: Set objHTTP = New MSXML2.XMLHTTP
   If InStr(TypeName(objHTTP), "HTTPRequest") = 0 Then MsgBox "something went wrong trying to create an MSXML2.XMLHTTP object"
   objHTTP.Open "POST", sUrl, False  'change GET to POST per wyatt's new requirement 01/04/2022
   objHTTP.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT" 'to prevent getting a cached response
   objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'need this line, got it from https://www.mrexcel.com/board/threads/vba-get-and-post-method.938123/
   objHTTP.send (s)
   do1GET = objHTTP.responseText
   If InStr(do1GET, "stat=""ok""") > 0 Then
   Else
       Call MsgBox("The command to the Lime server failed, and returned the following:" & vbLf & do1GET, vbOKOnly)
       End
   End If
End Function
 

Reply
Discard post