[WMI]creer un dossier partager

Bonjour,

dans le cadre du deploiement d'une base de donnèes sur un serveur j'aurais besoin de crèè un nouveau dossier dans "ProgramFiles" et de le partager avec les reste du reseaux

comment puis je fair svp??

issue de MSDN :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." stRep = "c:\tmp" ' Répertoire à partager stNomPartage = "MonPartage" 'Nom de partage stDesc = "Mon répertoire partagé" ' Descriptif partage Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share")   errReturn = objNewShare.Create _ (stRep, stNomPartage, FILE_SHARE, _ MAXIMUM_CONNECTIONS, stDesc)

---