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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Liste des dossiers partagés sur un serveur

flyer-flo

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.

Code :

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?

Publicité

pilosite

Bonjour,

comme toujours, penser à regarder AVANT TOUT dans le script center pour les questions de ce genre (surtout le portable scriptcenter qui te permet de faire des recherches tranquillement sur ton poste dans un CHM)

j'ai trouvé cette exemple qui normalement répond à ta demande :

Code :

strComputer = "."
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

remplace strComputer par le nom de la machine visée.

---------------
Envie de scripting ? Lisez donc "Scripting Windows" aux Editions Eyrolles ! tout pour apprendre le scripting orienté infrastructure Microsoft, en français dans les textes et exemples. http://www.eyrolles.com/Informatiq [...] 212116922/

flyer-flo

Merci beaucoup...

c'est exactement se que je cherchais...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
classement dans une liste box [pblm]	[vbs] modifier le serveur de courier sortant outlook express
Script d'enregistrement du document courant en VBS	[VBS] Utiliser les fonction d'un autre script vbs
Connexion en Vbs à un Ftp	Serveur web apache php mysql phpmyadmin sous linux, tutoriel
[excel] connexion serveur	modification d' un fichier serveur par un poste client
[VBS] Lister groupes et Utilisateurs dans AD	Excel facture vs liste deroulante
Plus de sujets relatifs à : [VBS] Liste des dossiers partagés sur un serveur

Page générée en 0.059 secondes