voila mon script :  
 
 
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 & " utilisar " & ObjResource.User
 Next
 
 
 
kan je lexecute, il ne se passe rien, sauf l'affichage de "partage en cours". G essayer de bien bidouiller mais sans succes, Alors si quelqu'un avait une idée. Merci d'avance

c'est la liste des partages en cours d'utilisation, c'est a dire les dossiers sur lesquel il y a des utilisateur connectés et non pas la liste de tes dossiers partagés.