Logguer adresse IP des sessions TS ?

par **Robert LEON** sur Ven 21 Mai 2004, 7:20

et si la récupération de MY_SESSIONID était automatique. Par exemple à l'ouverture d'une session ?
:wink:

par **ndietrich** sur Ven 21 Mai 2004, 9:57

Pourquoi pas...

par **Robert LEON** sur Mar 25 Mai 2004, 17:08

Bonjour,
Comme j'ai lancé une question scabreuse, je vais essayer d’y répondre. Heureusement j’avais un long week-end de libre devant moi. Voici un code qui me remplit un fichier avec les ouvertures de session.

Dim obj
CheminBase = "c:\logTSE.log"

On Error Resume Next

Set WshShell = CreateObject("WScript.Shell")
LogonUser = WshShell.ExpandEnvironmentStrings("%USERNAME%")

Set obj = CreateObject("TS.Info")
i = 0
Do While i < 1000
MaVar = ""
If obj.GetSessionInformation(i, WTSUserName) = LogonUser And obj.GetSessionInformation(i, WTSWinStationName) <> "Console" Then
Open CheminBase For Append As #1
MaVar = MaVar + obj.GetSessionInformation(i, WTSUserName)
MaVar = MaVar + ";" + Str(Date)
MaVar = MaVar + ";" + Str(Time)
'MaVar = MaVar + obj.GetSessionInformation(i, WTSInitialProgram) ' vide
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSApplicationName) ' vide
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSWorkingDirectory) ' vide
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSOEMId) ' vide
'MaVar = MaVar + ";" + Str(obj.GetSessionInformation(i, WTSSessionId)) ' id de session
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSWinStationName) ' RDP-Tcp#
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSDomainName) ' Nom de domaine du serveur
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSConnectState) ' état de la connexion
MaVar = MaVar + ";" + Str(obj.GetSessionInformation(i, WTSClientBuildNumber)) 'N° Client ?
MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSClientName) ' Nom du PC client
'Mavar = Mavar + ";" + obj.GetSessionInformation(i, WTSClientDirectory) ' Dossier courant du client
MaVar = MaVar + ";" + Str(obj.GetSessionInformation(i, WTSClientProductId)) '
'MaVar = MaVar + ";" + Str(obj.GetSessionInformation(i, WTSClientHardwareId))' 0
MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSClientAddress) ' IP du client
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSClientDisplay) ' Affichage du client
'MaVar = MaVar + ";" + obj.GetSessionInformation(i, WTSClientProtocolType) ' ?
Print #1, MaVar

Close #1
Set obj = Nothing
Exit Do
End If
i = i + 1
Loop

par **ndietrich** sur Mar 25 Mai 2004, 17:40

....ouf....

En fait ma réponse aussi était un peu scabreuse, il y a une méthode beaucoup plus simple...en envoyant -1 comme ID de session, ça correspond à WTS_CURRENT_SESSION, donc à la session actuelle...

Donc changes juste le MY_SESSIONID en -1 et ça devrait suffir.

Ensuite juste pour info la vraie méthode pour énumérer les sessions c'est d'appeller la fonction WTSEnumerateSessions (non implémentée dans mon exemple), et non de faire une boucle jusqu'à 10000.....

par **ndietrich** sur Mar 25 Mai 2004, 17:41

...Enfin à noter que WTS_CURRENT_SESSION ne fonctionnera qu'avec un regsvr32, mais pas via Component Services (exécution Out-Of-Process oblige...)

par **ndietrich** sur Mar 25 Mai 2004, 17:51

...Désolé pour ton week-end...viens plutot passer tes week end à la plage dans le sud plutot que de coder... :lol:

par **Robert LEON** sur Mer 26 Mai 2004, 11:04

D’abord, la mer est encore un peu froide, ensuite, si je fais 1000 boucles au lieu d’une, c’est que le travail ne me fait pas peur #-o . Encore une question scabreuse, j'ai un script à l'ouverture des sessions qui me permet la récupération des loggons, mais est il possible de lier cette action à une simple reconnexion de session ? Je sais, je déborde du sujet… :roll:

je ferais bien un tour sur la route des crêtes

par **ndietrich** sur Mer 26 Mai 2004, 11:07

Pas aussi facilement...si ton script est déclaré en script de logon, il ne sera pas lancé à une reconnection, le plus simple étant de désactiver la déconnexion sur ton serveur TS...

Sinon c'est faisable mais c'est beaucoup moins facile qu'un script de logon...

par **Robert LEON** sur Dim 30 Mai 2004, 8:29

Le serveur TSE que je cherche à sécuriser est un Win2003. Il n’y a pas, dans les GPO, à l’instar de Win2000, la possibilité d’exécuter un script à la reconnexion ou à la déconnexion. Voici les comportements de TSE que je voudrais empêcher :
- un utilisateur connecté voit sa session se déconnecter parce que quelqu’un a pris sa place :twisted:

!!!
- une session ouverte mais déconnecté peut, sans que l’utilisateur usuel le sache, être reconnectée ailleurs :twisted:

!!!
C’est tout bête, et il y a longtemps que je cherche, je ne trouve pas :oops:

.
Merci de votre aide.

par **eperromat** sur Dim 30 Mai 2004, 8:48

Salut,
Pour n'avoir qu'une seule connexion par user, c'est possible à paramétrer dans l'outil configuration des services TSE http://pameri.chez.tiscali.fr/conftse2K3.htm,
dans la rubrique "Paramètre du serveur"... par contre la reconnection depuis le même client d'une session deconnecté n'est possible qu'avec le protocole ICA (citrix) pour le moment ...

par **Robert LEON** sur Dim 30 Mai 2004, 9:08

Je n’ai qu’une seule connexion par user. Je vais me documenter sur ICA…
Merci

par **Robert LEON** sur Dim 30 Mai 2004, 15:20

Je ne pense pas que Citrix soit la solution. Userlock fonctionne en ouverture de session mais pas dans les reconnexions. Faudra t'il attendre la sortie de LoggonLimit... :?:

par **eperromat** sur Dim 30 Mai 2004, 15:32

Regardes au niveau de la configuration des services TSE, au niveau de l'onglet Session des propriétés RDP, la partie reconnexion est grisée car justement c'est du RDP ...
En ICA, il est tout à fait possible d'activer ce paramètre pour permettre la reconnexion depuis le même poste client ...
En ce qui concerne l'ouverture de session unique par utilisateur, tu as directement le paramétre dans la même console au niveau des paramètres du serveur "Restreindre chaque utilisateur à une seule session"
Sinon tu peux toujours jeter un oeil ici :
http://terminal.servebeer.com/php/single_logon_and_reconnect.php
il y a peut être des scripts pouvant te servir

Je ne comprends pas ta problematique car bien paramètré sous 2003 l'ouverture de session unique pour l'utilisateur ne deconnecte pas l'utilisateur connecté ...

par **Robert LEON** sur Dim 30 Mai 2004, 17:02

Certainement je dois avoir qque chose qui cloche, car cela parait anormal. Voyons:

Dans Tscc.msc
Connexion RDPtcp
onglet session
reconnexion du client précédent
cette possibilité est grisée (réservé à ICA)

Dans Tscc.msc
Paramètre du serveur
restreindre chaque utilisateur à une session OUI

J'ai essayé aussi les GPO mais sans succès
:oops:

Logguer adresse IP des sessions TS ?

MY_SESSIONID

Fichier logtse

Qui est en ligne ?