partage fichier

partage fichier - VB/VBA/VBS - Programmation

Marsh Posté le 20-07-2004 à 12:03:20    

je veux partage un fichier  
 
Set Shell = CreateObject("WScript.Shell" )
shell.run "RMTSHARE \\srv200\amartin$=c:\data\utilisateurs\profs\amartin /grant amartin:f /remark:"
 
il ne veut pas partager le fichier amartin

Reply

Marsh Posté le 20-07-2004 à 12:03:20   

Reply

Marsh Posté le 20-07-2004 à 14:43:46    

arrete de passer par les commande!!
 
bon ici on partage le repertoire "Finance" qui se trouve dans "c:\"
a toi d'adapter en fonction de tes besoins
autre choses: documente moi un peu sur le wsh/wmi, ça te feras pas de mal ;)

Citation :


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:\Finance", "FinanceShare", FILE_SHARE, _
        MAXIMUM_CONNECTIONS, "Public share for the Finance group." )
Wscript.Echo errReturn


Message édité par mum le 20-07-2004 à 14:45:25

---------------
last | ps3camp | f:mid
Reply

Marsh Posté le 27-07-2004 à 09:47:13    

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

Reply

Marsh Posté le 27-07-2004 à 09:56:01    

c bon reglé le prob sinon comment je peut donner la permission a 2 ou 3 utilisateurs

Reply

Sujets relatifs:

Leave a Replay

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