Discussion :

[kaiser59]

Bonjour,

J'ai mis en place la Gestion des quotas (FSRM) sur un WS2K3. Pour chaque utilisateur un dossier leur est consacré mais limité par ce FSRM.
Il faut donc leur créer un lecteur logique depuis l'AD (Propriété=>Profil puis Home folder => Connect) p. e. : p:\perso

Mon responsable ne veut pas que j'utilise une GPO (qui fonctionne :'( )

Faire ça manuellement pour 5 ou 10 personnes sa peut encore aller mais pour 150 personnes environ c'est bien c.....

J'aimerais donc savoir comment écrire dans ce "home folder" de l'AD et faire une boucle pour chaque utilisateur.

J'espère que c'est compréhensible et merci d'avance pour votre aide.

[Senji]

salut,

le mieux pour toi c'est d'avoir des groupes d'utilisateur

et faire un LCase(Join(CurrentUser.MemberOf))

comme ça tu interrogeras l'AD et si le user se trouve sur le groupe ayant droit à Home Folder tu lui fais un wshNetwork.MapNetworkDrive "H:" etc...

c'est la solution idéale que d'avoir une boucle.... imagine si vous avez 2000 employés....


bye

[kaiser59]

salut,

le mieux pour toi c'est d'avoir des groupes d'utilisateur

et faire un LCase(Join(CurrentUser.MemberOf))

comme ça tu interrogeras l'AD et si le user se trouve sur le groupe ayant droit à Home Folder tu lui fais un wshNetwork.MapNetworkDrive "H:" etc...

c'est la solution idéale que d'avoir une boucle.... imagine si vous avez 2000 employés....


bye

Euhhh tu pourrais me mettre un exemple de code pcq rien que trouver comment on se connecter à l'AD j'ai trop lutté et j'ai un qqch de ce genre en vbs :

Code vbs :

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
25
26
27
On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = _
    "SELECT Name LDAP://OU=RBX,OU=USER,dc=societe,dc=fr' WHERE objectCategory='user' " & _
        "AND msNPAllowDialin = TRUE"
Set objRecordSet = objCommand.Execute

if not objRecordSet.eof then
  objRecordSet.MoveFirst
  Do Until objRecordSet.EOF
      Wscript.Echo objRecordSet.Fields("Name").Value
      objRecordSet.MoveNext
  Loop
else
  Wscript.Echo "Personne "
end if

[Senji]

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const GROUPE_HOME_FOLDER = "cn=Every One"

Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, GROUPE_HOME_FOLDER) Then

    wshNetwork.MapNetworkDrive "h:",
    "\\FileServer\HomeFolder\"

End if

bye

[Invité]

Avec PowerShell y'aurait pas moyen de faire quelque chose ? (je connais rien à PowerShell )

[ram-0000]

(je connais rien à PowerShell )

Un peu de lecture (en anglais) ? http://powershell.com/cs/blogs/ebook/

[kaiser59]

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const GROUPE_HOME_FOLDER = "cn=Every One"

Set wshNetwork = CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, GROUPE_HOME_FOLDER) Then

    wshNetwork.MapNetworkDrive "h:",
    "\\FileServer\HomeFolder\"

End if

bye

Le code fonctionne j'entends par là, que quand je fais :

Code :

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

 Wscript.Echo strGroups

Je vois ce qu'il retourne mais, dedans il n'y a pas l'OU que je voudrais, il me sort l'OU avec "les liste de diffusions" etc.. mais pas l'endroit où je veux. En conséquence, la condition ne fonctionne jamais
Je pense qu'il s'agit de CurrentUser.MemberOf mais je ne trouve rien dessus qui pourrait me permettre d'en savoir plus dessus.