' ----------------------------------------------------------
' Script d'affichage des partages en cours et de leurs utilisateurs 
'
' JC BELLAMY © 2001
' ----------------------------------------------------------
Dim network, Server
Set network =Wscript.CreateObject("WScript.Network")
Machine = network.ComputerName ' le nom de la machine
wscript.echo "Partages en cours depuis " & Machine
Set Server = GetObject("WinNT://"  & Machine & "/LanManServer")
For each ObjResource in Server.Resources
	wscript.echo ObjResource.Path & " utilisé par " & ObjResource.User
	Next