用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口
'#####################
'VBS修改远程桌面的默认端口,并添加至Windows防火墙
'作者51windows.Net
'56868为要设置的端口
'#####################
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWinStationsRDP-TcpPortNumber",56868,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWdsrdpwdTdstcpPortNumber",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",56868,1)
set WshShell = nothing
msgbox "设置成功"
'#####################
'VBS修改远程桌面的默认端口,并添加至Windows防火墙
'作者51windows.Net
'56868为要设置的端口
'#####################
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWinStationsRDP-TcpPortNumber",56868,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWdsrdpwdTdstcpPortNumber",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",56868,1)
set WshShell = nothing
msgbox "设置成功"
用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择在命令提示符中打开不多说了，存下来看看吧！strMachines="24.11.246.125:2406;61.252.60.
vbs实现的定时关机、重启的脚本和程序
将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话框。直接
vbs实现的定时提醒你休息的脚本
setWshShell=WScript.CreateObject("WScript.Shell")'对话框标题alerttitle="定时提醒"'提醒内容,vbnewline为换行符alerttext=vbnewline&vbnewline&"休息一下，活动一下胳膊，脖子
