Newsgroup: it.comp.os.win.win2000
Titolo: Creazione cartella x ogni utente

Vorrei fare in modo che ogni utente del mio dominio si trovasse, gia
pronta (con le opportune protezioni), una cartella sul file server.
Io ho fatto questo, ma funziona solo se sono io, specificando
nomeutente, a lanciarlo (interattivamente)
C'è qualcosa da poter metter a login?
Ciao
p.s. a me funziona perchè sono amministratore ed ho il resourcekit ...
ma per gli utenti 'normali' ???
**********************************
On Error Resume Next
Set objWSH = CreateObject("WScript.Shell")
DOMINIO = objWSH.ExpandEnvironmentStrings("%USERDOMAIN%")
If DOMINIO = "" Then
        WScript.quit
End If
Set FS = CreateObject("Scripting.FileSystemObject")
Set DomainObj = GetObject("WinNT://" & DOMINIO)
Set objWSH = CreateObject("WScript.Shell")
parentDir = "\\FileServer\Users-Folder\"
NomeUtente=inputbox("Inserisci il nome utente per cui vuoi creare la
cartella in " & parentDir)
if nomeutente<>"" or not isnull(nomeutente) then
        str_UserDir = parentDir & "\" & NomeUtente
        If Not FS.FolderExists(str_UserDir) Then
              FS.CreateFolder (str_UserDir)
              strCommand =  Chr(34) & "C:\Programmi\Resource Kit\xcacls"
& Chr(34) & " " & Chr(34) & str_UserDir & Chr(34) & " /G " & Chr(34) &
NomeUtente & Chr(34) & ":F /Y"
              objWSH.run strCommand, 7, True
              strCommand = Chr(34) & "C:\Programmi\Resource Kit\xcacls"
& Chr(34) & " " &  Chr(34) & str_UserDir & Chr(34) & " /E /G " & Chr(34)
& "Domain users" & Chr(34) & ":X;R"
              objWSH.run strCommand, 7, True
	else
		MSGBOX (parentDir & " esiste")
        End If
end if
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 pronta (con le opportune protezioni), una cartella sul file server.
Quando crei l'utente in AD puoi specificare qual'e' la sua home dir e a che 
lettera di unità mapparla.
Quindi durante la creazione dell'utente puoi, nel tab Profile, dove si 
specifica HomeFolder, specificare la lettera di unità mappata in automatico 
e il percorso che sarà un acosa del tipo: 
\\nomeserver\users-folders\%username%
puoi anche scriptare una roba che elenca tutti gli utenti di una OU e gli 
cambia la home direcotry, cioè uno script simile:
Set ObjOU= GetObject("LDAP://OU=OUNomeOU,DC=NomeDominio")
For Each ObjUser In ObjOU
     ObjUser.Put "homedirectory", "\\nomeserver\users-folders\" & 
objUser.sAMAccountName
     objUser.SetInfo
next
dove
OUNome è il nome dell'eventuale OU dei tuoi utenti
NomeDominio è il nome del tuo dominio AD
Se non hai OU, e se non ricordo male, puoi usare "OU=Domain Users"
Bye
-- 
Diego
L'Italiano medio ha un testicolo, una tetta e meno di due gambe! 


Se non vuoi usare le Home dir, io ho messo nello script di login :
---------------------
:main
echo off
net use P: \\file_server\public /persistent:NO
if not exist \\file_server\%username% goto makeit
goto fine
:makeit
md \\file_server\%username%
echo y| cacls \\file_server\%username% /t /c /e /g %username%:c
echo y| cacls \\_server\%username% /t /c /e /g "domain admins":f
goto fine
:fine
call eventuali script aggiuntivi
------------------------------------------
mappa 2 drive e gestisce i permessi sulla cartella utente
Bye
Nitro

Impostare la home directory in AD (con script o a mano..) presuppone che
le cartelle siano gia preesistenti. dico male?
cioa



uhm... dici bene...


 
Si.. Se metti nella home su ad il percorso di rete (es. 
\\server\share\username) lui lo crea automaticamente.. Anzi, se c'è 
qualcosa di sbagliato ti da errore (anche se poi accetta quello che hai 
messo)
Saluti
LC