Session windows

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)

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