@echo off

if "%1" == "h" goto begin 
　　mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit 
:begin 

set port=3389
set checkInterval=2

set prev=""

:loop

set curr=

for /f "delims=" %%i in ('netstat -n -p tcp ^|find ^":%port%^"') do (set curr=%%i)

if not "%curr%"=="%prev%" (

   set prev=%curr%

   date /t >>RDPlog.txt

   time /t >>RDPlog.txt

   echo %curr% >>RDPlog.txt 
) 

ping -n %checkInterval% 127.1>nul 

goto :loop

遠(yuǎn)程桌面服務(wù)端口(port)為3389；

創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括五大連池網(wǎng)站建設(shè)、五大連池網(wǎng)站制作、五大連池網(wǎng)頁制作以及五大連池網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，五大連池網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到五大連池省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

目前輪詢頻率(checkInterval)設(shè)置為2秒；

腳本運(yùn)行后在后臺(tái)，看不到Console窗口，當(dāng)檢測服務(wù)端口連接狀態(tài)有變化時(shí)，會(huì)把時(shí)間和對方IP記錄到RDPlog.txt中。

腳本設(shè)置為開機(jī)自啟動(dòng)就行了。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

網(wǎng)頁標(biāo)題：通過cmd腳本記錄Windows遠(yuǎn)程桌面用戶登錄日志-創(chuàng)新互聯(lián)
網(wǎng)頁路徑：http://weahome.cn/article/dcioij.html