PC HOME SOFTWARE - parental control tools, limit kids pc time, restrict access to windows resources

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
   

Windows Privacy Tools - http//www.privacywindows.com