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