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