當(dāng)某IP 連接我機(jī)器的3389端口 報(bào)警的腳本
更新時(shí)間：2009年03月24日 19:24:08 作者：
希望大牛能夠?qū)懸粋€(gè)腳本監(jiān)視 當(dāng)某IP 連接我機(jī)器的3389端口時(shí)報(bào)警。。。
我知道 用IPSEC也可以做到只讓某IP訪問(wèn)訪問(wèn)，用netstat -an 可以看某IP正在訪問(wèn)我機(jī)器的3389端口，我想做監(jiān)視 讓某IP訪問(wèn)時(shí) 然后報(bào)警 或者輸入 >*.txt 這樣。。。
你在防火墻里面設(shè)置僅允許單一IP連你3389不行么？
腳本不是萬(wàn)能的……
這里給出一種變通的方法
1、將下面代碼保存為vbs文件
Set obji = GetObject("winmgmts:{impersonationLevel=impersonate}!Win32_Service='TermService'")
if obji.TotalSessions > 0 then
wscript.echo "警告，有遠(yuǎn)程用戶連接進(jìn)入！"
end if
2、將上面的腳本放到計(jì)劃任務(wù)中去，每隔十分鐘運(yùn)行一次；
3、這個(gè)方法的原理很簡(jiǎn)單，如果有用戶連接進(jìn)入的話，那么總的會(huì)話數(shù)將大于1，此時(shí)提示報(bào)警！
你在防火墻里面設(shè)置僅允許單一IP連你3389不行么？
腳本不是萬(wàn)能的……
這里給出一種變通的方法
1、將下面代碼保存為vbs文件
復(fù)制代碼 代碼如下:
Set obji = GetObject("winmgmts:{impersonationLevel=impersonate}!Win32_Service='TermService'")
if obji.TotalSessions > 0 then
wscript.echo "警告，有遠(yuǎn)程用戶連接進(jìn)入！"
end if
2、將上面的腳本放到計(jì)劃任務(wù)中去，每隔十分鐘運(yùn)行一次；
3、這個(gè)方法的原理很簡(jiǎn)單，如果有用戶連接進(jìn)入的話，那么總的會(huì)話數(shù)將大于1，此時(shí)提示報(bào)警！
相關(guān)文章
ScriptCodingInfo.wsc代碼如下，該文件可以改成任意后綴2008-12-12
利用vbs腳本實(shí)現(xiàn)設(shè)置IE的打印頁(yè)眉頁(yè)腳信息
這篇文章主要為大家分享下通過(guò)vbs腳本實(shí)現(xiàn)設(shè)置IE的打印頁(yè)眉頁(yè)腳信息的代碼，需要的朋友可以參考下2007-02-02
vbscript中Err對(duì)象是一個(gè)具有全局范圍的內(nèi)部對(duì)象，含有關(guān)于錯(cuò)誤的所有信息,需要的朋友可以參考下2018-05-05
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表...2007-04-04
VBS編程教程 (第5篇)...2007-07-07
vbs實(shí)現(xiàn)的圖片自適應(yīng)表格,目前最佳解決方案!
用vbs實(shí)現(xiàn)的圖片自適應(yīng)代碼2008-06-06
VBS腳本使用WMI操作注冊(cè)表,從微軟弄下來(lái)的，整理了一下，弄成最簡(jiǎn)版，簡(jiǎn)版，常用版，以便與快速查找2008-06-06
VBScript中On Error語(yǔ)句用法小結(jié)
VBScript語(yǔ)言提供了兩個(gè)語(yǔ)句和一個(gè)對(duì)象來(lái)處理"運(yùn)行時(shí)錯(cuò)誤"，如下，1.On Error Resume Next語(yǔ)句,2.On Error Goto 0語(yǔ)句,3.Err對(duì)象,下面我們就來(lái)詳細(xì)探討下。2015-05-05
HTA文件去除html控件認(rèn)證和接收命令行參數(shù)
最近看vbscript程序員參考手冊(cè)第三版，講到hta的兩個(gè)應(yīng)用2009-07-07
可自刪除 開(kāi)啟3389創(chuàng)建用戶粘滯鍵后門(mén)的vbs
開(kāi)啟3389創(chuàng)建用戶粘滯鍵后門(mén)，作研究使用，請(qǐng)勿違法。2009-01-01