[CmdletBinding()]
param(
  [string]$url = [ your server url here, including the port ex: https://mft.mycompany.com:8000 ],
  [string]$user = [ the account name use to manage web users ],
  [string]$password [ the account password you use to manage web users ],
  [string]$command,
  [string]$webUserTemplate,
  [string]$webUserName,
  [string]$webUserPassword,
  [string]$webUserFirstName,
  [string]$webUserLastName,
  [string]$webUserDescription,
  [string]$webUserEmail,
  [switch]$generatePassword,
  [switch]$forcePasswordChange,
  [switch]$emailPassword
)
function Create-MultiPartBody{
  param(
    [object]$parts,
    [string]$boundary
  )
  $body = ''
  foreach($part in $Parts.GetEnumerator()){
    if($part.Name -eq 'commandAction'){
      $disposition = "form-data; name=`"file`"; filename=`"$($part.Name)`""
      $type = 'application/octet-stream; charset=ISO-8859-1'
      $encoding = 'binary'
    }
    else{
      $disposition = "form-data; name=`"$($part.Name)`""
      $type = 'text/plain; charset=UTF-8'
      $encoding = '8bit'
    }
    $bodySegment = @"
--$($boundary)
Content-Disposition: $($disposition)
Content-Type: $($type)
Content-Transfer-Encoding: $($encoding)

$($part.Value)

"@
    $body += $bodySegment
  }
  $body += "--$($boundary)--`n"
  $body.Replace("`n","`r`n")
  return $body
}
function Create-CommandXml{
  param(
    [object]$command
  )
  [xml]$doc = ''
  $rootNode = $doc.CreateElement('command')
  [void]$doc.AppendChild($rootNode)
  $command.GetEnumerator() | ?{$_.Value -ne $null} | %{
    $parameter = $doc.CreateElement($_.Name)
    if($_.Value -is [boolean] -or $_.Value -is [switch]){
      $value = $_.Value.ToString().ToLower()
    }else{
      $value = $_.Value
    }
    $parameter.InnerText = $value
    [void]$rootNode.AppendChild($parameter)
  }
  return $doc.OuterXml.Trim()
}
function Send-WebRequest{
  param(
    [string]$url,
    [object]$contentParts
  )
  $apiURL = "$($url)/goanywhere/servlets/commandCenter"
  Write-Verbose "URL: `n$($apiURL)"
  $randomString = [Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes([System.Guid]::NewGuid().ToString()))
  $boundary = $randomString.Substring($randomString.Length-39)
  $userAgent = 'Jakarta Commons-HttpClient/3.1'
  $headers = [ordered]@{
    'Transfer-Encoding' = 'chunked';
    'Content-Type' =  "multipart/form-data; boundary=$($boundary)";
  }
  $body = Create-MultiPartBody $contentParts $boundary
  Write-Verbose "Body: `n$($body)"
  try{
    $response = Invoke-WebRequest `
      -Uri $apiURL `
      -DisableKeepAlive `
      -UserAgent $userAgent `
      -Headers $headers `
      -Method POST `
      -Body $body
  }
  catch{
    Write-Verbose $_.Exception.Message
  }
  return $response
}
$commandActions = @{
  deleteWebUser = [ordered]@{
    userName              = $webUserName;
  }
  addWebUser = [ordered]@{
    webUserTemplate       = $webUserTemplate;
    userName              = $webUserName;
    userPassword          = $webUserPassword;
    firstName             = $webUserFirstName;
    lastName              = $webUserLastName;
    description           = $webUserDescription;
    email                 = $webUserEmail;
  }
  resetWebUserPassword = [ordered]@{
    userName              = $webUserName;
    generatePassword      = $generatePassword;
    userPassword          = $webUserPassword;
    forcePasswordChange   = $forcePasswordChange;
    displayPassword       = $true;
    emailPassword         = $emailPassword;
  }
}
$contentParts = [ordered]@{
  command = $command
  user = $user;
  password = $password;
  passwordIsEncrypted = 'false';
  commandAction = Create-CommandXml $commandActions.$Command
}
$response = Send-WebRequest $url $contentParts
$response.Content

#.\Set-MFTWebUser.ps1 -webUserName 'TestUser' -command 'addWebUser' -webUserDescription 'Delete this user' -webUserEmail '[email protected]'
#.\Set-MFTWebUser.ps1 -webUserName 'TestUser' -command 'resetWebUserPassword' -generatePassword -emailPassword
#.\Set-MFTWebUser.ps1 -webUserName 'TestUser' -command 'deleteWebUser'