> Tech > Script VBscript

Script VBscript

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

Le script suivant permet d’afficher et de modifier l’identifiant de l’utilisateur. Cet attribut étant déjà présent dans le schéma LDAP d’Active Directory, vous ne devez pas le modifier pour l’utiliser. Paramétrage d’Active Directory

1) Ouvrez ADSIEDIT.msc (installé avec les supports tools)

2) Déplacez vous dans le

conteneur suivant de la partition de configuration (Context Naming): CN=Configuration, puis CN=DisplaySpecifiers, puis CN=40C pour la langue française,

3) Sélectionnez l’objet CN=user-display et ouvrez-le en double-cliquant dessus,

4) Dans l’attribut context-menu ajoutez les informations suivantes : 1,&Identifiant Utilisateur,C:\scripts\ IdentifiantUser.vbs (le signe & permet de souligner le caractère dans les touches de raccourcis). Voir Figure 3. En utilisant la console « Utilisateurs et ordinateurs Active Directory » vous pouvez voir apparaître cette nouvelle commande en faisant un clic droit sur un objet utilisateur. Voir Figure 4.

Vous pouvez spécifier un chemin réseau UNC dans l’attribut pour que vos scripts fonctionnent également sur des postes distants.
Création du script d’affichage et de modification de l’identifiant de l’employé

IdentifiantUser.vbs
Dim oVar
Dim oUtilisateur
Dim temp

Set oVar = Wscript.Arguments
Set oUtilisateur = GetObject(oVar(0))

temp = InputBox("L’identifiant de l’utilisateur est: " &
oUtilisateur.employeeID & vbCRLF & vbCRLF & "Vous pouvez le modifier en renseignant le nouvel identifiant")
if temp <> "" then oUtilisateur.Put "employeeID",temp oUtilisateur.SetInfo
Set oUtilisateur = Nothing
WScript.Quit

Téléchargez cette ressource

Comment accélérer la transformation des environnements de travail ?

Comment accélérer la transformation des environnements de travail ?

Dans un monde professionnel en pleine mutation, la mobilité, l’efficacité énergétique, la sécurité et l’intelligence embarquée sont devenues des critères décisifs pour les équipements informatiques. Découvrez comment les nouveaux PC Microsoft Surface dotés des processeurs Snapdragon X Series s’imposent comme une réponse stratégique aux nouveaux enjeux IT.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010