[VBS] Liste des dossiers partagés sur un serveur [Résolu]

Signaler
Messages postés
6
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
23 mars 2006
-
Messages postés
6
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
23 mars 2006
-
Bonjour,

Je dois faire un programme en vbs et il faudrai que je puisse récupérer tous les shares sur un serveur.

J'ai pu trouver se petit bout de code mais cela me donne que lorsque quelqu'un est sur un dossier du serveur.

Dim network, Server, Machine, ObjResource
Set network =Wscript.CreateObject("WScript.Network")
Machine = "nom du serveur"
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

Pouvez-vous m'aider à trouver comment faire la liste des dossiers partagés sur un serveur?

1 réponse

Messages postés
6
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
23 mars 2006

Si jamais j'ai trouvé la réponse à mon problème ca peut toujours être utile a quelqu'un

voilà le code :

Dim strComputer, objWMIService, colShares, objShare

strComputer = "SLAW01"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "Allow Maximum: " & objShare.AllowMaximum
Wscript.Echo "Caption: " & objShare.Caption
Wscript.Echo "Maximum Allowed: " & objShare.MaximumAllowed
Wscript.Echo "Name: " & objShare.Name
Wscript.Echo "Path: " & objShare.Path
Wscript.Echo "Type: " & objShare.Type
Next
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci