Récupérer les informations sur la licence en programmant

Lorsque vous effectuez une analyse, un rapport ou un débogage de votre application serveur, vous pouvez vouloir connaître le nombre de clients disponibles, le nombre de connexions consommées, la date d’expiration et bien d’autres informations.

Désormais, avec 4D v16 R4, vous pouvez récupérer des informations détaillées sur la licence active de votre produit 4D en cours d’exécution (4D Server par exemple). Par exemple

• version,
• plate-forme,
• nombre de connexions disponibles et consommées pour 4D Write Pro,
• nombre de connexions disponibles et consommées pour 4D Client,
• date d’expiration,
• …

Il suffit d’appeler la commande Get license info nouvelle commande qui renvoie un objet :

C_OBJECT($obj)
$obj :=Get license info

Par exemple, voici l’objet retourné pour une licence 4D Server :

{
    "name": "4D Server v16 R3",
    "licenseNumber": "xxxx",
    "version": "16R3",
    "userName": "John DOE",
    "userMail": "john.doe@alpha.com",
    "companyName": "Alpha",
    "platforms": ["macOS", "windows"],
    "expirationDate": {"day":1, "month":1, "year":2018},
    "products":[
        {
            // Expansion of 15 4D Write - 4D Write Pro connections
            "allowedCount": 15,
            "id": 808464697,
            "name": "4D Write - 4D Write Pro",
            "rights": [
                {
                    // 5 connections until December 1st, 2017
                    "count": 5,
                    "expirationDate": {"day":1, "month":12, "year":2017}
                }, {
                    // 10 connections until November 1st, 2017 
                    "count": 10,
                    "expirationDate": {"day":1, "month":11, "year":2017}
                }
            ],
            // 12 4D Write - 4D Write Pro licenses currently used
            "usedCount": 12
        },
        {...}
    ]
}