PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Nom du poste client en mode TSE
Nom du poste client en mode TSE
Débuté par JYM, 26 jan. 2023 17:01 - 2 réponses
#1
Posté le 26 janvier 2023 - 17:01
Bonjour ,
Nous utilisons la variable d'environnement CLIENTNAME pour récupérer le nom du poste client en TSE.
cNomMachinePhysique=ExtraitChaîne(SysEnvironnement("CLIENTNAME"),2,"=")
Cette fonction fonctionne bien jusqu'a la version Windows Server 2016,
mais on vient de s'apercevoir que la fonction renvoie la valeur nulle à partir des version 2022 de Windows Server.
Avez-vous constaté les même problème et avez vous trouvé une solution ?
Merci de votre retour.
JYM
#2
Membre enregistré
946 messages
Popularité : +102 (110 votes)
Posté le 28 janvier 2023 - 15:35
Bonjour
Avez vous essayé de passer par les api. Malheureusement je n'ai pas de TSE pour tester mais je vous joint un bout de code qui devrais résoudre votre problème
hndDLL est un entier
DllName est une chaîne = "wtsapi32.dll" // peut-être faudra t-il mettre le chemin complet
ResBuffer est un Buffer
bytesReturned est un entier

hndDLL = ChargeDLL(DllName)
IF hndDLL = 0 THEN
Erreur("Oup'sss")
RETOUR
END

//see : https://learn.microsoft.com/en-us/windows/win32/api/wtsapi32/nf-wtsapi32-wtsquerysessioninformationa
// and https://learn.microsoft.com/en-us/windows/win32/api/wtsapi32/ne-wtsapi32-wts_info_class
IF API(DllName, "WTSQuerySessionInformation", 0, -1, 10, &ResBuffer, &bytesReturned) THEN //10 --> WTSClientName
STOP
Erreur("oup'sss")
ELSE
Trace(ResBuffer)
END

DéchargeDLL(hndDLL)


--
«Nos clients sont nos meilleurs beta testeur.» H. Mintzberg
«Un programme informatique fait ce que vous lui avez dit de faire, pas ce que vous voulez qu'il fasse» Troisième loi de Greer
#3
Membre enregistré
946 messages
Popularité : +102 (110 votes)
Posté le 09 février 2023 - 17:16
Bonjour
avez vous testé ?

--
«Nos clients sont nos meilleurs beta testeur.» H. Mintzberg
«Un programme informatique fait ce que vous lui avez dit de faire, pas ce que vous voulez qu'il fasse» Troisième loi de Greer
→ Revenir à WINDEV 2024