中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 批处理有这个功能吗？将本机IP发到指定的邮箱
« [1] [2] » ›
作者:
标题: 批处理有这个功能吗？将本机IP发到指定的邮箱 上一主题 | 下一主题
nblue
初级用户




积分 117
发帖 37
注册 2006-6-8
状态 离线
『楼 主』:  批处理有这个功能吗？将本机IP发到指定的邮箱

批处理有这个功能吗？
运行此批处理后会将本机IP发到指定的邮箱，如果本机没有联网则不显示错误提示和不发送。
不知我的这个设想能否实现？

2006-6-8 14:46
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
piziliu2004
中级用户

过度热情


积分 321
发帖 139
注册 2006-3-21
状态 离线
『第 2 楼』:  

可以的.! 很久以前用過一次,!現在不記得了.!只知道是有個郵件收發的命令. 後接
指定的邮箱,內容就可以了.

2006-6-8 14:54
查看资料  发送邮件  发短消息 网志  OICQ (16750931)  编辑帖子  回复  引用回复
nblue
初级用户




积分 117
发帖 37
注册 2006-6-8
状态 离线
『第 3 楼』:  

谁知道具体是怎么写的呀

2006-6-8 17:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bagpipe
银牌会员

DOS联盟捡破烂的


积分 1144
发帖 425
注册 2005-10-20
来自 北京
状态 离线
『第 4 楼』:  

本人觉得批处理本来来解决这个问题好像是行不通的，除了第三方工具，不过可以批处理＋VBS脚本来实现，我给你一下VBS脚本发送邮件的代码，你用他和批处理结合就可以使用了，代码如下

NameSpace="http://schemas.microsoft.com/cdo/configuration/"
Set Email=CreateObject("CDO.Message")
Email.From="bwli@ql-art.com"
Email.To="bagpipe737@163.com"
Email.Subject="我只是试试而已"
Email.Textbody="OK!"
Email.AddAttachment "C:\gp.rar"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="mail.ql-art.com"
.Item(NameSpace&"smtpserverport")=25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sendusername")="xxx"
.Item(NameSpace&"sendpassword")="xxx"
.Update
End With
Email.Send
wscript.echo "Send Finish!!!!!! "

2006-6-8 17:17
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
nblue
初级用户




积分 117
发帖 37
注册 2006-6-8
状态 离线
『第 5 楼』:  

谢谢楼上的，但我是个菜鸟，批处理要怎么来写呢

2006-6-8 17:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
willsort
元老会员

Batchinger


积分 4432
发帖 1512
注册 2002-10-18
状态 离线
『第 6 楼』:  


─────────────────　版主提示　─────────────────
请注意你所提及的问题已经涉及到某些敏感或具有潜在危害性的技术信息
如果你无法在一日内证明获取此类信息的正当性与合法性
本版版主将有权利对你的提问和相关回复采取一些有效的屏蔽手段
─────────────────　版主提示　─────────────────


[ Last edited by willsort on 2006-6-8 at 21:00 ]



※ Batchinger 致 Bat Fans：请访问 [讨论]批处理编程的异类 ，欢迎交流与共享批处理编程心得！
2006-6-8 20:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 7 楼』:  

使用批处理是可行的，登陆 Mail Server可以用 telnet ～～不过要对RFC狠狠的研究透才行～～




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-6-8 21:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
nblue
初级用户




积分 117
发帖 37
注册 2006-6-8
状态 离线
『第 8 楼』:  

回板主，本人想用此方法管理网络，绝对没有任何违法企图！

2006-6-9 09:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bagpipe
银牌会员

DOS联盟捡破烂的


积分 1144
发帖 425
注册 2005-10-20
来自 北京
状态 离线
『第 9 楼』:  

WINDOWS 2000测试通过，不适用98系统

@echo off
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

2006-6-9 10:03
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 10 楼』:  

呵呵，还是vbs～～～




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-6-9 10:47
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bagpipe
银牌会员

DOS联盟捡破烂的


积分 1144
发帖 425
注册 2005-10-20
来自 北京
状态 离线
『第 11 楼』:  

electronixtar哈哈，估计你在发几个帖子就能够得到“银牌会员”的称呼了，羡慕啊!!!.........

2006-6-9 10:56
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 12 楼』:  

汗～～～帖子水分居多，等级资格充数，其实该羡慕的是你啊，帖子又多质量又高！




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-6-11 20:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
piziliu2004
中级用户

过度热情


积分 321
发帖 139
注册 2006-3-21
状态 离线
『第 13 楼』:  

CDO.Message再winxp下找不到.?.
請問winxp下vbs怎麼寫

2006-6-12 10:16
查看资料  发送邮件  发短消息 网志  OICQ (16750931)  编辑帖子  回复  引用回复
Climbing
铂金会员

网络独行侠


积分 6962
发帖 2753
注册 2003-4-16
来自 河北保定
状态 离线
『第 14 楼』:  

有一个第三方的工具叫blat，是用于从命令行发送邮件的。

http://www.blat.net



偶只喜欢回答那些标题和描述都很清晰的帖子！
如想解决问题，请认真学习“这个帖子”和“这个帖子”并努力遵守，如果可能，请告诉更多的人！
2006-6-12 15:42
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (653668)  编辑帖子  回复  引用回复
chineselgs
高级用户

论坛灌水专业户


积分 613
发帖 266
注册 2006-4-19
来自 河南省
状态 离线
『第 15 楼』:  

呵呵,看了老半天,眼睛都痛了,还是搞不懂~

.....................



饮马恒河畔，剑指天山西,碎叶城揽月，库叶岛赏雪,黑海之滨垂钓，贝尔加湖面张弓；中南半岛访古，东京废墟祭祖!
  
2006-6-12 18:26
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (342210799)  编辑帖子  回复  引用回复
« [1] [2] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023