Получение Error записей из системного лога за указанную дату

########################################################
#                                                      #
# Получение Error записей из системного                #
#           лога за указанную дату.                    #
# Входные параметры:                                   #
# $data — дата в системном формате (у меня dd.mm.yyyy) #
# $strComuterName — имя или ip компьютера              #
#                                                      #
# (c) DiamondSteel                                     #
#                                                      #
########################################################

function GetErrorOfComputer ($data, $strComuterName){
	if(!$data){
		# Если в функцию не передали дату то находим дату предыдущего дня.
		# Получаем текущую дату.
		$a = Get-Date
		# Получаем вчерашнюю дату.
		$yesterday = $a.addDays(-1).ToShortDateString().ToString()
		$data = $yesterday
	}
	if(!$strComuterName){
		# Если в функцию не передали имя или ip адрес удалённого компьютера то смотрим локально.
		$strComuterName="127.0.0.1"
	}

	# Указываем какой EventLog будем смотреть.
	$strLog ="system"
	
	# Находим все записи Error за указанную дату в Системном логе.
	Get-EventLog $strLog -EntryType Error -ComputerName $strComuterName |
		Where-Object { (get-date $_.TimeGenerated -Format d).ToString() -eq $data } |
		Format-List MachineName, EventID, TimeGenerated, EntryType, Source, Message
}

########################################################

GetErrorOfComputer 30.11.2009 1c8