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

flyerflo 6 Messages postés lundi 8 décembre 2003Date d'inscription 23 mars 2006 Dernière intervention - 23 mars 2006 à 10:25 - Dernière réponse : flyerflo 6 Messages postés lundi 8 décembre 2003Date d'inscription 23 mars 2006 Dernière intervention
- 23 mars 2006 à 13:00
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?
Afficher la suite 

1 réponse

Meilleure réponse
flyerflo 6 Messages postés lundi 8 décembre 2003Date d'inscription 23 mars 2006 Dernière intervention - 23 mars 2006 à 13:00
3
Merci
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

Merci flyerflo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.