Assistent in Globaler Adressliste

[chucki 10]

Hallo zusammen!

 

Ich habe folgendes Problem:

 

In der globalen Adressliste gibt es unter Eigenschaften des Users ein Feld in dem der Assistent angegeben ist. Dieses Feld scheint noch aus der Zeit von Exchange 5.5 zu stammen, da es im AD keinerlei einstellungsmöglichkeiten für dieses Feld gibt.

 

Hier steht jetzt leider immer noch (muß bei migration übernommen worden sein) bei einem Chef der Name einer bereits ausgeschiedenen Sekretärin drin, obwohl über die Stellvertretung bereits eine neue Sekretärin definiert ist. Dieser Eintrag scheint sich dahin aber nicht replizieren.

 

Wie kann ich diesen Eintrag ändern?

 

Muß ich jetzt in die tiefen des ADSIEDIT vordringen um diesen verweisten Eintrag ändern zu können???

 

Wenn ja, kann mich da einer hinführen

 

Vielen Dank für eure Antworten.

[chucki 10]

Is ja ein Klasse Forum hier.... nicht mal eine Idee kam!

 

Ich habe jetzt mittels vbs Scribt das Feld ausgelesen... sehr lange Suche. Das Feld Assistent kann nicht über das AD verändert werden.

 

Über das Feld "distinguishedName" läßt sich auch der Assistent auslesen und dann ändern!

[GuentherH 61]

Hi chucki.

 

Du hast anscheinend den Sinn eines /dieses Boards noch nicht ganz verstanden.

 

Hier helfen Member mit Ihrem Wissen und Ihrer Erfahrung kostenlos, freiwillig und aus Spaß am Beruf / Sache

 

Es kann aber immer wieder vorkommen, dass ein Fehler nicht bekannt ist, oder ein Member der mit diesem Fehler schon zu tun hatte einfach einmal nicht am Board vorbeischaut. Deshalb wird es hier immer wieder Anfragen und Beiträge geben, die nicht beantwortet werden.

 

Deshalb gleich mit dem Daumen nach unten zu zeigen, ist daher aus meiner Sicht völlig unangebracht.

 

Vielmehr hilft es weiter, wenn bei einem gelösten Problem die Lösung hier gepostet wird.

 

In diesem Sinne - es gibt noch einige Beiträge ohne Antworten, bei denen du ja weiterhelfen kannst.

 

LG Günther

[chucki 10]

Okok... hast ja recht. Es tut mir leid das ich gleich so überreagiert habe ;)

 

hier das vbs Script: (vielleicht hilft es jemanden der das selbe prob hat!)

 

--------------------------------

 

Const ADS_SCOPE_SUBTREE = 2

dim n

dim z

dim dn

 

n = inputbox("Bitte mailboxnamen eingeben!")

 

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = "Select distinguishedName, name, msExchAssistantName from 'LDAP://DC=domäne,DC=intra' " & "where objectClass='user' and name = '" & n & "' "

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Timeout") = 30

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.Properties("Cache Results") = False

Set objRecordSet = objCommand.Execute

 

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

dn = objRecordSet.Fields("distinguishedName").Value

Wscript.Echo "Name: " & objRecordSet.Fields("distinguishedName").Value

Wscript.Echo "Assistant: " & objRecordSet.Fields("msExchAssistantName").Value

objRecordSet.MoveNext

Loop

 

z = inputbox("Bitte 'Assistant' namen eingeben!")

 

Set objUser = GetObject ("LDAP://" & dn & "")

objUser.Put "msExchAssistantName", z

objUser.SetInfo

 

set objUser = nothing

set objRecordSet = Nothing

Set objCommand = nothing

Set objConnection = nothing

 

_______________________

 

aufruf mit cmd datei mit folgendem Inhalt:

 

cscript c:\lage_des_scriptes\getname.vbs

[GuentherH 61]

Hi chucki.

 

Danke für die Info :) wird sicher einmal gebraucht.

 

 

LG Günther