Bonjours,

Je solicite encore une fois votre aide pour la création d'un programme en vbs.

Voila je m'explique, il faut que je crée un programme qui liste les partages de l'ordinateur. Je dispose déjà d'un script :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Share",,48)
cpt=1
For Each objItem in colItems
	If objItem.Type = 0 Then
		'wscript.echo "dossier partage"
		Wscript.Echo "Partage n°" & cpt
		cpt=cpt+1
		Wscript.Echo "Nom du partage: " & objItem.Name
		Wscript.Echo "Chemin d'accès: " & objItem.Path
		'Wscript.Echo "Type de partage: " & objItem.Type
	End If
next
Oui mais voila, le soucis est qu'il y a plusieurs contrainte :

-Il faut que le programme liste les partage dans un disque dur précis (Je dispose de deux disque dur un C: et un D

-Il faut également que le programme listes les membres qui ont l'autorisation d'accéder à ce partage (Dans l'onglet sécurité de l'option du fichier/Dossier partagé)

-Il faut qu'apparaisse le nom du partage et le nom du dossier partagé (qui peux être parfois différent)

Merci de m'éclairer (pas forcement de me donner la solution) si vous le pouvez.

Je vous remercie d'avance