VPF::вставить скрипт в html - Форум программистов

alek1987

Дата 28.5.2009, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

привет всем у меня есть по сканированию ip-адресов. Не могу реализовать его в html. Помогите пожалуйста. Я ничего не понимаю в этом html. Сколько не пытался вставить ничего не работает.
Да еще скрипт реализован на visualbasicscript.

Код


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 
    End If
Next
file.Close
Set objOutStream = Nothing
Set objExec = Nothing
Set objShell = Nothing

alek1987

Дата 28.5.2009, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

чвывсыфссыс

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| JavaScript: для новичков \| Следующая тема »