Вопрос : VBscript для Пинга - t

мне нужен сценарий может дать мне audable сигнал тревоги когда Пинг отвечает, я пытает быть сообщенным когда возвращения силы к месту и вещи boot и ответит к Пингу и я хочу быть просыпанным вверх.  Спасибо! class=

Ответ : VBscript для Пинга - t

Hi, вы можете попытаться это Кодий.

Если вы имеете тональнозвуковой архив в форме MP3 (или что-то Шиндошс Медиа Плаыер может сыграть), то это сыграет тот архив когда машина ответит к Пингу.  Когда компьютер автономен снова, Шиндошс Медиа Плаыер будет закрыто, и когда оно он-лайн снова, архив сыграет.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:

Установите objWMP = ничего strComputer = «REMOTEPCNAME» strMediaFile = «C:\temp\AlarmFile.mp3» Пока поистине Если Пинг (strComputer) = True после этого Если objWMP ничего после этого установленное objWMP = CreateObject, то («WMPlayer.OCX») objWMP.openPlayer strMediaFile Еще Установите objShell = CreateObject («WScript.Shell») objShell.Run «taskkill /F /IM wmplayer.exe», 0, поистине Закончитесь если 'Ждите 30 секунд WScript.Sleep 30000 Wend Пинг функции (strComputer) Тусклое objShell, boolCode Установите objShell = CreateObject («WScript.Shell») boolCode = objShell.Run («Пинг - n 1 - w 300» & strComputer, 0, поистине) Если boolCode = 0 после этого Пинг = True Еще Пинг = ложно Закончитесь если Закончите функцию