vagrant-vmm 1.0.0

data/lib/vagrant-vmm/scripts/get_network_config.ps1

@@ -0,0 +1,84 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null,
+  [int]$timeout
+)
+
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_id  = $using:vm_id
+  $timeout  = $using:timeout
+
+
+  $vm = Get-SCVirtualMachine -ID $vm_id
+  Write-host "Waiting for IP to be assigned for $($vm.ComputerNameString) (id: $vm_id)..."
+  $ip = $null
+  $tries = 0
+  do {
+    sleep -s 1
+    $ad = Get-SCVirtualNetworkAdapter -VM $vm -ErrorAction Ignore
+    if ( $ad.IPv4Addresses.count -gt 0 )
+    {
+      $ip = $ad.IPv4Addresses[0]
+    } else {
+      $ips = [System.Net.Dns]::GetHostAddresses($vm.ComputerNameString)
+      if ( $ips.count -gt 0 )
+      {
+        $ip = $ips[0].IPAddressToString
+      }
+    }
+    Write-progress -Activity "Trying to get IP from $($vm.ComputerNameString)" -PercentComplete $($tries*100/$timeout) -Status "Try: $tries"
+    $tries += 1
+  } while ( $ip -eq $null -and $tries -le $timeout )
+  #
+  return @{
+    ip =  $ip;
+    hostname = $vm.ComputerNameString
+  }
+}
+
+$address_info = execute $script_block $vmm_server_address $proxy_server_address
+$address_to_use = $address_info["ip"]
+
+if ( $address_to_use -ne $null )
+{
+  try
+  {
+    Write-host "Trying to resolve VM hostname($($address_info["hostname"])) from the current machine."
+    [System.Net.Dns]::GetHostAddresses($address_info["hostname"])
+    $address_to_use = $address_info["hostname"]
+  } catch {
+    Write-host "Failed to resolve hostname, so falling back to IP: $address_to_use"
+  }
+} else {
+  # ask for manual IP entry if timedout
+  Write-host "Couldn't get ip for the VM within given timeout, you can get and specify it manually (or leave blank and vagrant will stop)."
+  $ip = Read-Host 'Enter VM IP address:'
+}
+
+if ( $address_to_use -as [ipaddress] )
+{
+  $trusted_hosts = get-item wsman:\localhost\Client\TrustedHosts
+  if ( !$trusted_hosts.Value.Contains($address_to_use) )
+  {
+    Write-host "Adding $address_to_use to trusted host list"
+    $new_th_values = "$($trusted_hosts.Value),$address_to_use"
+    set-item wsman:\localhost\Client\TrustedHosts $new_th_values -Force
+  }
+}
+
+$resultHash = @{
+  address = $address_to_use
+}
+$result = ConvertTo-Json $resultHash
+Write-Output-Message $result

data/lib/vagrant-vmm/scripts/get_vm_status.ps1

@@ -0,0 +1,40 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null
+)
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+    # external vars
+    $vm_id  = $using:vm_id
+
+    # Get VM
+    Get-SCVirtualMachine -ID $vm_id -ErrorAction Ignore
+}
+
+$vm = execute $script_block $vmm_server_address $proxy_server_address
+
+if ( $vm )
+{
+  $State = $vm.status
+  $Status = $vm.status
+} else {
+  $State = 'not_created'
+  $Status = $vm.status
+}
+
+$resultHash = @{
+  state = "$State"
+  status = "$Status"
+}
+
+$result = ConvertTo-Json $resultHash
+Write-Output-Message $result

data/lib/vagrant-vmm/scripts/import_vm.ps1

@@ -0,0 +1,107 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_name,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [Parameter(Mandatory=$true)]
+  [string]$vm_template_name,
+  [Parameter(Mandatory=$true)]
+  [string]$vm_host_group_name,
+  [string]$proxy_server_address=$null
+)
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_name            = $using:vm_name
+  $vm_host_group_name = $using:vm_host_group_name
+  $vmm_credential     = $using:vmm_credential
+  $server_address     = $using:vmm_server_address
+  $vm_template_name   = $using:vm_template_name
+
+  $description = "VM created by vagrant for testing purposes"
+  $MinFreeSpaceGB = 300 #
+
+  # get VM Template object
+  $VMTemplate = Get-SCVMTemplate -Name $vm_template_name
+  # get host group
+  $VMHostGroup = Get-VMHostGroup -Name $vm_host_group_name
+  #
+  Write-Host "Creating VM from template $vm_template_name"
+
+  $tries = 10
+  while ( $tries -gt 0 ) {
+    $vm = Get-SCVirtualMachine -Name $vm_name
+    if ( $vm -eq $null ) {
+      break
+    } else {
+      $vm_name = $vm_name.substring(0, [math]::Min(14, $vm_name.length)) + $(Get-Random -Minimum 0 -Maximum 10)
+    }
+    $tries -= 1
+  }
+  if ( $vm -eq $null )
+  {
+      # Get and sort the host ratings for all the hosts in the host group.
+      # select host which has rating > 0
+      $hRatingHashParams = @{Template=$VMTemplate;
+                             DiskSpaceGB=$MinFreeSpaceGB;
+                             VMName=$vm_name;
+                             VMHostGroup=$VMHostGroup;
+                             VMMServer=$vmmServer
+                            }
+
+      $VMHost = $null
+      $HostRatings = @(Get-VMHostRating @hRatingHashParams | Sort-Object -property Rating -descending)
+      If($HostRatings.Count -eq 0) { throw "No hosts meet the requirements." }
+      $VMHost = $HostRatings[0].VMHost
+
+      # If there is at least one host that will support the virtual machine, create the virtual machine on the highest-rated host.
+      If ($VMHost -ne $null )
+      {
+        # get placement path
+        $path = $($VMHost.DiskVolumes | where { $_.IsAvailableForPlacement -eq $True } | Sort-Object -Property FreeSpace -Descending)[0]
+        Write-Host "----- Creating VM ----"
+        Write-Host "Host: $VMHost, $($VMHost.CPUManufacturer) $($VMHost.Rank)"
+        Write-host "Placement path: $($path.Name), Free space - $($path.FreeSpace/1024/1024/1024) GB"
+        Write-Host "Name: $vm_name"
+        Write-Host "----- ----------- ----"
+        # Create the virtual machine.
+        $vmCreateParams = @{Name=$vm_name;
+                            Path=$path.Name;
+                            VMHost = $VMHost;
+                            VMTemplate=$VMTemplate;
+                            Description=$description;
+                            ComputerName=$vm_name;
+                            BlockDynamicOptimization=$false;
+                            ReturnImmediately = $false; AnswerFile = $null;
+                            StartAction = "NeverAutoTurnOnVM";
+                            StopAction = "TurnOffVM";
+                            StartVM=$false;
+                            ErrorAction="stop";
+                            DelayStartSeconds = $(Get-Random -Minimum 20 -Maximum 100)
+                          }
+
+      New-SCVirtualMachine @vmCreateParams
+    } else {
+      Write-Error "Cannot find suitable host for the VM."
+    }
+  } else {
+    Write-Warning "Machine $vm_name already exists on host $($vm.VMHost.Name)"
+    $vm
+  }
+}
+
+$vm = execute $script_block $vmm_server_address $proxy_server_address
+
+$resultHash = @{
+  name = $vm.Name
+  id = $vm.id.guid
+}
+
+$result = ConvertTo-Json $resultHash
+Write-Output-Message $result

data/lib/vagrant-vmm/scripts/resume_vm.ps1

@@ -0,0 +1,24 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null
+)
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_id  = $using:vm_id
+
+  # Get VM
+  $vm = Get-SCVirtualMachine -ID $vm_id -ErrorAction Ignore
+  Resume-VM $vm
+}
+
+execute $script_block $vmm_server_address $proxy_server_address

data/lib/vagrant-vmm/scripts/start_vm.ps1

@@ -0,0 +1,48 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null
+)
+
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_id  = $using:vm_id
+
+  # Get VM
+  $vm = Get-SCVirtualMachine -ID $vm_id -ErrorAction Ignore
+  if ( $vm.status -ne 'Running')
+  {
+    Start-VM $vm
+  }
+  $vm
+}
+
+$vm = execute $script_block $vmm_server_address $proxy_server_address
+
+if ( $vm )
+{
+  $State = $vm.status
+  $Status = $vm.status
+} else {
+  $State = 'undefined'
+  $Status = $vm.status
+  Write-Error-Message "Failed to start a VM $_"
+}
+
+$resultHash = @{
+  state = "$State"
+  status = "$Status"
+  name = $vm.Name
+}
+
+$result = ConvertTo-Json $resultHash
+Write-Output-Message $result

data/lib/vagrant-vmm/scripts/stop_vm.ps1

@@ -0,0 +1,24 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null
+)
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_id  = $using:vm_id
+
+  # Get VM
+  $vm = Get-SCVirtualMachine -ID $vm_id -ErrorAction Ignore
+  Stop-VM $vm
+}
+
+execute $script_block $vmm_server_address $proxy_server_address

data/lib/vagrant-vmm/scripts/suspend_vm.ps1

@@ -0,0 +1,27 @@
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_id,
+  [Parameter(Mandatory=$true)]
+  [string]$vmm_server_address,
+  [string]$proxy_server_address=$null
+)
+
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\vmm_executor.ps1"))
+
+
+$script_block = {
+  # external vars
+  $vm_id  = $using:vm_id
+
+  # Get VM
+  $vm = Get-SCVirtualMachine -ID $vm_id -ErrorAction Ignore
+  if ($vm.status -eq 'Running')
+  {
+    Suspend-VM $vm
+  }
+}
+
+execute $script_block $vmm_server_address $proxy_server_address

data/lib/vagrant-vmm/scripts/sync_folders.ps1

@@ -0,0 +1,200 @@
+#-------------------------------------------------------------------------
+# Copyright (c) Microsoft Open Technologies, Inc.
+# All Rights Reserved. Licensed under the Apache 2.0 License.
+#--------------------------------------------------------------------------
+# part of code taken from:
+# https://github.com/MSOpenTech/vagrant-windows-hyperv/blob/master/lib/vagrant-windows-hyperv/scripts/file_sync.ps1
+
+Param(
+  [Parameter(Mandatory=$true)]
+  [string]$vm_address,
+  [Parameter(Mandatory=$true)]
+  [string]$folders_to_sync,
+  [string]$winrm_vm_username,
+  [string]$winrm_vm_password
+)
+# Include the following modules
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "utils\write_messages.ps1"))
+. ([System.IO.Path]::Combine($Dir, "utils\manage_credentials.ps1"))
+
+# Sync flow:
+# get list of files to sync, compare hashes with the remote ones
+# create fileshare on the remote machine
+# get access to fileshare from the current machine
+# transfer all required files to the fileshare
+# re-copy/move files on remote machine from fileshare to correct folders
+
+
+# convert from json to ps object
+$folders_to_sync_obj = ConvertFrom-Json $folders_to_sync
+$delimiter = " || "
+
+function Get-file-hash($source_paths, $delimiter) {
+  $source_files = @{}
+  Write-host "$(&hostname) :: Collecting file hashes..."
+
+  foreach ( $source_path in $source_paths )
+  {
+    $source_files[$source_path] = @()
+    # convert unix style to windows
+    $source_path_normalized = [System.IO.Path]::GetFullPath($source_path)
+    if ( Test-path $source_path_normalized )
+    {
+      (Get-ChildItem $source_path_normalized -rec | ForEach-Object -Process {
+          Get-FileHash -Path $_.FullName -Algorithm MD5
+        }
+      ) | ForEach-Object -Process {
+          $source_files[$source_path] += $_.Path.Replace($source_path_normalized, "") + $delimiter + $_.Hash
+      }
+      # get empty dirs, set hash to be 0 for them
+      Get-ChildItem $source_path_normalized -recurse |
+        Where-Object {$_.PSIsContainer -eq $True} |
+          Where-Object {$_.GetFiles().Count -eq 0} |
+            Select-Object FullName | ForEach-Object -Process {
+              $source_files[$source_path] += $_.FullName.Replace($source_path_normalized, "") + $delimiter + "0"
+            }
+    }
+  }
+  return $source_files
+}
+
+function Get-remote-file-hash($source_paths, $delimiter, $session) {
+  return Invoke-Command -Session $session -ScriptBlock ${function:Get-file-hash} -ArgumentList $source_paths, $delimiter
+}
+
+$trusted_hosts = get-item wsman:\localhost\Client\TrustedHosts
+if ( !$trusted_hosts.Value.Contains($vm_address) )
+{
+  Write-host "Adding $vm_address to trusted host list"
+  $new_th_values = "$($trusted_hosts.Value),$vm_address"
+  set-item wsman:\localhost\Client\TrustedHosts $new_th_values -Force
+}
+
+$creds_to_vm = Get-Creds $vm_address "Credentials for access to the VM ($vm_address) via WinRM" $winrm_vm_username $winrm_vm_password
+$auth_method = "default"
+if ( !$creds_to_vm.UserName.contains("\") -and !$creds_to_vm.UserName.contains("@") )
+{
+  $auth_method = "basic"
+}
+$session = New-PSSession -ComputerName $vm_address -Credential $creds_to_vm -Authentication $auth_method
+
+# Compare source and destination files
+$remove_files = @{}
+$copy_files = @{}
+$folder_mappings = @{}
+foreach ( $hst_path in $folders_to_sync_obj.psobject.properties.Name )
+{
+  $guest_path =  $folders_to_sync_obj.$hst_path
+  $folder_mappings[$hst_path] = $guest_path
+  $copy_files[$hst_path] = @()
+  $remove_files[$guest_path] = @()
+}
+
+$source_files = Get-file-hash $folder_mappings.Keys $delimiter
+$destination_files = Get-remote-file-hash $folder_mappings.Values $delimiter $session
+if (!$destination_files) {
+  $destination_files = @{}
+}
+
+# compare hashes and derive what should be copied over and what removed
+foreach ( $hst_path in $folder_mappings.Keys )
+{
+  $guest_path = $folder_mappings[$hst_path]
+  Write-host "Comparing hashes $hst_path <=> $guest_path"
+  if ( !$destination_files[$guest_path] ) {
+    $destination_files[$guest_path] = @()
+  }
+
+  Compare-Object -ReferenceObject $source_files[$hst_path] -DifferenceObject $destination_files[$guest_path] | ForEach-Object {
+    if ($_.SideIndicator -eq '=>') {
+      $remove_files[$guest_path] += $_.InputObject.Split($delimiter)[0]
+    } else {
+      $copy_files[$hst_path] += $_.InputObject.Split($delimiter)[0]
+    }
+  }
+}
+
+# create file share on the remote machine
+Invoke-Command -Session $session -ScriptBlock {
+  $fileshare_dest = "$($env:SystemDrive)\vagrant-sync"
+  if (Test-path $fileshare_dest)
+  {
+    Remove-item "$fileshare_dest\*" -recurse -force
+  } else {
+    $sync_dir = New-item $fileshare_dest -itemtype directory
+  }
+  $shr = Get-SmbShare -Name "vagrant-sync" -ErrorAction Ignore
+  if ( $shr -eq $null )
+  {
+    Write-host "$(&hostname) :: Creating fileshare on the remote host in $fileshare_dest, granting access to $($env:USERDOMAIN)\$($env:USERNAME)"
+    $shr = New-SmbShare -Name "vagrant-sync" -Temporary -Path $fileshare_dest -FullAccess "$($env:USERDOMAIN)\$($env:USERNAME)"
+  }
+}
+
+# get access to the fileshare from the current machine
+Write-host "Getting access from the current machine to the created fileshare (\\$vm_address\vagrant-sync)"
+$vagrant_sync_drive = New-PSDrive -Name 'V' -PSProvider 'FileSystem' -Root "\\$vm_address\vagrant-sync" -Credential $creds_to_vm
+
+Write-host "Syncing files to fileshare..."
+foreach ( $hst_path in $copy_files.Keys)
+{
+  $current = 0
+  $total = $copy_files[$hst_path].Count
+  # copy files to the fileshare
+  foreach( $file in $copy_files[$hst_path] )
+  {
+    $current += 1
+    $file_path = $hst_path + $file
+    $guest_path = $folder_mappings[$hst_path]
+    $guest_path = [System.IO.Path]::GetFullPath("$($vagrant_sync_drive.root)\$guest_path")
+    Write-progress -Activity "Syncing $hst_path with $guest_path" -PercentComplete $($current*100/$total) -Status "Copying $file"
+    if (Test-Path $file_path -pathtype container)
+    {
+      # folder
+      $out = New-Item $file_path -itemtype directory -ErrorAction Ignore
+    } else {
+      # file
+      $file_dir = split-path $file
+      $out = New-item "$guest_path\$file_dir" -itemtype directory -ErrorAction Ignore
+      Copy-Item $file_path "$guest_path\$file" -recurse
+    }
+  }
+}
+
+# copy from fileshare to the dest locations on the remote machine
+# as well as remove files that shouldn't be there
+Invoke-Command -Session $session -ScriptBlock {
+  $remove_files = $using:remove_files
+  $fileshare_dest = "$($env:SystemDrive)\vagrant-sync"
+  write-host "$(&hostname) :: Distributing files from $fileshare_dest..."
+  # remove files
+  $total = $remove_files.Keys.Count
+  $current = 0
+  foreach ( $g_path in $remove_files.Keys )
+  {
+    $current += 1
+    Write-progress -Activity "Cleaning redundant files" -PercentComplete $($current*100/$total) -Status "Cleaning under: $g_path"
+    foreach ($r_file in $remove_files[$g_path])
+    {
+      Remove-Item $($g_path+$r_file) -recurse -force -ErrorAction Ignore
+    }
+  }
+  $root_files_in_share = Get-ChildItem $fileshare_dest -Directory -ErrorAction Ignore
+  $total = $root_files_in_share.Count
+  $current = 0
+  #TODO: remove hard-code to SystemDrive
+  foreach ( $guest_path in $root_files_in_share )
+  {
+    $current += 1
+    Write-progress -Activity "Distributing files on the remote machine" -PercentComplete $($current*100/$total) -Status "Copying: $guest_path"
+    Copy-Item "$fileshare_dest\$guest_path" "$($env:SystemDrive)\" -recurse -force
+  }
+}
+
+
+Remove-PSSession -Id $session.Id
+
+$resultHash = $folder_mappings
+$result = ConvertTo-Json $resultHash
+Write-Output-Message $result

data/lib/vagrant-vmm/scripts/utils/manage_credentials.ps1

@@ -0,0 +1,26 @@
+
+# get either cached or entered in the prompt credentials
+function Get-Creds($server_address, $prompt_message, $username = $null, $password = $null )
+{
+  $temp_folder = $env:temp
+  # get creds
+  $cred_file = $temp_folder + "\creds_$server_address.clixml"
+  if ( Test-Path $cred_file )
+  {
+    $credential = Import-CliXml $cred_file
+  } else
+  {
+    if ( $username -ne $null -and $password -ne $null )
+    {
+      # creds passed, use them
+      $password = ConvertTo-SecureString -string $password -asPlainText -force
+      $credential = New-Object System.Management.Automation.PSCredential($username, $password)
+    } else
+    {
+      $credential = Get-Credential -Message $prompt_message
+    }
+    $credential | Export-CliXml $cred_file
+    Write-host "Credentials for $server_address is cached in $cred_file"
+  }
+  return $credential
+}

data/lib/vagrant-vmm/scripts/utils/vmm_executor.ps1

@@ -0,0 +1,30 @@
+#
+$Dir = Split-Path $script:MyInvocation.MyCommand.Path
+. ([System.IO.Path]::Combine($Dir, "manage_credentials.ps1"))
+
+# execute script block for VMM
+function execute($block, $vmm_server_address, $proxy_server_address)
+{
+  $vmm_credential = Get-Creds $vmm_server_address "Credentials for VMM server: $vmm_server_address"
+  #
+  $init_vmm_block = {
+    try {
+      ipmo 'C:\Program Files\Microsoft System Center 2012 R2\Virtual Machine Manager\bin\psModules\virtualmachinemanager'
+    } catch {
+      write-error 'You need to install Virtual Machine Manager R2 client first.'
+      throw $_.Exception
+    }
+    #
+    $vmmServer = Get-VMMServer -ComputerName $using:vmm_server_address -Credential $using:vmm_credential
+  }
+  $block_to_run = [ScriptBlock]::Create($init_vmm_block.ToString() + $block.ToString())
+  #
+  if ( $proxy_server_address -eq $null )
+  {
+    $res = $(Start-Job $block_to_run | Wait-Job | Receive-Job)
+  } else {
+    $proxy_credential = Get-Creds $proxy_server_address "Credentials for proxy server: $proxy_server_address"
+    $res = invoke-command -ComputerName $proxy_server_address -Credential $proxy_credential -ScriptBlock $block_to_run
+  }
+  return $res
+}

data/lib/vagrant-vmm/scripts/utils/write_messages.ps1

@@ -0,0 +1,20 @@
+#-------------------------------------------------------------------------
+# Copyright (c) Microsoft Open Technologies, Inc.
+# All Rights Reserved. Licensed under the MIT License.
+#--------------------------------------------------------------------------
+
+function Write-Error-Message($message) {
+  $error_message = @{
+    error = "$message"
+  }
+  Write-Host "===Begin-Error==="
+  $result =  ConvertTo-json $error_message
+  Write-Host $result
+  Write-Host "===End-Error==="
+}
+
+function Write-Output-Message($message) {
+  Write-Host "===Begin-Output==="
+  Write-Host $message
+  Write-Host "===End-Output==="
+}