#Functions
function JsonEnconder($status, $result){

$template = @"
{
    "status":"$status",
    "result":"$result"
}
"@

    $result = ConvertTo-Json $template

    return $result

    }

function GetVMs($server, $user, $pass) {

    $r = Connect-VIServer -Server $server -User $user -Password $pass -ErrorAction stop
    $VMList = Get-VM "*"
    return $VMList
}

$json = ConvertFrom-Json $input

if ( ([string]::IsNullOrEmpty($json.server)))
{
    $jsonr = JsonEnconder -status "error" -result "Server cannot be null"
    return $jsonr
}

if ( ([string]::IsNullOrEmpty($json.username)))
{
    $jsonr = JsonEnconder -status "error" -result "Username cannot be null"
    return $jsonr
}

if ( ([string]::IsNullOrEmpty($json.password)))
{
    $jsonr = JsonEnconder -status "error" -result "Password cannot be null"
    return $jsonr
}

try
{

    $VMList = GetVMs -server $json.server -user $json.username -pass $json.password

    $jsonr = JsonEnconder -status "OK" -result "$VMList"

    Write-Host $jsonr
}
catch
{
    $ErrorMessage = $_.Exception.Message
    $jsonr = JsonEnconder -status "ERROR" -result "$ErrorMessage"
    return $jsonr
}