Check Duplicate EmployeeID field

 

I'm looking for a vbscript that checks if the value that will gonna be signed to an employeeID field already exists in the other users accounts.  

I starting using this generic code for employeeID insertion:  

dim oVar, oUsr, tmp, title, text1 

set oVar = wscript.arguments 

set oUsr = getobject(oVar(0)) 

title = "EmployeeID Insertion" 

text1 = "Actual EmployeeID: " & oUsr.employeeID & vbcrlf & vbcrlf & "Insert or Update the EmployeeID:" & vbcrlf & vbcrlf & "(Ex: 75309889078)" 

tmp = inputbox(text1,title) 

if tmp <> "" then oUsr.put "employeeID",tmp 

oUsr.setinfo 

set oUsr = Nothing 

wscript.quit  

But now I have to tune the code with this condition: Don't exists two OR MORE users accounts with the same employeeID, and this field have to be 11 numeric characters.

Any particular reason to not use the GUID that is assigned to the account anyway?

Thanks for reply,
But it's just a core business need.
The application will use the EmployeeID to make references in our ERP.
In order to make a clean job I just wanna enforce uniqueness in this field.
Any code behind the hood?

You'd need to change the schema to really enforce uniqueness (assuming that's possible at all, not sure about it). And even if it's possible, changes to standard attributes in the schema are strongly discouraged.

If this is a business requirement, as you say: don't you have an HR system in place that already gives you unique employee IDs? Then you'd simply need to write that ID to the employeeID attribute of the respective user.

I doubt that it's possible to do what you want with VBScript, because you'd need a write-lock on the entire AD during the check/update process to avoid race conditions.

Of course, if you don't care about race conditions, you could always use an LDAP filter to enumerate (only) users with a matching employeeID field from AD:

Set objRootDSE = GetObject("LDAP://RootDSE")
base       = "<LDAP://" & objRootDSE.Get("defaultNamingContext") & ">"
filter     = "(&(objectCategory=person)(objectClass=user)(employeeID=" & tmp & "))"
attributes = "sAMAccountName"
scope      = "subtree"

Set adoConn = CreateObject("ADODB.Connection")
adoConn.Provider = "ADsDSOObject"
adoConn.Open "Active Directory Provider"

Set adoCmd = CreateObject("ADODB.Command")
adoCmd.ActiveConnection = adoConn
adoCmd.Properties("Page Size") = 100
adoCmd.Properties("Timeout") = 30
adoCmd.Properties("Cache Results") = False
adoCmd.CommandText = base & ";" & filter & ";" & attributes & ";" & scope

Set rs = adoCmd.Execute

If rs.RecordCount > 1 Then WScript.Echo "Duplicate employeeID found."

rs.Close
adoConn.Close