param ($VM) # Входящий параметр Виртуальной Машины (ВМ)

if (!(Get-Module -Name hyperv))
    {
        # Включить модуль
        import-module hyperv
    }
if($VM -eq $null)
    {
        Write-Host "Введите имя виртуальной машины."
    }
   
# ==== Начальные параметры
$ComputerName = Get-Content env:COMPUTERNAME
# Подключаем диск R: для получения информации про VHD
Invoke-Expression -Command "net use R: \\Server /y"
# Обнуляем счётчики
$count = $false # Триггер найденной ВМ
$export_count = $false # Счётчик успешного экспорта ВМ
# Определяем имя\адрес лог-файла
$log = "\\Server\backup\Logs\$VM\" + (Get-Date -Format "yyy-MM") +".log"
# Определяем путь к папке с РК
$BackupDir = "\\Server\backup\"+$VM
# Путь к папке с РК для снятия информации с VHD
$InfoDir = "R:\backup\"+$VM
# Данные для email
$Sender = "BackupOperator@contoso.com"
$SMTP = "smtp.contoso.com"
$Recipients = @("backup_monitoring@contoso.com") # группа рассылки с адресатами, которые мониторят резервное копирование
$AttachePath = "R:\backup\Logs\$VM\" + (Get-Date -Format "yyy-MM") +".log"

# Функция оптравки сообщения, на момент написания я не знал про функцию Send-MailMessage и написал свою функцию. Переделывать не хочу, "Работает - не трогай!"
function SendEmail($Subject,$Body,$Priority)
    {
        $Message = New-Object System.Net.Mail.MailMessage
        $Server = New-Object System.Net.Mail.SMTPClient
        $Attache = New-Object System.Net.Mail.Attachment($AttachePath)
        # ==== Message
        $Recipients | ForEach-Object {$Message.To.Add($_)}
        $Message.From = $Sender
        $Message.Subject = $Subject
        $Message.Body = $Body
        $Message.Attachments.Add($Attache)
        $Message.Priority = [System.Net.Mail.MailPriority]::$Priority
        # ==== Sending
        $Server.Host = $SMTP
        $Server.Send($Message)
    }

# =========================================
# Начинаем запись лога
$log_string = $log_string + (Get-Date) + " `r`n Начало работы скрипта экспорта ВМ "+$VM + " сервер: " + $ComputerName + "`r`n Получение списка Виртуальных машин... `r`n"

# Получаем список ВМ
$VMArray = Get-VM | Select-Object -Property VMElementName
foreach($element in $VMArray)
{
    # Ищем заданную ВМ
    if($VM -eq $element.VMElementName)
    {
        $log_string = $log_string + "Виртуальная машина найдена. Выполняю заданные действия... `r`n"
        $count = $true            
# ========== Операции с папками ===============

        # Удаляем папку Yesterday
        Remove-Item -Path ($BackupDir + "\Yesterday") -Recurse -ErrorVariable err
        if($err)
        {
            # Если ошибка удаления - останавливаем выполнение.
            $log_string = $log_string + $err + "`r`n"
            $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Удаление каталога Yesterday не удалось, экспорт $VM прерван. Ошибка: " + $err
        }
        else
        {
            $log_string = $log_string + "Удаление каталога Yesterday проведено успешно. `r`n"
            # Переименовываем папку Today
            Rename-Item -Path ($BackupDir + "\Today") -NewName ($BackupDir + "\Yesterday") -Force -ErrorVariable err
            if($err)
            {
                # Если ошибка переименовывания - останавливаем выполнение.
                $log_string = $log_string + $err + "`r`n"
                $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Переименование каталога Yesterday не удалось, экспорт $VM прерван. Ошибка: " + $err
            }
            else
            {
                $log_string = $log_string + "Переименование папок проведено успешно. `r`n"
                # Создаём папку Today
                New-Item -Path ($BackupDir + "\Today") -ItemType Directory -Force -ErrorVariable err
                if($err)
                {
                    # Если ошибка создания - останавливаем выполнение.
                    $log_string = $log_string + $err + "`r`n"
                    $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + "Создание каталога Yesterday не удалось, экспорт $VM прерван. Ошибка: " + $err
                }
                else
                {
                    $log_string = $log_string + "Создание папки Today проведено успешно. `r`n"
#========== Конец работы с папками          

#========== Работа с ВМ
                    # Если состояние машины - "Работает", то
                    if((Get-VMSummary $VM).enabledstate -eq "Running")
                    {
                        # Запустить выключение
                        $log_string = $log_string + ((Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина запущена. Выполняю остановку. `r`n")
                        invoke-vmshutdown -VM $VM -Reason "Export VM." -Force -ErrorVariable err
                        if($err)
                        {
                            $log_string = $log_string + $err + "`r`n"
                            $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Остановка ВМ не произведена, экспорт $VM прерван. Ошибка: " + $err
                        }
                        else
                        {
                            # Экспорт ВМ без подтверждения со всеми файлами (xml, vhd и т.д.) и подождать, пока не выполнится
                            $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина остановлена. Выполняю экспорт.`r`n"
                            $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина остановлена.`r`n"
                            $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Выполняю экспорт виртуальной машины.`r`n"
                            export-VM -VM $VM -path ($backupDir + "\Today") -force -copystate -wait -ErrorVariable err
                            if($err)
                            {
                                $log_string = $log_string + $err + "`r`n"
                                $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Экспорт ВМ завершён с ошибкой, экспорт $VM прерван. Ошибка: " + $err
                            }
                            else
                            {
                                $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина успешно экспортирована. Выполняю запуск.`r`n"
                                $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина успешно экспортирована.`r`n"
                                $export_count = $true
                            }
                            # Запуск ВМ потверждением включения на протяжении 300с перед выполнением следующей команды                            
                            Start-VM -vm $VM -HeartBeatTimeOut 300 -ErrorVariable err
                            if($err)
                            {
                                $log_string = $log_string + $err + "`r`n"
                                $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Запуск ВМ не произведен. Ошибка: " + $err
                            }
                            else
                            {
                                $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина запущена.`r`n"
                                $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина запущена.`r`n"
                            }
                        }
                    }  
                    elseif((Get-VMSummary $VM).enabledstate -eq "Stopped")
                    {
                        # Экспорт ВМ без подтверждения со всеми файлами (xml, vhd и т.д.) и подождать, пока не выполнится
                        $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина находится в режиме Остановлена. Выполняю экспорт.`r`n"
                        $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина находится в режиме Остановлена.`r`n"
                        export-VM -VM $VM -path ($backupDir + "\Today") -force -copystate -wait -ErrorVariable err
                        if($err)
                        {
                            $log_string = $log_string + $err + "`r`n"
                            $MailBody = $Mailbody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Экспорт ВМ не произведен, экспорт $VM прерван. Ошибка: " + $err
                        }
                        else
                        {
                            $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина успешно экспортирована.`r`n"
                            $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Виртуальная машина успешно экспортирована.`r`n"
                            $export_count = $true
                        }
                    }
                    else
                    {
                        $vm_state = (Get-VMSummary -VM $VM).EnabledState
                        $log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Экспорт виртуальной машины не произведён, состояние $VM = $vm_state.`r`n"
                        $MailBody = $MailBody + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Экспорт виртуальной машины не произведён, состояние $VM = $vm_state.`r`n"
                    }
                }
            }
        }
    }
}
if($count) # Если ВМ найдена
{
    if(!($export_count)) # Если ВМ не экспортирована
    {
        $log_string = $log_string + "Экспорт виртуальной машины $VM выполнен с ошибками. Процесс прерван. `r`n"
        $MailBody = $MailBody + "Экспорт виртуальной машины $VM выполнен с ошибками. Процесс прерван.`r`n"
    }
    else # Если ВМ экспортирована
    {
        $log_string = $log_string + "Провожу поиск *.VHD для $VM... `r`n"
        # Проводим поиск *.vhd в заданном каталоге
        if(Get-Item -Path ($InfoDir + "\Today\" + $VM + "\Virtual Hard Disks\*") -Include *.*vhd | Select-Object -Property Name)
        {
            #$VHDInfo = "VHD Info:`r`n"
            foreach($element in (Get-Item -Path ($InfoDir + "\Today\" + $VM + "\Virtual Hard Disks\*") -Include *.*vhd | Select-Object -Property Name))
            {
                # Для каждого найденного элемента получаем информацию и пишем в лог и строку для письма
                $log_string = $log_string + "Информация для " + $element.Name + ":`r`n"
                $SomeVHDInfo = Get-VHDInfo -VHDPaths ($InfoDir + "\Today\" + $VM + "\Virtual Hard Disks\" + $element.Name)
                $log_string = $log_string + "Путь: " + $SomeVHDInfo.Path + "`r`n"
                $log_string = $log_string + "Объём файла: " + ([System.Math]::Round(($SomeVHDInfo.FileSize/1Gb),2)) + "Gb`r`n"
                $log_string = $log_string + "Привязка к VM: " + $SomeVHDInfo.InSavedState + "`r`n"
                $log_string = $log_string + "Смонтирован: " + $SomeVHDInfo.InUse + "`r`n"
                $log_string = $log_string + "Максимальный объём файла: " + ([System.Math]::Round(($SomeVHDInfo.MaxInternalSize/1Gb),2)) + "Gb`r`n"
                $log_string = $log_string + "Тип образа: " + $SomeVHDInfo.TypeName + "`r`n"
                # Проводим валидацию VHD ВМ
                $TestVHD = "VHD: " + $element.Name + ": " + (Test-VHD -VHDPaths ($InfoDir + "\Today\" + $VM + "\Virtual Hard Disks\" + $element.Name))
                $log_string = $log_string + $TestVHD + "`r`n"
                $MailBody = $Mailbody + $TestVHD + "`r`n"
            }
        }
        else # Вдруг VHD нет в этом каталоге О_О
        {
            $log_string = $log_string + "*.VHD для $VM не найдены.`r`n"
            $MailBody = $MailBody + "*.VHD для $VM не найдены.`r`n"
        }
    }
}
else # ВМ не найдена на сервере
{
    $log_string = $log_string + "Виртуальная машина $VM не найдена. Процесс завершён.`r`n"
    $MailBody = $MailBody + "Виртуальная машина $VM не найдена. Процесс завершён.`r`n"
}

$log_string = $log_string + (Get-Date -Format "(yyyy-MM-dd) hh:mm:ss") + " Работа над $VM окончена.`r`n"
$log_string = $log_string + "======================== `r`n"

$MailSubject = "$VM export report."
# Отправляем письмо:
SendEmail -Subject $MailSubject -Body $MailBody  -Priority $MailPriority

#net use R: /delete /y Данную функцию запускать не обязательно.