Discussion :

[aurelien13008]

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

[RadPAT]

Salut,

un script que j'avais fait il y a quelques temps et qui ressemble à ce que tu cherches :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
strComputer = "."
 
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
 
 
set objFs = GetObject("WinNT://" & strComputer & "/LanmanServer,FileService")
 
 
For Each objShare In objFs
    If InStr(objShare.path, "D:\") Then
       strDir = objShare.path
 
       WScript.Echo  
       WScript.Echo "Chemin partage : " & strDir
       WScript.Echo "Nom partage : " & objShare.name
 
        strDir = Replace(strDir,"\","\\")
       Set colItems = objWMI.ExecQuery("Select * from win32_logicalFileSecuritySetting WHERE Path='" & strDir & "'",,48) 
 
       For each objItem in colItems 
 
           If objItem.GetSecurityDescriptor(wmiSecurityDescriptor) Then
              WScript.Echo "GetSecurityDescriptor failed"
              DisplayFileSecurity = False
              WScript.Quit
           End If 
 
           For each wmiAce in wmiSecurityDescriptor.DACL
               strACE = wmiAce.Trustee.Domain & "\" & wmiAce.Trustee.Name   
               WScript.echo " - " & strACE
           Next
       Next
    End If
Next

A++

[aurelien13008]

Merci C'est super