Форум «Всё о Паскале» _ Ада и другие языки _ Пинговать компы с помощью JS
Автор: dron4ik 11.11.2009 22:14
Пришла идея написать прогу на JS, которая пинговала бы компы в сети через параметр а в параметре бы писали бы ип адрес компа. написал прогу но при запуске она не реагирует.(Может реализация неверна?
Код
function ping(address ) { var WSHShell = WScript.CreateObject("WScript.Shell"); strResult = WshShell.Run("ping " + address , True); return strResult }
Добавлено через 14 мин. все вроде верно написано вызываем пинг какого-либо адреса.
Автор: volvo 11.11.2009 22:49
У тебя 2 варианта: либо ты запускаешь WshShell.Run, пишешь результаты пинга в текстовый файл (обычное перенаправление, как если в консоли набрать "ping ip > res.txt"), а потом содержимое файла показываешь, либо запускаешь не Run, а Exec:
function ping(address) { var WshShell = WScript.CreateObject("WScript.Shell"); var objExec = WshShell.Exec("%comspec% /c ping " + address); var outBuffer = objExec.StdOut.ReadAll(); return outBuffer; }
var s = ping("192.168.0.1"); WScript.Echo(s);
Это работает, но появляется черное окошко на время работы ping-а...
Добавлено через 3 мин.
Цитата
все вроде верно написано вызываем пинг какого-либо адреса.
Ничего не верно. Читай доки по http://msdn.microsoft.com/en-us/library/d5fk67ky%28VS.85%29.aspx. Run не возвращает строку, возвращается целое число...
Автор: dron4ik 11.11.2009 22:54
а какой способ проще?
Добавлено через 2 мин. результат вывелся.. но там абракадабра(((
Добавлено через 42 сек. ссылка битая(
Автор: volvo 11.11.2009 23:05
Цитата
ссылка битая(
Проверяй свои настройки, я копировал ее из адресной строки. Насчет абракадабры: Я непроверенные решения не выкладываю. Если я написал, что работает - значит работает...
Автор: dron4ik 11.11.2009 23:07
а вы знаете как исправить абракадабру?((
Автор: volvo 11.11.2009 23:27
Я не знаю, что именно ты называешь абракадаброй, я не телепат. Покажи скриншот, что тебе выдает скрипт - посмотрим, что можно сделать.
Автор: dron4ik 11.11.2009 23:31
вот что выводит.
Эскизы прикрепленных изображений
Автор: volvo 11.11.2009 23:45
А если запускать
cscript /nologo pin.js
, что будет? В нормальной кодировке пишет?
Автор: dron4ik 11.11.2009 23:48
нет. также абракадабра.(((
Добавлено через 7 мин. на др компах наверное не должно так быть(
Автор: dron4ik 12.11.2009 0:20
а как сделать чтобы айпи я менял не в коде а в параметре?
Автор: volvo 12.11.2009 0:21
Хм... Интересно. А что показывает та же команда ping в консоли? Не абракадабру? Ты чего с кодировками натворил?
Добавлено через 1 мин.
Цитата
а как сделать чтобы айпи я менял не в коде а в параметре?
Я тебе уже 5 раз показывал, как обрабатывается WScript.Arguments... Больше повторять не буду.
Автор: dron4ik 12.11.2009 0:29
Я кодировки не менял.
Добавлено через 2 мин. а где можно менять кодировку?
Автор: dron4ik 12.11.2009 0:59
нашел способ про который вы писали
Код
'Функция Alive() получает имя компьютера в локальной сети (или ip-адрес) и 'возвращает True, если компьютер пингуется, и False в противном случае Function Alive(ByVal strHost) Const SYSTEM_FOLDER = 1, TEMP_FOLDER = 2 ' константы FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") With objFSO Do 'генерация пути к временному файлу: КаталогВременныхФайлов\ИмяВременногоФайла strTempFile = .BuildPath(.GetSpecialFolder(TEMP_FOLDER), .GetTempName) 'если такой файл существует, продолжаем попытки генерации пути: Loop While .FileExists(strTempFile) 'составим командную строку вызова ping с перенаправлением во временный файл 'cmd.exe завершить после исполнения (параметр /c) 'число запросов для ping - один (параметр -n 1) strCmdLine = .BuildPath(.GetSpecialFolder(SYSTEM_FOLDER), "cmd.exe") _ & " /c " & .BuildPath(.GetSpecialFolder(SYSTEM_FOLDER), "ping.exe") _ & " -n 1 " & strHost & " > " & strTempFile End With 'запускаем ping синхронно, в скрытом окне CreateObject("Wscript.Shell").Run strCmdLine, 0, True 'паттерн регулярного выражения для анализа вывода ping Set objRE = CreateObject("VBScript.RegExp") 'маска _XXX.XXX.XXX.XXX:_, где "X" - любое число, причём в каждой группе может быть 'от 1 до 3 цифр, а "_" - пробел (т.е. паттерн соответствует любому валидному IP-адресу, 'который может появиться в выводе команды ping) 'предполагается, что если в выводе ping будет присутствовать какой-то IP-адрес, это 'будет означать, что ping прошёл успешно, иначе - что удалённый компьютер не отвечает; 'примечание: при неудачном ping'е в выводе команды в принципе может присутствовать 'IP-адрес, но чаще всего он не будет содержать двоеточия и пробела в конце; 'для верности необходимо проверить также наличие строки "TTL=" в выводе objRE.Pattern = " [0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}: [\s\S]*TTL=" 'открытие временного файла, содержащего вывод команды ping Set objTS = objFSO.OpenTextFile(strTempFile, 1) 'функция возвращает результат проверки паттерна Alive = objRE.Test(objTS.ReadAll) 'закрытие и удаление временного файла objTS.Close objFSO.DeleteFile strTempFile End Function
Автор: dron4ik 12.11.2009 15:47
вот сделал с помощью WScript.Arguments...но у меня айпишник не правильно отображается помогите разобраться((
Добавлено через 1 мин.
Код
function ping(address) {
var WshShell = WScript.CreateObject("WScript.Shell"); var objExec = WshShell.Exec("%comspec% /c ping " + address); var outBuffer = objExec.StdOut.ReadAll(); return outBuffer; }
var first = WScript.Arguments(0); var create_parameters = first.split("."); var last_bs = create_parameters[0].lastIndexOf(".") + 1; var branch_name = create_parameters[0]; var key_name = create_parameters[0].substr(last_bs, create_parameters[0].length - last_bs);
var branch_name= ping(branch_name+ "",create_parameters[1]); WScript.Echo(branch_name);
Автор: volvo 12.11.2009 17:15
Опять за свое... Ты покажи, ЧТО ПЕРЕДАЕШЬ в скрипт. А то непонятно что наворотил, теперь бы еще знать, С ЧЕМ...