retrieve empolyee ID from Active Directory VBS

[bghanim]

Hello All,

I'm developing some outlook forms, and I need some VBScript to get employee ID from Active directory on my company LAN i.e. when my outlook form is accessed by any employee, his employee ID should be displayed on the form. Empolyee ID is a custom attribute that was added to each user object in AD.

Any help is greatly appreciated.

Regards,
Baha A. Ghanim

[ALL]

where or how is the id sent or located?

can you give more spacifics?

[bghanim]

Employee Id is a acustom attribute added to each user object in AD by the following script

'Get users path
Set wshArgs=Wscript.Arguments

Set objAD = GetObject(wshArgs(0))
z = objAD.EmployeeID
a = MsgBox("User: " & objAD.cn & vbCrLf & "Employee ID: " & z & vbCrLf & vbCrLf &"Change?: ", vbYesNo + vbDefaultButton2, "Employee ID")

if a = vbYes then
	r = InputBox("Enter New ID:", "Change EmployeeID",z)
	if r <> "" then
		objAD.EmployeeID = r
		objAD.setinfo
	end if
end if

Upon clicking employee id, the following msgbox appears

[ALL]

then it should be:

Set wshArgs=Wscript.Arguments

Set objAD = GetObject(wshArgs(0))
z = objAD.EmployeeID

now the variable "z" now contains the employee id.

[bghanim]

Well, but how to run this code? I used cscript, but it gives error

C;\>cscript test.vbs bghanim
C:\test.vbs(3, 1) (null): Invalid syntax

BTW, is this code will run on any machine on the LAN?

[bghanim]

I've solved the problem, simply you query the LDAP database and u will get what you need :-)

Thanx for replying on my thread.

Regards,
Baha

[beamup]

i would appreciate if the things written are clearly written .....

I could not get it.