<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>寂静的深海 &#187; wscript</title>
	<atom:link href="http://www.deepseath.com/?feed=rss2&#038;tag=wscript" rel="self" type="application/rss+xml" />
	<link>http://www.deepseath.com</link>
	<description></description>
	<lastBuildDate>Mon, 29 Jan 2024 09:55:11 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>修改Windows远程桌面连接端口的脚本</title>
		<link>http://www.deepseath.com/?p=243</link>
		<comments>http://www.deepseath.com/?p=243#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:55:27 +0000</pubDate>
		<dc:creator>Deepseath</dc:creator>
				<category><![CDATA[日积月累]]></category>
		<category><![CDATA[Function]]></category>
		<category><![CDATA[ip]]></category>
		<category><![CDATA[Port]]></category>
		<category><![CDATA[REG]]></category>
		<category><![CDATA[Server]]></category>
		<category><![CDATA[shell]]></category>
		<category><![CDATA[TCP]]></category>
		<category><![CDATA[terminal server]]></category>
		<category><![CDATA[Windows]]></category>
		<category><![CDATA[wscript]]></category>

		<guid isPermaLink="false">http://www.deepseath.com/?p=243</guid>
		<description><![CDATA[下面代码存为XXX.vbs运行即可。 &#8216;##################### &#8216;VBS修改远程桌面的默认端口,并添加至Windows防火墙 &#8216;作者51windows.Net &#8217;56868为要设置的端口 &#8216;##################### Set WshShell = WScript.CreateObject(“WScript.Shell”) WshShell.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber”,56868,”REG_DWORD” WshShell.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber”,56868,”REG_DWORD” Function Addfirewall(name,port,state)  Set objFirewall = CreateObject(“HNetCfg.FwMgr”)  Set objPolicy = objFirewall.LocalPolicy.CurrentProfile    Set objPort = CreateObject(“HNetCfg.FwOpenPort”)  objPort.Port = port  objPort.Name = name  objPort.Enabled = state  Set colPorts = objPolicy.GloballyOpenPorts  errReturn = colPorts.Add(objPort) End Function call Addfirewall(“远程桌面56868&#8243;,56868,1) set WshShell = nothing [...]]]></description>
		<wfw:commentRss>http://www.deepseath.com/?feed=rss2&#038;p=243</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
