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

Question

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?

flyerflo · Accepted Answer

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

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

1 réponse

Discussions similaires