宽带拨号上网随机获取IP情况下的远程桌面使用方法.docx

宽带拨号上网随机获取IP情况下的远程桌面使用方法宽带拨号上网随机获取IP情况下的远程桌面使用方法 当前网络环境中，很多人都是使用ADSL宽带拨号上网的方式来连接互联网，毕竟固定IP地址的申请价格相对来说不是很实惠。这样一来，我们要通过mstsc命令来实现远程桌面控制似乎不太实际，因为拨号上网的IP地址总是在不定时更新的。鉴于现状，本人想出的解决方法如下，虽没多少技术含量，但对于需要用到远程桌面管理的人来说还是有一定的帮助的。 一、查看当前局域网可用IP并手动设置IP 首先我们需要给计算机配置一个固定的局域网IP地址，作为之后端口映射时使用，当局域网中存在多个用户时，我们随便设置IP地址可能会导致局域网内IP地址冲突，故设置之前我们需要查看局域网内的用户。将以下代码复制，保存为“空闲IP查询.bat”文档： -由此开始- echo off &setlocal enabledelayedexpansion echo 正在获取本机的IP地址，请稍等. for /f "tokens=3 skip=2 delims=: " %i in ('nbtstat -n') do ( set "IP_addr=%i" set IP_addr=!IP_addr:1,-1! echo 本机IP为：!IP_addr! goto :next ) :next for /f "delims=. tokens=1,2,3,4" %i in ("%IP_addr%") do set IP_fd=%i.%j.%k echo.&echo 正在获取局域网内计算机名，请稍等. echo 处于网段 %IP_fd%.* 的计算机有：&echo. for /f "delims=" %i in ('net view') do ( set "var=%i" if "!var:0,2!"="" ( set "var=!var:2!" echo !var! ping -n 1 !var!>nul) ) echo.&echo - echo.&echo 正在获取局域网内计算机IP，请稍等.& echo. for /f "skip=3 tokens=1,* delims= " %i in ('arp -a') do echo IP： %i 已经使用 echo.&echo - pause>nul -到此结束- 二、开启远程桌面并修改默认端口 启用远程桌面之前，我们要为系统设置一个密码。该密码在一定程度上保证了远程连接以及电脑的安全。然后再在图标上鼠标右键，选择，这时会弹出窗口，我们找到最后一个名叫的选项卡，如下图： 计算机默认的mstsc远程桌面端口是3389，如果同个局域网内有多人需要使用远程桌面，一个端口是不能满足的，所以需要更换默认的远程端口，更换端口的代码如下，保存为*.bat文档即可： -由此开始- echo off TITLE 远程桌面端口修改程序 CLS MODE con: COLS=68 LINES=20 SetLocal EnableDelayedExpansion set/p d="请输入新的远程桌面端口:" echo 将修改远程桌面端口为%d%,请务必牢记该端口号. echo 如果启用了的系统防火墙-IPSec策略-TCP/IP筛选或者 echo 其他防护软件,请允许该%d%端口通过.否则会出现问题. echo 按任意键继续操作. pause>nul set Str=0123456789ABCDEF :loop set/a y=%d%16 set/a d=%d%/16 set y=!Str:%y%,1! set e=%y%e% if %d% geq 1 goto loop echo - echo 正在创建注册表文件. ping -n 2 127.0.1>nul echo Windows Registry Editor Version 5.00> c:Remote.reg echo HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWdsrdpwdTdstcp>> c:Remote.reg echo "PortNumber"=dword:0000%e%>> c:Remote.reg echo HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWinStationsRDP-Tcp>> c:Remote.reg echo "PortNumber"=dword:0000%e%>> c:Remote.reg echo 正在导入注册表文件以更改系统默认设置. ping -n 2 127.0.1>nul regedit /s c:Remote.reg del c:Remote.reg && echo 临时文件已经删除. ping -n 2 127.0.1>nul echo - echo 再次提醒,请确认该端口已经开放,端口已经修改完毕,重启电脑后才能生效 pause>nul -到此结束- 三、设置网关路由器上的端口映射 在网关路由器上配置端口映射，下图以TP-LINK R478为例，如图中所示，功能上通俗一点讲就是：互联网中访问路由器WAN口的公网IP地址的1234端口，通过路由器会被映射为局域网内IP地址为192.168.0.100的主机上的1234端口。 四、自动定时获取动态IP地址 至此，前面的东西都是最基本的条件，要实现在拨号宽带的网络环境下使用远程桌面，定时获取动态IP地址并实时通知到使用者这一步才是关键的。于是，我利用脚本，读取出公网IP地址查询网站上的HTML中包含的IP地址字段，再加上判断语句，实时判断公网IP地址的变换，实时发送邮件到指定邮箱。这样一来，只要我们所连接的ADSL的公网IP一发生变化，在1分30秒之内我们就可以收到邮件，如果手机安装了邮件客户端，更可以实时通知到使用者的手机上面。复制以下代码，保存为*.vbs文件，再把该文件放在开机启动项里面，随电脑开启启动 -由此开始- on error resume Next do WScript.Sleep 90000 '读取HTML内容- Set XmlHttp=CreateObject("MSxml2.XMLHTTP") XmlHttp.Open "GET"," XmlHttp.Send IP=XmlHttp.ResponseText '在HTML中取出IP字符串- a = InStr(IP, "data-thread-key=") If a > 0 Then GetWanIP = Mid(IP, a + 16) a = InStr(GetWanIP, " data-title=") End If If a > 0 Then GetWanIP = Trim(Left(GetWanIP, a - 1) End If '关闭XML- Set XmlHttp = Nothing '在IPConfig文件中取出旧IP- LoadIP=Trim(createobject("scripting.filesystemobject").opentextfile("C:IPConfig.txt").readall) OLDIP = Left(LoadIP,Len(LoadIP)-2) '判断旧IP和新IP是否一致 IF OLDIP<>GetWanIP Then '将新IP写入IPConfig.txt文件- Set b =CreateObject("Scripting.FileSystemObject") Set IPConfig = b.CreateTextFile("C:IPConfig.txt", True) IPConfig.WriteLine(GetWanIP) IPConfig.Close '-发送邮件- AttachmentFile="C:IPConfig.txt" If Send_Mail("abc","123456","test","","IP地址回馈","请查看附件，里面包含你的IP地址信息",AttachmentFile)=True Then 'Wscript.Echo "发送成功" Else 'Wscript.Echo "发送失败" End If End IF '判断旧IP和新IP是否一致 loop function Send_Mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 'code by NetPatch 'VBS发送邮件参数说明 'You_Account：你的邮件帐号 'You_Password:你的邮件密码 'Send_Email: 主要邮件地址 'Send_Email2: 备用邮件地址 'Send_Topic: 邮件主题 'Send_Body: 邮件内容 'Send_Attachment:邮件附件 You_ID=Split(You_Account, "", -1, vbTextCompare) '帐号和服务器分离 MS_Space = " Set Email = CreateObject("CDO.Message") Email.From = You_Account '这个一定要和发送邮件的帐号一样 Email.To = Send_Email '主要邮件地址 If Send_Email2 <> "" Then Email.CC = Send_Email2 '备用邮件地址 End If Email.Subject = Send_Topic '邮件主题 Email.Textbody = Send_Body '邮件内容 If Send_Attachment <> "" Then Email.AddAttachment Send_Attachment '邮件附件 End If With Email.Configuration.Fields .Item(MS_Space&"sendusing") = 2 '发信端口 .Item(MS_Space&"smtpserver") = "" 'SMTP服务器地址 .Item(MS_Space&"smtpserverport") = 25 'SMTP服务器端口 .Item(MS_Space&"smtpauthenticate") = 1 'cdobasec .Item(MS_Space&"sendusername") = "abc" '你的邮件帐号 .Item(MS_Space&"sendpassword") = "123456" '你的邮件密码 .Update End With Email.Send '发送邮件 Set Email=Nothing '关闭组件 Send_Mail=True '如果没有任何错误信息，则表示发送成功,否则发送失败 If Err Then Err.Clear Send_Mail=False End If End Function -到此结束- PS：以上代码，有些地方是需要修改发送的邮箱和接收的邮箱的，根据实际情况修改！ 五、清理远程桌面记录 其实，这个方法有个不好的地方就是在mstsc界面留下好多的IP地址记录，也在“我的文档”里面留下配置备份的文件，所以，下面的代码又有了作用，同样方法，保存为*.bat文件，执行之后，就可以清理远程桌面的历史记录了！ -由此开始- echo off reg delete "HKEY_CURRENT_USERSoftwareMicrosoftTerminal Server ClientDefault" /va /f del "%USERPROFILE%My DocumentsDefault.rdp" /a exit -到此结束-