Discussion :

[benissam]

Suite à cette discussion.

salut,

J'ai regarder ton script, il me plait bien et j'aimerai m'en inspirer.

Ma particularité, c'est que j'ai un serveur de fichiers ds lequel j'autorise 2 partage pour chaques utilisateurs (voir + cas particulier).
Le 1er partage = autorise seul l'utilisateur à y acceder.
Le 2eme partage= autorise un groupe de l'AD (1 partage par service).

Les droits d'acces à ces répertoires sont gerés avec l'AD.

Je voudrais donc mapper le "partage service" qu'ilà u y a sur le serveur de fichiers pour chaques groupes.

Si quelqu'un a une idee

merci

ps: Une petite question, peut on lancer lancer plusieurs scripts de login pour une meme session utilisateur?

[ced600]

En fouillant dans cette documentation en ligne, tu pourrait peut être trouver ton bonheur :
http://msdn.microsoft.com/library/de.../using_wmi.asp

[benissam]

j ai un script que je lance à chaques ouverture de session des utilisateurs pour remonter les lecteurs mappe et imprimantes en fonction de leur appartenance à un groupe dans l'AD.
Mais il marche pas, il affiche le groupe auquel appartient l'utilisateur mais ne remonte pas les lecteurs et imprimantes.

ce script est le suivant:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
' GroupMap.vbs
' VBScript pour voir les membres d’un groupe et leurs affecter un lecteur mapper 
' sur un dossier partagé et installer des imprimantes.
' -----------------------------------------------------------------' 
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
 
' Initialisation des Groupes avec Const
Const Datu_Group = "cn=DATU"
Const Managers_Group = "cn=managers"
Const Users_Group = "cn=users"
Const Admin_Group = "cn=admin"
Const dsi_Group = "cn=dsi"
 
' Créer les objects et relever le contenu de  strGroup 
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))
 
' Si le test des groupes est concluant il affiche les noms des groupes
' auquels appartient l'utilisateur et mappe le lecteur réseau pour les partages ci dessous
' et enfin installe les imprimantes ci dessous.
If InStr(strGroup, lcase(admin_Group)) Then
'WScript.Echo "admin "
objNetwork.MapNetworkDrive "O:", "\\serv1\tech\" _
& objNetwork.UserName
objNetwork.AddWindowsPrinterConnection "\\serv1\hp8500"
objNetwork.SetDefaultPrinter "\\serv1\COPDATU"
 
ElseIf InStr(strGroup, lcase(dsi_Group)) Then
WScript.Echo " dsi " 
objNetwork.MapNetworkDrive "h:", "\\serv1\tech\"_
& objNetwork.UserName
 
End If
Wscript.Echo "Finished Testing for Groups "
WScript.Quit

Pouvez vous m'orienter dans les modifications à apporter.

merci

[ced600]

regarde ici :
http://msdn.microsoft.com/library/de...networking.asp
et regarde les objets qui sont utilisés.
C'est tout ce que j epeut faire pour toi, je n'ai pas le temps de regarder ton code en ce moment.