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

宽带拨号上网随机获取IP情况下的远程桌面使用方法当前网络环境中，很多人都是使用ADSL宽带拨号上网的方式来连接互联网，毕竟固定IP地址的申请价格相对来说不是很实惠。这样一来，我们要通过mstsc命令来实现远程桌面控制似乎不太实际，因为拨号上网的IP地址总是在不定时更新的。鉴于现状，本人想出的解决方法如下，虽没多少技术含量，但对于需要用到远程桌面管理的人来说还是有一定的帮助的。一、查看当前局域网可用IP并手动设置IP首先我们需要给计算机配置一个固定的局域网IP地址，作为之后端口映射时使用，当局域网中存在多个用户时，我们随便设置IP地址可能会导致局域网内IP地址冲突，故设置之前我们需要查看局域网内的用户。（如果局域网内用户只有几个，就不需小题大做了，以下方法仅针对于局域网内存在多用户而言，例如，企业，小区、学校网络）将以下代码复制，保存为“空闲IP查询.bat”文档：-----------------------由此开始-----------------------@echooff&setlocalenabledelayedexpansionecho正在获取本机的IP地址，请稍等...for/ftokens=3skip=2delims=:%%iin('nbtstat-n')do(setIP_addr=%%isetIP_addr=!IP_addr:~1,-1!echo本机IP为：!IP_addr!goto:next):nextfor/fdelims=.tokens=1,2,3,4%%iin(%IP_addr%)dosetIP_fd=%%i.%%j.%%kecho.&echo正在获取局域网内计算机名，请稍等...echo处于网段%IP_fd%.*的计算机有：&echo.for/fdelims=%%iin('netview')do(setvar=%%iif!var:~0,2!==\\(setvar=!var:~2!echo!var!ping-n1!var!nul))echo.&echo-----------------------------echo.&echo正在获取局域网内计算机IP，请稍等...&echo.for/fskip=3tokens=1,*delims=%%iin('arp-a')doechoIP：%%i已经使用echo.&echo-----------------------------pausenul-----------------------到此结束-----------------------二、开启远程桌面并修改默认端口启用远程桌面之前，我们要为系统设置一个密码。该密码在一定程度上保证了远程连接以及电脑的安全。然后再在【我的电脑】图标上鼠标右键，选择【属性】，这时会弹出【系统属性】窗口，我们找到最后一个名叫【远程】的选项卡，如下图：计算机默认的mstsc远程桌面端口是3389，如果同个局域网内有多人需要使用远程桌面，一个端口是不能满足的，所以需要更换默认的远程端口，更换端口的代码如下，保存为*.bat文档即可：-----------------------由此开始-----------------------@echooffTITLE远程桌面端口修改程序CLSMODEcon:COLS=68LINES=20SetLocalEnableDelayedExpansionset/pd=请输入新的远程桌面端口:echo将修改远程桌面端口为[%d%],请务必牢记该端口号.echo如果启用了的[系统防火墙]--[IPSec策略]--[TCP/IP筛选]或者echo其他防护软件,请允许该[%d%]端口通过.否则会出现问题.echo按任意键继续操作...pausenulsetStr=0123456789ABCDEF:loopset/ay=%d%%%16set/ad=%d%%/16sety=!Str:~%y%,1!sete=%y%%e%if%d%geq1gotoloopecho------------------------------------------------------echo正在创建注册表文件.ping-n2127.0.1nulechoWindowsRegistryEditorVersion5.00c:\Remote.regecho[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp]c:\Remote.regechoPortNumber=dword:0000%e%c:\Remote.regecho[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp]c:\Remote.regechoPortNumber=dword:0000%e%c:\Remote.regecho正在导入注册表文件以更改系统默认设置.ping-n2127.0.1nulregedit/sc:\Remote.regdelc:\Remote.reg&&echo临时文件已经删除.ping-n2127.0.1nulecho------------------------------------------------------echo再次提醒,请确认该端口已经开放,端口已经修改完毕,重启电脑后才能生效pausenul-----------------------到此结束-----------------------三、设置网关路由器上的端口映射在网关路由器上配置端口映射（虚拟服务器），下图以TP-LINKR478为例，如图中所示，功能上通俗一点讲就是：互联网中访问路由器WAN口的公网IP地址的1234端口，通过路由器会被映射为局域网内IP地址为192.168.0.100的主机上的1234端口。四、自动定时获取动态IP地址至此，前面的东西都是最基本的条件，要实现在拨号宽带的网络环境下使用远程桌面，定时获取动态IP地址并实时通知到使用者这一步才是关键的。于是，我利用脚本，读取出公网IP地址查询网站上的HTML中包含的IP地址字段，再加上判断语句，实时判断公网IP地址的变换，实时发送邮件到指定邮箱。这样一来，只要我们所连接的ADSL的公网IP一发生变化，在1分30秒之内我们就可以收到邮件，如果手机安装了邮件客户端，更可以实时通知到使用者的手机上面。（想到这里，心情还是有点小激动的O(∩_∩)O哈哈~）复制以下代码，保存为*.vbs文件，再把该文件放在开机启动项里面，随电脑开启启动（注意，有些杀毒软件会认为是木马或广告植入，我想应该是代码里面包含了查询公网IP的网址吧！）-----------------------由此开始-----------------------onerrorresumeNextdoWScript.Sleep90000'读取HTML内容--------------------------SetXmlHttp=CreateObject(MSxml2.XMLHTTP)XmlHttp.OpenGET,=XmlHttp.ResponseText'在HTML中取出IP字符串--------------------------a=InStr(IP,data-thread-key=)Ifa0ThenGetWanIP=Mid(IP,a+16)a=InStr(GetWanIP,data-title=)EndIfIfa0ThenGetWanIP=Trim(Left(GetWanIP,a-1))EndIf'关闭XML--------------------------SetXmlHttp=Nothing'在IPConfig文件中取出旧IP--------------------------LoadIP=Trim(createobject(scripting.filesystemobject).opentextfile(C:\IPConfig.txt).readall)OLDIP=Left(LoadIP,Len(LoadIP)-2)'↓↓↓↓↓↓↓↓判断旧IP和新IP是否一致↓↓↓↓↓↓↓↓IFOLDIPGetWanIPThen'将新IP写入IPConfig.txt文件--------------------------Setb=CreateObject(Scripting.FileSystemObject)SetIPConfig=b.CreateTextFile(C:\IPConfig.txt,True)IPConfig.WriteLine(GetWanIP)IPConfig.Close'-------------------------发送邮件-------------------------AttachmentFile=C:\IPConfig.txtIfSend_Mail([e-mail],123456,[e-mail],,IP地址回馈,请查看附件，里面包含你的IP地址信息,AttachmentFile)=TrueThen'Wscript.Echo发送成功Else'Wscript.Echo发送失败EndIfEndIF'↑↑↑↑↑↑↑↑判断旧IP和新IP是否一致↑↑↑↑↑↑↑↑loopfunctionSend_Mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)'codebyNetPatch'VBS发送邮件参数说明'You_Account：你的邮件帐号'You_Password:你的邮件密码'Send_Email:主要邮件地址'Send_Email2:备用邮件地址'Send_Topic:邮件主题'Send_Body:邮件内容'Send_Attachment:邮件附件You_ID=Split(You_Account,@,-1,vbTextCompare)'帐号和服务器分离MS_Space==CreateObject(CDO.Message)Email.From=You_Account'这个一定要和发送邮件的帐号一样Email.To=Send_Email'主要邮件地址IfSend_Email2ThenEmail.CC=Send_Email2'备用邮件地址EndIfEmail.Subject=Send_Topic'邮件主题Email.Textbody=Send_Body'邮件内容IfSend_AttachmentThenEmail.AddAttachmentSend_Attachment'邮件附件EndIfWithEmail.Configuration.Fields.Item(MS_Space&sendusing)=2'发信端口.Item(MS_Space&smtpserver)=smtp.qq.com'SMTP服务器地址.Item(MS_Space&smtpserverport)=25'SMTP服务器端口.Item(MS_Space&smtpauthenticate)=1'cdobasec.Item(MS_Space&sendusername)=[e-mail]'你的邮件帐号.Item(MS_Space&sendpassword)=123456'你的邮件密码.UpdateEndWithEmail.Send'发送邮件SetEmail=Nothing'关闭组件Send_Mail=True'如果没有任何错误信息，则表示发送成功,否则发送失败I