Script affichant les sessions actuellement ouvertes

Commenter

Contenu du snippet

Script affichant les sessions actuellement ouvertes
ainsi que les dates des dernières connexions locales
sur un ordinateur local ou distant
Syntaxe:
sessions [nom_de_machine]
si "nom_de_machine" est omis => machine locale

Source / Exemple : 


Dim network, server,args, ComputerSystem
Set network =Wscript.CreateObject("WScript.Network")
Set args=Wscript.Arguments
nbargs=args.count
If nbargs>0 Then Machine = args(0) Else Machine = network.ComputerName 

'Récupération du nom de domaine ou Workgroup
Set ComputerSystem = GetObject("winmgmts://" & Machine).InstancesOf("Win32_ComputerSystem")
For each System in ComputerSystem
	Domaine = System.Domain
	Next
mess="Ordinateur " & machine & " (domaine/workgroup """ & Domaine & """) :" & vbcrlf & vbcrlf
Set Server = GetObject("WinNT://" & Domaine & "/" & Machine & "/LanManServer")
n=0
result=""
For each Session in Server.Sessions
	n=n+1
	user=Session.user
	If len(user)>0 Then
		temps=session.connecttime 
		h=int(temps/3600)
		mn=int((temps - h*3600)/60)
		result= result & user & " depuis " & Session.Computer & " (durée : " & h & "h " & mn & "mn)" & VBCRLF
		End If
    Next
If n>1 Then suffixe="s" else suffixe=""
mess=mess & "--- " & n & " session" & suffixe & " actuellement ouverte" & suffixe & " : " & vbcrlf
mess=mess & result & vbcrlf
mess=mess & "--- Dates des dernières connexions locales :" & vbcrlf
result=""
Dim LoginProfiles, Profile
Set LoginProfiles = GetObject("winmgmts://" & Machine).InstancesOf("Win32_NetworkLoginProfile")
for each Profile in LoginProfiles 
	account=Profile.Name
	p=instr(account,"\")
	If p>1 Then
		If lcase(left(account,p-1))=lcase(Machine) Then
			strlogon=analyse(Profile.LastLogon)
			result=result & strlogon & " : " & mid(account,p+1) & vbcrlf 	
			End If
		End If
	next
mess=mess & result
wscript.echo mess

' -------------------------------------
Function analyse(ch)
a=mid(ch,1,4)
m=mid(ch,5,2)
j=mid(ch,7,2)
h=mid(ch,9,2)
mn=mid(ch,11,2)
s=mid(ch,13,2)
analyse=j & "/" & m & "/" & a & " " & h & ":" & mn & ":" & s
End Function
' -------------------------------------

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (djebbipgm)