[nyevgen]

А не поможете еще в одном деле? В

этот

Код:

;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

;объявление переменных для реестра
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

;нестандартное меню скрипта
Opt("TrayMenuMode", 1)
;меню скрипта - кнопка Выход
Global $exititem = TrayCreateItem("Выход")
TraySetState()
TraySetIcon("shell32.dll",156)
;всплывающая подсказка при наведении мыши
TraySetToolTip('Ping My Lan')
While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = $exititem
    Exit
EndSelect

;цикл работы скрипта
$i += 1
    If $i = 500 Then ;если прошло 5 секунд...
    If Ping("192.168.1.2") = 0 Then ;если машины нет в сети...
	TraySetIcon("shell32.dll",338);меняем иконку
	TraySetToolTip('Ping My Lan - Юзера нет в сети');всплывающая подсказка при наведении мыши
	If ProcessExists("TrafSvc.exe") Then Run(@ComSpec & " /C sc stop TrafSvc", "", @SW_HIDE);проверяем наличие запущенного процесса службы TMetr, если есть - останавливаем службу.
	Else ;если машина есть в сети...
	TraySetIcon("shell32.dll",239);меняем иконку
	TraySetToolTip('Ping My Lan - Юзер в сети');всплывающая подсказка при наведении мыши
    If Not ProcessExists("TrafSvc.exe") Then Run(@ComSpec & " /C sc start TrafSvc", "", @SW_HIDE);проверяем наличие запущенного процесса службы TMetr, если нет - запускаем службу.
	EndIf
    $i = 0 ;обнуляем счетчик
EndIf
    Sleep(5)
WEnd

скрипт добавить следующее:
- пингование IP адресов от 1 до 10 (т.е. 192.168.1.1, 192.168.1.2 и т.д.)
- в случае удачного пингования ХОТЯ БЫ ОДНОГО IP адреса скрипт останавливает службу
- в случае НЕудачного пинга ни от одной машины служба запускалась

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!