Printable View
HI, we are running a MS Exchange 2000 DC server. Everything is working fine, no huge problems except one. Whenever I go to Address book in my Outlook and double click on any name in the Globle Address List, I see several field of that user’s details such asFirst Name, Last Name, Display Name, Alias.. Address, City, etc. But I cannot see "Assistant" field anywhere in the entire AD?
Where can I get this field so that I can make some changes? Please help soon.
Hey i came to add one more small detail. After posting my above post i was doing some research and came through an utility named as Galmod32. In its description i found that it allows any user to change their own properties according to http://support.microsoft.com/default...;EN-US;q272198. This is what i dont want to be happen. I mean, i dont want to allow people to change properties using Galmod32. As an administrator how can change their properties from the AD and restrict them altering the same using Galmod32?
As far as I know the assistant attribute wont get displayed in the ADUC because it is an DN attribute. Which means the value should be a valid Distinguished Name. However you can use a VBScript program in order to display assistant value for all users in the domain. If you want here is the script:
Quote:
============================
Option Explicit
Dim objRootDSE, strDNSDomain, objCommand, objConnection
Dim strBase, strFilter, strAttributes, strQuery, objRecordSet
Dim strAssistant, strNTName
' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCategory=person)(objectClass=user))"
strAttributes = "sAMAccountName,assistant"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
strNTName = objRecordset.Fields("sAMAccountName").Value
strAssistant = objRecordSet.Fields("assistant").Value
Wscript.Echo "User: " & strNTName & " - Assistant: " & strAssistant
objRecordSet.MoveNext
Loop
' Clean up.
Set objRootDSE = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
Set objRecordSet = Nothing
=======================
Actually,
assistant is NOT THE correct field. I tried both the ADSI and the VBScript methods and neither one worked.
I went on digging into the meriads of fields in ADSI and finally found the correct data field to for Assistant.
It is msExchAssistantName and is a DirectoryString, not a DN, which makes it easier to populate the field as it accepts any data strings instead of a DN.
I owe it to the internet community to publish my findings :)
Best regards
Jim
You can enter the value through Adsiedit
Expand Domain configuration ->
Expand DC=abc,DC=con ->
CN=your ou name where that user resides ->
Properties of the user (cn=abc)
look for MsexchAssistantName ->
Type in value that you wish ->
Ok
Then check whether the same has been reflected on to the
users properties
Correct Answer is of Arun Iyer
I have just tested this and its working perfectly fine
Assistant name got changed immediately .
Big Thanks !! Arun
Regards
Nitin