Запуск скрипта на удалённом компьютере

Global $Box

HotKeySet("{F1}", "_Start") 

TCPStartUp()
$g_IP = InputBox("Введите  IP - адрес","Введите  IP - адрес")

$socket = TCPConnect( $g_IP, 1200 )
$msg = TCPSend($socket, $Box)
If $socket = -1 Then 
	Exit
Else
	MsgBox(1, "","Есть соединение !")
EndIf

while 1
          Sleep(100)
WEnd

TCPCloseSocket($socket)
TCPShutdown()

Func _Start()
$Box=InputBox("Введите программу", "Введите название программы")

if ShellExecute($Box) <> 1 Then
	MsgBox(1,"", "Ошибка запуска программы !")
EndIf

EndFunc

#Include <process.au3>

TCPStartup();Инициировать использование службы TCP
$IP = @IPAddress1;Указываем адрес который будем прослушивать
$port = 1200;Указываем порт который будем прослушивать


While 1
    $socket = TCPListen($IP, $port, 100);Создаем слушающий сокет, по указанному адресу
    If @error Then ExitLoop;Если не удалось создать сокет, то выйти
    $Connect = -1
    Do
        $Connect = TCPAccept($socket);Указыываем ОС создать сокет если появилось входящее подключение в прослушиваемом сокете
    Until $Connect <> -1;Если клиент подключился, то выйти из цикла, если ошибка или никто не подключился, то продолжить цикл
   	
     While 100
        $dannie = TCPRecv($Connect, 2048);Получаем максимум 2048 символов от клиента

		Select
		case $dannie = "Exit"
			Exit
		case $dannie <> ""
			ShellExecute($dannie)   
			ContinueLoop
		EndSelect
		
		If @error Then ExitLoop;Если не удалось получить символы, то выйти из цикла
       WEnd
Wend	
    
TCPCloseSocket($socket);Закрываем сокет
TCPShutdown();Завершить использование службы TCP

$g_IP = "127.0.0.1"

TCPStartUp()

$socket = TCPConnect( $g_IP,7788)
If $socket = -1 Then Exit
TCPCloseSocket($socket)
TCPShutdown()

$1Param = '1'
$2Param = '2'
$iTempName = 'somname.a3x'

Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @TempDir & '\' & $iTempName & '"' & ' ' & $1Param & ' ' & $2Param & '.mp3"')