$WorkBaseServer = "ServerName:1540"
$IBNameWorkBase = "BaseName"
$Connector = new-object -comobject "V83.COMConnector" 
$AgentConnection = $Connector.ConnectAgent($WorkBaseServer) 
$Clusters = $AgentConnection.GetClusters() 
$Cluster = $Clusters.GetValue(0) 
$AgentConnection.Authenticate($Cluster,"Login","Password") 
$WorkingProcesses = $AgentConnection.GetWorkingProcesses($Cluster)
$WorkingServers = $AgentConnection.GetWorkingServers($Cluster)
$mem = 0
ForEach ($wp In $WorkingProcesses)
{
	if ($wp.IsEnable)
	{
        		$mem = $mem + $wp.MemorySize
	}
}

$mem = $mem*1024
$mem = $mem - 1024*1024*512
if ($mem -gt 1024*1024*1024*4)
{
	$WorkingServers[0].TemporaryAllowedProcessesTotalMemory = $mem
	$AgentConnection.UpdateWorkingServer($Cluster,$WorkingServers[0])
	Start-Sleep -s 5
	$WorkingServers[0].TemporaryAllowedProcessesTotalMemory = 0
	$AgentConnection.UpdateWorkingServer($Cluster,$WorkingServers[0])
}