[madmasles]

nyevgen,
Попробуйте так, у меня работает. Можно поменять

Код:

If @IPAddress2 = "0.0.0.0" Then

на

Код:

If Ping("Вторая машина") = 0 Then

Код:

#NoTrayIcon

Opt("TrayMenuMode", 1)

Global $i = 0
Global $sRegRun = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

;проверка и запись себя в автозагрузку
If RegRead($sRegRun, @ScriptName) = "" Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
    RegWrite($sRegRun, @ScriptName, "REG_SZ", @ScriptFullPath)
EndIf

Global $exititem = TrayCreateItem("Выход")
TrayCreateItem("")
TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $exititem
            Exit
    EndSelect

    $i += 1
    If $i = 1000 Then ;прошло 10 секунд
        If @IPAddress2 = "0.0.0.0" Then ;нет второй машины в сети.
            If ProcessExists("Ваш процесс.exe") Then ProcessClose("Ваш процесс.exe");если есть процесс, то закрываем его.
        Else ;есть вторая машина в сети
            If Not ProcessExists("Ваш процесс.exe") Then Run("Путь к Вашему\Процессу\Ваш процесс.exe");если нет процесса, запускаем его.
            ;что у Вас за процесс, я не знаю, может он по другому запускается.
        EndIf
        $i = 0 ;обнуляем счетчик
    EndIf

    Sleep(10)
WEnd

что изменилось за полдня по сравнению с этим?

Может nyevgen не на VBScript код хочет, а на AutoIt.