| Вопрос: вывод в поле типа делфового memo | Добавлено: 29.05.09 05:54 |
Автор вопроса:  alek1987
|
|
Помогите, пожалуйста написал скрипт по пингованию ip-адреса, все свободные адреса записываются в файл.
А мне необходимо выводить во что то типа делфого memo. Но я не знаю как это сделать подскажите пожалуйста. <HTML> <BODY> <SCRIPT type="text/vbscript" > Dim objShell, objExec, objOutStream, fso, file Dim strResPing, intResFind, startOfIP Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("C:\Nos\iptable.txt", 2, true) startOfIP = InputBox("Введите первые три цифры IP адреса", "Диапазон IP", "192.168.1.", 100, 100) Set objShell = CreateObject("WScript.Shell") For i = 0 To 255 Set objExec = objShell.Exec("ping -n 1 -w 300 " & startOfIP & i) Set objOutStream = objExec.StdOut strResPing = vbNullString While Not objOutStream.AtEndOfStream strResPing = strResPing & Trim(objOutStream.ReadLine()) Wend If Instr(1, strResPing, "TTL", vbTextCompare) <= 1 Then file.WriteLine startOfIP & i alert(strResPing) End If Next file.Close Set objOutStream = Nothing Set objExec = Nothing Set objShell = Nothing </SCRIPT> </BODY> </HTML> Только не смотрите что делал в html. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Шпион ICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #1 | Добавлено: 17.11.09 08:20 |
|
Т.е. скрипт пингует некоторый диапазон адресов и результаты кладет в файл?
А чем тогда проблема, чтобы прочитать файл и динамически изменить страничку? |
||
Страница: 1 |