-dar-

Lösung:

 

Teil 1 - auslesen samaccountname + legacyExchangeDN

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

set fs = CreateObject ("Scripting.FileSystemObject")

datei1 = "legExchDN.txt"

Set userinfo = fs.CreateTextFile (datei1,true)

userinfo.writeline "SamAccountName legacyExchangeDN"

 

Set root = GetObject ("LDAP://rootDSE")

dom = Inputbox("Domain:","ADSPath",root.Get("defaultNamingContext"))

 

If dom = "" Then

MsgBox "Script wird auf Benutzerwunsch hin abgebrochen."

Wscript.Quit

else

dom = "<LDAP://" & dom

End If

 

 

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = dom & ">;(&(objectCategory=person)(objectClass=user)(legacyExchangeDN=*));ADsPath;subtree"

Set objRecordSet = objCommand.Execute

While Not objRecordset.EOF

strADsPath = objRecordset.Fields("ADsPath")

Set objUser = GetObject(strADsPath)

userinfo.writeline objuser.samaccountname & vbtab & objuser.legacyExchangeDN

objrecordset.MoveNext

set objuser = nothing

Wend

 

userinfo.close

Set userinfo= Nothing

set fs = Nothing

 

wscript.echo "Fertig..."

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

 

Teil 2 - setzen der X.500 Adresse für alle Benutzer aus Teil 1

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

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile("x500.txt", ForReading)

Do Until objTextFile.AtEndOfStream

strNextLine = objTextFile.Readline

arr = Split(strNextLine , chr(9))

SetProxyAddressForUser arr(0),arr(1) 'Parameter: Benutzer, X500-Adresse

Loop

 

 

Sub SetProxyAddressForUser(sUser,sAddress)

' WScript.Echo sUser & ";" & sAddress

 

Set oUser = GetObject ("LDAP://CN=" & sUser & ",OU=domain user,DC=dom1,DC=local")

vProxyAddresses = oUser.ProxyAddresses

nProxyAddresses = UBound(vProxyAddresses)

bFound=False

for i = 0 to nProxyAddresses

If vProxyAddresses(i) = sAddress then

bFound = True

Exit For

End If

next

If not bFound then

Redim Preserve vProxyAddresses(nProxyAddresses + 1)

vProxyAddresses(nProxyAddresses + 1) = sAddress

oUser.ProxyAddresses = vProxyAddresses

oUser.SetInfo

End If

End Sub

 

wscript.echo "Fertig..."

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

 

ich weiss nicht, ob noch etwas optimiert werden sollte, aber es funktioniert erstmal ;)

 

Grüße

Guten Abend,

 

ich bin gerade dabei, ein vbs-Script zu schreiben, nur klappt dies nicht so ganz.

 

Was habe ich vor:

 

- ich möchte die Felder Vorname, Nachname, LegacyExchangeDN aus dem AD (AD1) auslesen und in eine TXT-Datei schreiben.

 

- im anderen AD (AD2) will ich, nach Anpassung der TXT-Datei, das Feld proxyaddresses füllen, für die gleichen Benutzer.

 

Die Benutzer gibt es sowohl im AD1, als auch im AD2.

 

Kann mir jemand Starthilfe geben, um mein derzeitiges Wirrwarr im Kopf zu entwirren?

 

Danke.