Gestion des groupes Active Directory (débutant) - VB/VBA/VBS - Programmation
MarshPosté le 29-04-2008 à 12:04:14
Bonjour à tous
Je m'exerce depuis quelques temps avec VBS afin d'effectuer quelques opération sur mon active directory 2003.
Pour le moment, je m'en sort plutot bien (à mon niveau)
Je suis parvenu à faire les scripts suivants : - Connexion à un lecteur réseau / imprimante - Création de users dans AD avec tous les attributs nécéssaires et standards de mon architecture.
Cependant jusqu'a maintenant mon script de connexion aux lecteurs réseau se faisait en KIX et je pouvais vérifier l'appartenance d'un utilisateur à un groupe ou non afin de lui connecter ou non un lecteur défini.
Or je ne vois pas comment faire cette vérification dans mon script actuel en VBS, je vous le met ci dessous toutes les remarques sont les bonnes, je débute et je fais sans doute des erreurs : ================================================================================== option explicit dim objNetwork, diskexist
Set objNetwork = CreateObject("WScript.Network" )
Set diskexist = CreateObject("Scripting.FileSystemObject" )
if diskexist.DriveExists("Y:" ) then objNetwork.RemoveNetworkDrive "Y:" end if
if diskexist.DriveExists("X:" ) then objNetwork.RemoveNetworkDrive "X:" end if
if diskexist.DriveExists("W:" ) then objNetwork.RemoveNetworkDrive "W:" end if
Dans cet exemple je souaiterais pouvoir connecter X (formateurs) uniquement si la personne qui se connecte est membre du groupe local de sécurité "formateurs" sur mon AD.
Marsh Posté le 29-04-2008 à 12:04:14
Bonjour à tous
Je m'exerce depuis quelques temps avec VBS afin d'effectuer quelques opération sur mon active directory 2003.
Pour le moment, je m'en sort plutot bien (à mon niveau)
Je suis parvenu à faire les scripts suivants :
- Connexion à un lecteur réseau / imprimante
- Création de users dans AD avec tous les attributs nécéssaires et standards de mon architecture.
Cependant jusqu'a maintenant mon script de connexion aux lecteurs réseau se faisait en KIX et je pouvais vérifier l'appartenance d'un utilisateur à un groupe ou non afin de lui connecter ou non un lecteur défini.
Or je ne vois pas comment faire cette vérification dans mon script actuel en VBS, je vous le met ci dessous toutes les remarques sont les bonnes, je débute et je fais sans doute des erreurs :
==================================================================================
option explicit
dim objNetwork, diskexist
Set objNetwork = CreateObject("WScript.Network" )
Set diskexist = CreateObject("Scripting.FileSystemObject" )
if diskexist.DriveExists("Y:" ) then
objNetwork.RemoveNetworkDrive "Y:"
end if
if diskexist.DriveExists("X:" ) then
objNetwork.RemoveNetworkDrive "X:"
end if
if diskexist.DriveExists("W:" ) then
objNetwork.RemoveNetworkDrive "W:"
end if
objNetwork.MapNetworkDrive "X:" , "\\srv2\formateurs"
objNetwork.MapNetworkDrive "W:" , "\\srv2\commun"
objNetwork.MapNetworkDrive "Y:" , "\\srv2\default"
==================================================================================
Dans cet exemple je souaiterais pouvoir connecter X (formateurs) uniquement si la personne qui se connecte est membre du groupe local de sécurité "formateurs" sur mon AD.
---------------
yelwooga !