Discussion :

[pricrot]

Bonjour,
J'ai fais un script pour me connecter à l'Active Directory, et créer un répertoire au nom de chaque utilisateur de l'OU=Utilisateur. Jusque là, ça fonctionne bien. Le problème c'est pour l'attribution des droits RW à l'utilisateur. Pour le moment, le script étant exécuté par l'administrateur, c'est lui qui a tous les droits sur les rep créé.
Si quelqu'un pouvait me donner un coup de main pour intégrer dans le script l'attribution des droits à l'utilisateur correspondant, ce serait génial.
Merci
Phil

[ced600]

Voici un code qui pourrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Changing Folder Attributes
Demonstration script that uses the FileSystemObject to check if a folder is hidden and, if it is not, hides it.
Script must be run on the local computer.
Script must be run on the local computer.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2 
End If

[ced600]

Ceci sera peut être plus simple d'utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Retrieving Folder Properties
Lists the properties of the folder C:\Scripts.
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory where name = 'c:\\Scripts'")
For Each objFolder in colFolders    
  Wscript.Echo "Archive: " & objFolder.Archive    
  Wscript.Echo "Caption: " & objFolder.Caption    
  Wscript.Echo "Compressed: " & objFolder.Compressed    
  Wscript.Echo "Compression method: " & objFolder.CompressionMethod    
  Wscript.Echo "Creation date: " & objFolder.CreationDate    
  Wscript.Echo "Encrypted: " & objFolder.Encrypted    
  Wscript.Echo "Encryption method: " & objFolder.EncryptionMethod    
  Wscript.Echo "Hidden: " & objFolder.Hidden    
  Wscript.Echo "In use count: " & objFolder.InUseCount    
  Wscript.Echo "Last accessed: " & objFolder.LastAccessed    
  Wscript.Echo "Last modified: " & objFolder.LastModified    
  Wscript.Echo "Name: " & objFolder.Name    
  Wscript.Echo "Path: " & objFolder.Path    
  Wscript.Echo "Readable: " & objFolder.Readable    
  Wscript.Echo "System: " & objFolder.System    
  Wscript.Echo "Writeable: " & objFolder.Writeable
Next