$limit = 90
$testpath = “h:\„
$resultpath = “c:\ee„
$admins = “[email protected]„
$from = “[email protected]„
$smtpserver = “smtp.domain.com„
Ottenere-ChildItem - percorso $testpath - Recurse | ? {$_.fullname.length - GT $limit} |
Nome e cognome dell'Selezionare-Oggetto,
@ {n= " proprietario "; e= {
$_.GetAccessControl () .GetOwner (“System.Security.Principal.NTAccount ")}},
@ {n= " namelength "; e= {$_.fullname.length}} |
% {
Fuori-Lima - FilePath “$resultpath \ Longfiles di $ ($_.owner - sostituire„ \ \ “,„ - “) .txt„ - aggiungono - InputObject “$ ($_.namelength) - $ ($_.fullname)„
}
Ottengono-ChildItem $resultpath - Filtro “longfiles di *„ | % {
se ($_.name - abbinare “Longfiles \ SOF \ s (. +) \ .txt„) {
$user = $matches [1] - sostituire “-„, “\„
$ntacc = Nuovo-Oggetto System.Security.Principal.NTAccount ($user)
$sid = $ntacc. Tradurre ([System.Security.Principal.SecurityIdentifier])
$ADUSER = [ADSI] “LDAP: /„
$email = $aduser. Properties.mail
se ($email) {Trasmettere-MailMessage - collegamenti $_.fullname - il corpo “prego cambiano i nomi di schedario delle lime elencate nella lima allegata a più breve!„ `
- Da $from - SmtpServer $smtpserver - sottoporre “l'avviso„ - a $email - il cc $admins del sistema
}
altrimenti {
Trasmettere-MailMessage - collegamenti $_.fullname - il `al proprietario del corpo “coudn't del email be è trasmesso„
- Da $from - iqjb-exchback di SmtpServer - sottoporre “l'avviso del sistema„ - a $admins
}
}
altrimenti {Scrivere-Ospite “un certo errore con la lima $_„}
}
|