Forum libero

Const SERVER_ALT = "\\babbacammelli\D$\"
> > Const strComputer = "babbacammelli"
> > Const DOMINIO = "dominio\"
> > Const FS = 0
> > 
> > set objShell = CreateObject("Wscript.Shell")
> > set
> fso=CreateObject("Scripting.FileSystemObject")
> > set ots=fso.opentextfile("Condivisioni.csv")
> > 
> > DIm objWMIService
> > Dim objNewShare
> > Dim strSharePath
> > Dim strShareName
> > Dim strShareDesc
> > 
> > 'oggetto Win32_Share per la condivisione        
> >         Set objWMIService = GetObject("winmgmts:" &
> > "{impersonationLevel=impersonate}!\\" &
> > strComputer &
> > "\root\cimv2")
> >         Set objNewShare =
> > objWMIService.Get("Win32_Share")
> > 
> > do while not ots.AtEndOfStream
> >     s=ots.readline
> >     vals=Split(s,";",-1,1)
> >     cartella=vals(0)
> >     utente=vals(1)
> >     permesso=vals(2)
> >     Wscript.Echo "cartella=" & cartella & "
> > utente=" & utente & " permesso=" &
> > permesso
> >     remotePath=SERVER_ALT & cartella
> >     If fso.FolderExists(remotePath) then
> >         Wscript.Echo "La cartella " & cartella &
> > "
> > esiste."
> >     Else
> >         Wscript.Echo "La cartella " & cartella &
> > " esiste solo nella tua
> > mente."
> >         fso.CreateFolder(remotePath)
> >         'condivide la cartella con Everyone in
> > scrittura:
> >         strSharePath = "d:\" & cartella
> >         strShareName = cartella
> >         strShareDesc = "Cartella condivisa
> > automaticamente"
> >         wscript.echo "La cartella " & strSharePath & "
> > verra' condivisa con nome " &
> > strShareName
> >         errReturn = objNewShare.Create (strSharePath,
> > strShareName, FS, ,
> > strShareDesc)
> >         wscript.echo "Errore: " & errReturn
> >         
> > 
> >         'Elimina permessi NTFS superflui    
> >         intRunError=objShell.Run("%COMSPEC% /c cacls
> > """ & remotePath & """ /T /E /R ""NT
> > AUTHORITY\Authenticated
> > users""",,True)
> >         intRunError=objShell.Run("%COMSPEC% /c cacls
> > """ & remotePath & """ /T /E /R
> > ""BUILTIN\Users""",,True)
> > 
> >                 
> >     End If
> >     intRunError=objShell.Run("%COMSPEC% /c cacls
> """
> > & remotePath & """ /T /E /R " & DOMINIO &
> > utente,,True)
> >     intRunError=objShell.Run("%COMSPEC% /c cacls
> > """ & remotePath & """ /T /E /G " & DOMINIO &
> > utente & ":" &
> > permesso,,True)
> >     
> > loop
> > ots.close