$limit = 90
$testpath = “h:\”
$resultpath = “c:\ee”
$admins = “[email protected]”
$from = “[email protected]”
$smtpserver = “smtp.domain.com”
Começ-ChildItem - trajeto $testpath - Recurse | ? {$_.fullname.length - GT $limit} |
Apelido e nome do Selecionar-Objeto,
@ {n= " proprietário "; e= {
$_.GetAccessControl () .GetOwner (“System.Security.Principal.NTAccount ")}},
@ {n= " namelength "; e= {$_.fullname.length}} |
% {
A Para fora-Lima - FilePath “$resultpath \ Longfiles de $ ($_.owner - substituir” \ \ “,” - “) .txt” - adicionam - InputObject “$ ($_.namelength) - $ ($_.fullname)”
}
Começ-ChildItem $resultpath - Filtro “longfiles de *” | % {
se ($_.name - combinar “Longfiles \ sof \ s (. +) \ .txt”) {
$user = $matches [1] - substituir “-”, “\”
$ntacc = Novo-Objeto System.Security.Principal.NTAccount ($user)
$sid = $ntacc. Traduzir ([System.Security.Principal.SecurityIdentifier])
$ADUSER = [ADSI] “LDAP: /”
$email = $aduser. Properties.mail
se ($email) {Emitir-MailMessage - os acessórios $_.fullname - o corpo “mudam por favor os nomes de arquivo das limas alistadas na lima unida a mais curto!” `
- De $from - SmtpServer $smtpserver - sujeitar do “a observação” - a $email - centímetro cúbico $admins sistema
}
mais {
Emitir-MailMessage - acessórios $_.fullname - o `ao proprietário do corpo do “coudn't email seja emitido”
- De $from - iqjb-exchback de SmtpServer - sujeitar do “a observação sistema” - a $admins
}
}
mais {Escrever-Anfitrião “algum erro com lima $_”}
}
|