AD: E-Mail-Typ auslesen

[ingo.O]

Zitat von woiza Ja klar geht das, aber dann hast du alle Adresstypen durcheinander... Edit: Man kann das natürlich auch dann mit einem Makro bereinigen, aber eleganter wäre gleich in vbs. Ich poste nachher das Skript, dann wirds klarer.

das wäre prima, würde mich sehr interessieren, zumal ich bezüglich scripts noch voll der bauer bin

[olc]

Zitat von woiza Nein Fax ist kein eigenes Attribut, sondern ein Wert im mehrwertigen Attribut "Proxy Addresses". Wenn ich das mit dsquery auslese, bekomme ich auch die diversen SMTP Adressen, die x.400 Adresse usw. Man kann es aber per Script mit "getex" auslesen und dann das Array nach dem richtigen durchsuchen.

Ah, ok. Jetzt verstehe ich das Problem.

Könnte man z.B. so in der PowerShell erledigen:

$category = "(&(objectclass=user)(objectcategory=user)(proxyaddresses=fax*))"
$AD = [ADSI]"LDAP://DC=testdom,DC=intern"
$properties = "samaccountname", "proxyaddresses"

$search = New-Object System.DirectoryServices.DirectorySearcher($AD,$category)
$search.PageSize = 1000

foreach ($value in $properties) {
$search.PropertiesToLoad.Add($value)
}


$result = $search.Findall()


foreach ($val1 in $result) {
	write-host
	write-host
	write-host $val1.properties.samaccountname
	write-host =======================

	foreach ($val2 in $val1.properties.proxyaddresses) {
		if ($val2 -like "fax*") {	
			write-host $val2
		}
	}

}

Viele Grüße
olc

[blub]

als Freund von Einzeilern

get-qaduser | format-table name,fax -autosize | out-file C:\Temp\UsersAndFax.txt

oder wie gewünscht nur User mit nichtleeren Faxnummern

get-qaduser | ?{$_.fax -match "."} |format-table name,fax,phonenumber,pager -autosize | out-file C:\Temp\UsersAndNumbers.txt

Allerdings müssen die kostenlosen cmdlets von quest installiert sein: PowerShell Commands for Active Directory Quest Software Die sind für die ADVerwaltung mit der Powershell fast schon Pflicht

cu
blub

[HamSpirit]

Hallo zusammen!

Um meine Fragestellung einmal auf den Punkt zu bringen, anbei ein Auszug aus den Einstellungen meines Benutzerkontos inkl. der Fax-Adresse.

Danke für Eure bisherige Hilfe. Die Ein- und Mehrzeiler werde ich nachher einmal testen.

Schönen Gruß und ein schönes langes Wochenende!

Axel

[kwakS]

Hallo zusammen,

ich stehe vor dem gleichen Problem wie Hamspirit.

Der Code von olc hat in meiner Testumgebung funktioniert.
Der coole Einzeiler hat leider nicht den gewünschten Erfolg gebracht. Die txt Datei war leer (obwohl User mit Faxnr existieren)

Dies nur als Feedback

[NilsK]

Moin,

hier noch eine andere Variante. Das folgende Skript gibt alle SMTP-Adressen aus dem AD aus, die in dem Attribut proxyAddresses stehen (welches ja auch hier relevant ist):

faq-o-matic.net » Alle Mailadressen anzeigen

Um die Fax-Adressen statt der SMTP-Adressen anzuzeigen, muss nur eine Zeile geändert werden:

If LCase(Left(arrProxyAddresses(i),5)) = "smtp:" Then

ändern in:

If LCase(Left(arrProxyAddresses(i),5)) = "fax:" Then

Und wenn du die Ausgabe dann noch auf den richtigen Typ korrigieren willst, änderst du hier die "Beschriftung" entsprechend:

objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6)

Gruß, Nils