برای اینکه شما بتوانید از مقدار employee ID در AD استفاده کنید. این مقدار به صورت پیش فرض در AD وجود دارد ولی قابل استفاده نیست. برای اینکه این مقدار را بتوان استفاده کرد باید تغییراتی در ساختار Schema بدهید. به همین دلیل باید ابتدا windows support tools را از CD ویندوز سرور نصب کنید.


۱- کنسول Schema را نصب کنید. به وسیله وارد کردن دستور regsvr32 schmmgmt.msc در منوی Run


2- برای اینکه بتوانیم employeeID و employeeNumber که به صورت مشخصه arreibute در schema وجود دارد را به person class اضافه کنیم. باید بر روی Person در Schema classes کلیک راست کرده. Attribute را انتخاب کرده. بر روی Add کلیک کرده و  employeeID را چیدا کرده و Ok را انتخاب کنید. همین مراحل را برای employeeNumber تکرار کنید.


۳- باید کنسول Active Directory Service Interfaces (ADSI) Edit را اجرا کنید. سپس به مسیر زیر بروید.


Configuration Container, CN=Configuration, CN=DisplaySpecifiers, CN=409


4- در قسمت سمت راست مقدار CN=user-display را پیدا و بر روی آن کلیک راست کنید. بر روی Properties کلیک کنید.


۵- در قسمت Edit Attribute مقدار زیر را وارد کنید.


,&Employee ID, eid.vbs


سپس Add را بزنید و مقدار زیر را انتخاب کنید.


,&Employee Number, enum.vbs


6- این مراحل باعث تنظیم شدن EmployeeID و EmployeeNumber بر روی context menu برای یک user در Microsoft Management (MMC) Active Directory Users and Computers snap-in می شود.


۷- شما باید فایل اسکریپت های زیر را نوشته و در درایو C ذخیره کنید.


 


——– 

eid.vbs 

——– 

Dim oVar 

Dim oUsr 

Dim tmp 

Set oVar = Wscript.Arguments 

Set oUsr = GetObject(oVar(0)) 

tmp = InputBox("The Employee ID of the user is: " & oUsr.employeeID & vbCRLF & vbCRLF & "If you would like enter a new number or modify the existing number, enter the new number in the textbox below") 

if tmp "" then oUsr.Put "employeeID",tmp 

oUsr.SetInfo 

Set oUsr = Nothing 

WScript.Quit 

——— 

enum.vbs 

——— 

Dim oVar 

Dim oUsr 

Dim tmp 

Set oVar = Wscript.Arguments 

Set oUsr = GetObject(oVar(0)) 

tmp = InputBox("The Employee Number for this user is: " & oUsr.EmployeeNumber & vbCRLF & vbCRLF & "If you would like enter a new number or modify the existing number, enter the new number in the textbox below") 

if tmp "" then oUsr.Put "employeeNumber",tmp 

oUsr.SetInfo 

Set oUsr = Nothing 

WScript.Quit