VBScript to get INFO from Active Directory

stefanDDD · 09-08-2008, 05:27 AM

I am trying to get account info from AD using a vb script. This is my VBScript:
"
Set objUser = GetObject _
("LDAP://CN=blue,OU=units,DC=sunap,DC=aknt")
objUser.GetInfo

strProfilePath = objUser.Get("mail")
WScript.echo "Email: " & strProfilePath
"

I get the "directory property cannot be found in the cache" error.

Im running windows 2003 std. I am sure that the users deatails are filled in correctly.

What I basically want to do is run the script when the user logs in and let it display the currents users email address according to the AD attributes

GraemeI · 09-08-2008, 08:23 AM

If you haven't done so you should add the following statement at the start.

On Error Resume Next

If you still have problems why not try this

On Error Resume Next

Set objUser = GetObject _
("LDAP://CN=blue,OU=units,DC=sunap,DC=aknt")
objUser.GetInfo

strMail = objUser.Get("mail")
WScript.Echo "Email: " & objUser.mail

09-08-2008, 05:27 AM	#1 (permalink)
stefanDDD Registered User Join Date: Sep 2008 Posts: 1 OS: Win XP/Fedora Core/Win2003/Win Vista	VBScript to get INFO from Active Directory I am trying to get account info from AD using a vb script. This is my VBScript: " Set objUser = GetObject _ ("LDAP://CN=blue,OU=units,DC=sunap,DC=aknt") objUser.GetInfo strProfilePath = objUser.Get("mail") WScript.echo "Email: " & strProfilePath " I get the "directory property cannot be found in the cache" error. Im running windows 2003 std. I am sure that the users deatails are filled in correctly. What I basically want to do is run the script when the user logs in and let it display the currents users email address according to the AD attributes

09-08-2008, 08:23 AM	#2 (permalink)
GraemeI Registered User Join Date: Aug 2008 Location: Glasgow Posts: 39 OS: Multiple	Re: VBScript to get INFO from Active Directory If you haven't done so you should add the following statement at the start. On Error Resume Next If you still have problems why not try this On Error Resume Next Set objUser = GetObject _ ("LDAP://CN=blue,OU=units,DC=sunap,DC=aknt") objUser.GetInfo strMail = objUser.Get("mail") WScript.Echo "Email: " & objUser.mail Last edited by GraemeI; 09-08-2008 at 08:24 AM.