How can I add employee IDs and employee numbers to Active Directory?

The employee ID and employee number fields are already in Active Directory (AD). However, you need to tie them to a particular class. First, you must install the Windows 2000 Support Tools from the Win2K CD-ROM (Support/Tools), then perform the following steps:

  1. Install the Schema snap-in (Start, Run, regsvr32 schmmgmt.msc).
  2. To add the employeeID and employeeNumber attributes to the person class, open the Schema console and navigate to Classes, Person. Right-click Person and select Properties. Select Attributes, click Add, then locate and click employeeID. Click OK. Click Add again. Locate and click employeeNumber, then click OK twice to close both dialog boxes.
  3. Open the Active Directory Service Interfaces (ADSI) Edit utility, then navigate to Configuration Container, CN=Configuration, CN=DisplaySpecifiers, CN=409.
  4. In the right-pane, locate and right-click CN=user-display, and select Properties.
  5. In the Edit Attribute box, type the following:
    ,&Employee ID, eid.vbs
    
    then click Add, and type the following:
    ,&Employee Number, enum.vbs
    
  6. These steps configure the options Employee ID and Employee Number on the context menu for a user in the Microsoft Management Console (MMC) Active Directory Users and Computers snap-in.
  7. You must write and place the following scripts on your C drive or somewhere else in your file path:
    --------
    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
    

1st Security Agent

Mail Bomber

Security Administrator

PC Lockup

Access Lock

Access Administrator Pro

ABC Security Protector

1st Security Agent

Mail Bomber

Security Administrator for Windows

PC Lockup

Access Lock

Access Administrator

ABC Security Protector

http//www.softheap.com