|
|||||||||||
| Le Forum de Référence sur les Technologies Microsoft - http://www.forum-microsoft.org | |||||||||||
Modérateurs: nadir.amghar, Modérateurs_Systèmes















regsvr32 c:\ts.dllConst MY_SESSIONID = 2
' //////////////////////////////////////////////////////////////////////////////////
' // Terminal Server Info Constants to use with GetSessionInformation
' //////////////////////////////////////////////////////////////////////////////////
Const WTSInitialProgram = 0
Const WTSApplicationName = 1
Const WTSWorkingDirectory = 2
Const WTSOEMId = 3
Const WTSSessionId = 4
Const WTSUserName = 5
Const WTSWinStationName = 6
Const WTSDomainName = 7
Const WTSConnectState = 8
Const WTSClientBuildNumber = 9
Const WTSClientName = 10
Const WTSClientDirectory = 11
Const WTSClientProductId = 12
Const WTSClientHardwareId = 13
Const WTSClientAddress = 14
Const WTSClientDisplay = 15
Const WTSClientProtocolType = 16
' //////////////////////////////////////////////////////////////////////////////////
' // Core script to get a specified info from a specified Session Identifier
' // Send to GetSessionInformation
' //////////////////////////////////////////////////////////////////////////////////
Dim obj
Set obj = CreateObject("TS.Info")
Msgbox obj.GetSessionInformation(MY_SESSIONID, WTSClientAddress)
Set obj = NothingD:\Documents and Settings\Administrator>query session
SESSIONNAME USERNAME ID STATE TYPE DEVICE
console 0 Conn wdcon
rdp-tcp 65536 Listen rdpwd
>rdp-tcp#5 Administrator 2 Active rdpwd


Retourner vers Terminal Services
Utilisateurs parcourant actuellement ce forum : Aucun utilisateur inscrit et 0 invités