$limit = 90
$testpath = “h:\”
$resultpath = “c:\ee”
$admins = “[email protected]”
$from = “[email protected]”
$smtpserver = “smtp.domain.com”
Conseguir-ChildItem - trayectoria $testpath - Recurse | ¿? {$_.fullname.length - GT $limit} |
Nombre y apellidos del Seleccionar-Objeto,
@ {n= " dueño "; e= {
$_.GetAccessControl () .GetOwner (“System.Security.Principal.NTAccount ")}},
@ {n= " namelength "; e= {$_.fullname.length}} |
% {
El Hacia fuera-Archivo - FilePath “$resultpath \ Longfiles de $ ($_.owner - substituir” \ \ “,” - “) .txt” - añaden - InputObject “$ ($_.namelength) - $ ($_.fullname)”
}
Consiguen-ChildItem $resultpath - Filtro “longfiles de *” | % {
si ($_.name - emparejar “Longfiles \ sof \ s (. +) \ .txt”) {
$user = $matches [1] - substituir “-”, “\”
$ntacc = Nuevo-Objeto System.Security.Principal.NTAccount ($user)
$sid = $ntacc. Traducir ([System.Security.Principal.SecurityIdentifier])
$ADUSER = [ADSI] “LDAP: /”
$email = $aduser. Properties.mail
si ($email) {Enviar-MailMessage - los accesorios $_.fullname - el cuerpo “cambian por favor los nombres de fichero de los archivos enumerados en el archivo atado a más corto!” `
- De $from - SmtpServer $smtpserver - sujetar el “aviso” - a $email - cc $admins del sistema
}
{
Enviar-MailMessage - accesorios $_.fullname - el `del dueño del cuerpo “coudn't del email se envíe”
- De $from - iqjb-exchback de SmtpServer - sujetar el “aviso del sistema” - a $admins
}
}
{Escribir-Anfitrión un “cierto error con el archivo $_”}
}
|