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