Admin : Page créée avec « Ce script est à lancer depuis un AD pour voir les sessions en cours sur des serveurs du domaine (le port 135 est à ouvrir entre l'AD et les serveurs, et aussi à passer... »

2020-09-21T09:49:55Z

Page créée avec « Ce script est à lancer depuis un AD pour voir les sessions en cours sur des serveurs du domaine (le port 135 est à ouvrir entre l'AD et les serveurs, et aussi à passer... »

Nouvelle page

Ce script est à lancer depuis un AD pour voir les sessions en cours sur des serveurs du domaine (le port 135 est à ouvrir entre l'AD et les serveurs, et aussi à passer à 1 la clé de registre AllowRemoteRPC)

<pre>
strComputer = InputBox ("Nom ou IP du poste")
strLogin = InputBox ("Compte administrateur")
strPasswd = InputBox ("Mot de passe")
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMI = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strLogin, strPasswd)
Set colSessions = objWMI.ExecQuery ("Select * from Win32_LogonSession Where LogonType = 10")
If colSessions.Count = 0 Then
Wscript.Echo "Aucun utilisateur"
Else
message = "Dernières sessions :" & VbCrLf & VbCrLf
For Each objSession in colSessions
If objSession.LogonType = 2 Then
message = message & "Type de session : Console" & VbCrLf
Else
message = message & "Type de session : Bureau distant" & VbCrLf
End If
Set colList = objWMI.ExecQuery("Associators of {Win32_LogonSession.LogonId=" & objSession.LogonId & "} Where AssocClass=Win32_LoggedOnUser Role=Dependent")
For Each objItem in colList
message = message & "Utilisateur : " & objItem.Domain & "\" & objItem.Name & VbCrLf
Next
message = message & "Début de session : " & Mid(objSession.StartTime,9,2) & ":" & Mid(objSession.StartTime,11,2) & " " & Mid(objSession.StartTime,7,2) & "/" & Mid(objSession.StartTime,5,2) & "/" & Mid(objSession.StartTime,1,4) & VbCrLf
message = message & VbCrLf
Next
WScript.Echo message
End If
</pre>

[[Catégorie:Script]]

Session windows - Historique des versions

Admin : Page créée avec « Ce script est à lancer depuis un AD pour voir les sessions en cours sur des serveurs du domaine (le port 135 est à ouvrir entre l'AD et les serveurs, et aussi à passer... »