$limit = 90
$testpath = «h:\»
$resultpath = «c:\ee»
$admins = «[email protected]»
$from = «[email protected]»
$smtpserver = «smtp.domain.com»
Получите-ChildItem - курс $testpath - Recurse | ? {$_.fullname.length - gt $limit} |
Fullname Выбирать-Предмета,
@ {n= " предприниматель "; e= {
$_.GetAccessControl () .GetOwner («System.Security.Principal.NTAccount ")}},
@ {n= " namelength "; e= {$_.fullname.length}} |
% {
Вне-Архив - FilePath «$resultpath \ Longfiles $ ($_.owner - замените» \ \ «,» - «) .txt» - приложите - InputObject «$ ($_.namelength) - $ ($_.fullname)»
}
Получите-ChildItem $resultpath - Фильтр «longfiles *» | % {
если ($_.name - сопрягайте «Longfiles \ sof \ s, то (. +) \ .txt») {
$user = $matches [1] - замените «-», «\»
$ntacc = Нов-Предмет System.Security.Principal.NTAccount ($user)
$sid = $ntacc. Переведите ([System.Security.Principal.SecurityIdentifier])
$ADUSER = [ADSI] «LDAP: /»
$email = $aduser. Properties.mail
если ($email), то {Пошлите-MailMessage - приложения $_.fullname - тело «пожалуйста измените filenames архивов зарегистрированных в прикрепленном архиве к короткой!» `
- От $from - SmtpServer $smtpserver - подвергните «извещение о» - к $email - cc $admins системы
}
еще {
Пошлите-MailMessage - приложения $_.fullname - `предпринимателю тела «coudn't электронная почта пошлите к»
- От $from - iqjb-exchback SmtpServer - подвергните «извещение о системы» - к $admins
}
}
еще {Писать-Хозяин «некоторая ошибка с архивом $_»}
}
|
