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

Liste des dossiers partagés sur un serveur [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 10:19:28    

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 :
  1. Dim network, Server, Machine, ObjResource
  2. Set network =Wscript.CreateObject("WScript.Network" )
  3. Machine = "nom du serveur"
  4. wscript.echo "Partages en cours depuis " & Machine
  5. Set Server = GetObject("WinNT://"  & Machine & "/LanManServer" )
  6. For each ObjResource in Server.Resources
  7.  wscript.echo ObjResource.Path '& " utilisé par " & ObjResource.User
  8. Next


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

Reply

Marsh Posté le 23-03-2006 à 10:19:28   

Reply

Marsh Posté le 23-03-2006 à 12:32:08    

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 :
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:" _
  3.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  5. Set colShares = objWMIService.ExecQuery("Select * from Win32_Share" )
  7. For each objShare in colShares
  8.     Wscript.Echo "Allow Maximum: " & objShare.AllowMaximum 
  9.     Wscript.Echo "Caption: " & objShare.Caption 
  10.     Wscript.Echo "Maximum Allowed: " & objShare.MaximumAllowed
  11.     Wscript.Echo "Name: " & objShare.Name 
  12.     Wscript.Echo "Path: " & objShare.Path 
  13.     Wscript.Echo "Type: " & objShare.Type 
  14. 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/
Reply

Marsh Posté le 23-03-2006 à 12:59:10    

Merci beaucoup...
 
c'est exactement se que je cherchais...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed