GeraYN
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, коллеги!
Появилась задача принимать на 5000 порт команды, обрабатывать и возвращать статус или значение.
Поискав на просторах интернета, нашлось вот такое решение . Далее немного модифицировал, но результат не радует. Порт создается и к нему можно подключиться по телнет, но команду ввести невозможно. Буду рад любой подсказке, сам в тупике, второй день топчусь на месте.
С PowerShell работаю недавно и еще плохо понимаю логику работы языка.
Код:
function Trace-Port([int]$port=5000, [string]$IPAdress="127.0.0.1", [switch]$Echo=$false){
$listener = new-object System.Net.Sockets.TcpListener([System.Net.IPAddress]::Parse($IPAdress), $port)
$listener.start()
[byte[]]$bytes = 0..255|%{0}
# write-host "Waiting for a connection on port $port..."
$client = $listener.AcceptTcpClient()
# write-host "Connected from $($client.Client.RemoteEndPoint)"
$stream = $client.GetStream()
### Сообщение о программе и версии
$sendbytes = ([text.encoding]::ASCII).GetBytes("Remote Panel v1.0`r`n")
$stream.Write($sendbytes,0,$sendbytes.Length)
$stream.Flush()
### Приглашение ввести команду
$sendbytes = ([text.encoding]::ASCII).GetBytes(":")
$stream.Write($sendbytes,0,$sendbytes.Length)
$stream.Flush()
while(($i = $stream.Read($bytes, 0, $bytes.Length)) -ne 0)
{
#$bytes[0..($i-1)]|%{$_}
if ($Echo){$stream.Write($bytes,0,$i)}
$EncodedText = New-Object -TypeName System.Text.ASCIIEncoding
$data = $EncodedText.GetString($bytes,0, $i)
$sendback = ($data 2>&1 | Out-String )
$sendback2 = $sendback + ':'
$x = ($error[0] | Out-String)
$error.clear()
$sendback2 = $sendback2 + $x
$sendbyte = ([text.encoding]::ASCII).GetBytes($sendback2)
### Действие на команду hello
if ($sendbyte -eq "hello") {
Write-Host " wwww test hello `r`n"
$sendbytes = ([text.encoding]::ASCII).GetBytes("test hello`r`n")
$stream.Write($sendbyte,0,$sendbyte.Length)
$stream.Flush()
}
}
$client.Close()
$listener.Stop()
write-host "Connection closed."
}
$ip=get-WmiObject Win32_NetworkAdapterConfiguration|Where {$_.Ipaddress.length -gt 1}
$port = 5000
write-host(Get-NetIPAddress | ?{ $_.AddressFamily -eq “IPv4” -and !($_.IPAddress -match “169”) -and !($_.IPaddress -match “127”) }).IPAddress
write-host telnet $ip.ipaddress[0] $port
Trace-Port -ip $ip.ipaddress[0] -port $port
|
|
[Get-ADUser], ArgumentException 
