ca ne fonctionne pas avec moi
const login="pedro"
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set objNewShare = objWMIService.Get("Win32_Share" )
errReturn = objNewShare.Create _
("C:\data\utilisateurs\eleves\"+login, login+"$", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Public share for the Finance group." )
Wscript.Echo errReturn