Consulta AD

01/04/2008 - 08:51 por Alejandro | Informe spam
Buenos dias y gracias por anticipado, necesito hacer una consulta que me diga
las direcciones de correo que hay en mi organizacion.

Un Saludo
 

Leer las respuestas

#1 Javier Inglés [MS MVP]
01/04/2008 - 09:00 | Informe spam
http://www.msexchange.org/articles/...esses.html

http://www.petri.co.il/forums/showthread.php?t199

Si tienes Exchange 2007 puedes usar esto (formulario que te pide el nombre
de SMTP a buscar y que lo contena el usuario y te los muestra):

http://www.microsoft.com/technet/sc...p0208.mspx

[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[void]
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

$objForm = New-Object System.Windows.Forms.Form
$objForm.Text = "Data Entry Form"
$objForm.Size = New-Object System.Drawing.Size(300,200)
$objForm.StartPosition = "CenterScreen"

$objForm.KeyPreview = $True
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter")
{$x=$objTextBox.Text;$objForm.Close()}})
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape")
{$objForm.Close()}})

$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(75,120)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = "OK"
$OKButton.Add_Click({$x=$objTextBox.Text;$objForm.Close()})
$objForm.Controls.Add($OKButton)

$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Size(150,120)
$CancelButton.Size = New-Object System.Drawing.Size(75,23)
$CancelButton.Text = "Cancel"
$CancelButton.Add_Click({$objForm.Close()})
$objForm.Controls.Add($CancelButton)

$objLabel = New-Object System.Windows.Forms.Label
$objLabel.Location = New-Object System.Drawing.Size(10,20)
$objLabel.Size = New-Object System.Drawing.Size(280,20)
$objLabel.Text = "Dirección de correo SMTP a buscar:"
$objForm.Controls.Add($objLabel)

$objTextBox = New-Object System.Windows.Forms.TextBox
$objTextBox.Location = New-Object System.Drawing.Size(10,40)
$objTextBox.Size = New-Object System.Drawing.Size(260,20)
$objForm.Controls.Add($objTextBox)

$objForm.Topmost = $True

$objForm.Add_Shown({$objForm.Activate()})
[void] $objForm.ShowDialog()

$Texto = "Buscando objectos en cuya dirección SMTP se encuentre:"
write-host -f yellow $Texto
write-host -f green $x

Get-Mailbox -server <el nombre del mailbox server> | where
{$_.EmailAddresses -match $x} | fl
DisplayName,EmailAddresses,PrimarySmtpAddress,DistinguisedName



Salu2!!
Javier Inglés
https://mvp.support.microsoft.com/p...B5567431B0
MS MVP, Windows Server-Directory Services



"Alejandro" escribió en el mensaje
news:
Buenos dias y gracias por anticipado, necesito hacer una consulta que me
diga
las direcciones de correo que hay en mi organizacion.

Un Saludo

Preguntas similares