中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-03 16:16
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 批处理有这个功能吗?将本机IP发到指定的邮箱 查看 2,465 回复 25
楼 主 批处理有这个功能吗?将本机IP发到指定的邮箱 发表于 2006-06-08 14:46 ·  中国 广东 深圳 电信
初级用户
积分 117
发帖 37
注册 2006-06-08 12:23
20年会员
UID 56740
状态 离线
批处理有这个功能吗?
运行此批处理后会将本机IP发到指定的邮箱,如果本机没有联网则不显示错误提示和不发送。
不知我的这个设想能否实现?
2 发表于 2006-06-08 14:54 ·  中国 江苏 苏州 电信
中级用户
★★
过度热情
积分 321
发帖 139
注册 2006-03-21 17:19
20年会员
UID 52521
性别 男
状态 离线
可以的.! 很久以前用過一次,!現在不記得了.!只知道是有個郵件收發的命令. 後接
指定的邮箱,內容就可以了.
3 发表于 2006-06-08 17:06 ·  中国 广东 深圳 电信
初级用户
积分 117
发帖 37
注册 2006-06-08 12:23
20年会员
UID 56740
状态 离线
谁知道具体是怎么写的呀
4 发表于 2006-06-08 17:17 ·  中国 北京 联通
银牌会员
★★★
DOS联盟捡破烂的
积分 1,144
发帖 425
注册 2005-10-20 00:00
20年会员
UID 43784
来自 北京
状态 离线
本人觉得批处理本来来解决这个问题好像是行不通的,除了第三方工具,不过可以批处理+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!!!!!! "
5 发表于 2006-06-08 17:35 ·  中国 广东 深圳 电信
初级用户
积分 117
发帖 37
注册 2006-06-08 12:23
20年会员
UID 56740
状态 离线
谢谢楼上的,但我是个菜鸟,批处理要怎么来写呢
6 发表于 2006-06-08 20:57 ·  中国 山西 临汾 中移铁通
元老会员
★★★★
Batchinger
积分 4,432
发帖 1,512
注册 2002-10-18 00:00
23年会员
UID 19
性别 男
状态 离线

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


[ Last edited by willsort on 2006-6-8 at 21:00 ]
※ Batchinger 致 Bat Fans:请访问 批处理编程的异类 ,欢迎交流与共享批处理编程心得!
7 发表于 2006-06-08 21:49 ·  中国 四川 成都 联通
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
使用批处理是可行的,登陆 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'>"
8 发表于 2006-06-09 09:53 ·  中国 广东 深圳 电信
初级用户
积分 117
发帖 37
注册 2006-06-08 12:23
20年会员
UID 56740
状态 离线
回板主,本人想用此方法管理网络,绝对没有任何违法企图!
9 发表于 2006-06-09 10:03 ·  中国 北京 联通
银牌会员
★★★
DOS联盟捡破烂的
积分 1,144
发帖 425
注册 2005-10-20 00:00
20年会员
UID 43784
来自 北京
状态 离线
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
10 发表于 2006-06-09 10:47 ·  中国 四川 成都 联通
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
呵呵,还是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'>"
11 发表于 2006-06-09 10:56 ·  中国 北京 联通
银牌会员
★★★
DOS联盟捡破烂的
积分 1,144
发帖 425
注册 2005-10-20 00:00
20年会员
UID 43784
来自 北京
状态 离线
electronixtar哈哈,估计你在发几个帖子就能够得到“银牌会员”的称呼了,羡慕啊!!!.........
12 发表于 2006-06-11 20:03 ·  IANA 局域网IP(Private-Use)
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
汗~~~帖子水分居多,等级资格充数,其实该羡慕的是你啊,帖子又多质量又高!

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'>"
13 发表于 2006-06-12 10:16 ·  中国 江苏 苏州 电信
中级用户
★★
过度热情
积分 321
发帖 139
注册 2006-03-21 17:19
20年会员
UID 52521
性别 男
状态 离线
CDO.Message再winxp下找不到.?.
請問winxp下vbs怎麼寫
14 发表于 2006-06-12 15:42 ·  中国 浙江 杭州 电信
铂金会员
★★★★
网络独行侠
积分 6,962
发帖 2,753
注册 2003-04-16 00:00
23年会员
UID 1565
性别 男
来自 河北保定
状态 离线
有一个第三方的工具叫blat,是用于从命令行发送邮件的。

http://www.blat.net
偶只喜欢回答那些标题和描述都很清晰的帖子!
如想解决问题,请认真学习“这个帖子”和“这个帖子”并努力遵守,如果可能,请告诉更多的人!
15 发表于 2006-06-12 18:26 ·  中国 福建 泉州 电信
高级用户
★★
论坛灌水专业户
积分 613
发帖 266
注册 2006-04-19 22:47
20年会员
UID 54113
来自 河南省
状态 离线
呵呵,看了老半天,眼睛都痛了,还是搞不懂~

.....................
饮马恒河畔,剑指天山西,碎叶城揽月,库叶岛赏雪,黑海之滨垂钓,贝尔加湖面张弓;中南半岛访古,东京废墟祭祖!
论坛跳转: