中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-03 18:17
48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » 批处理有这个功能吗?将本机IP发到指定的邮箱
可打印版本  2,470 / 25
第1楼 nblue 发表于 2006-06-08 14:46
初级用户 发帖 37 积分 117
批处理有这个功能吗?将本机IP发到指定的邮箱
批处理有这个功能吗?
运行此批处理后会将本机IP发到指定的邮箱,如果本机没有联网则不显示错误提示和不发送。
不知我的这个设想能否实现?
第2楼 piziliu2004 发表于 2006-06-08 14:54
中级用户 发帖 139 积分 321
可以的.! 很久以前用過一次,!現在不記得了.!只知道是有個郵件收發的命令. 後接
指定的邮箱,內容就可以了.
第3楼 nblue 发表于 2006-06-08 17:06
初级用户 发帖 37 积分 117
谁知道具体是怎么写的呀
第4楼 bagpipe 发表于 2006-06-08 17:17
银牌会员 发帖 425 积分 1,144 来自 北京
本人觉得批处理本来来解决这个问题好像是行不通的,除了第三方工具,不过可以批处理+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楼 nblue 发表于 2006-06-08 17:35
初级用户 发帖 37 积分 117
谢谢楼上的,但我是个菜鸟,批处理要怎么来写呢
第6楼 willsort 发表于 2006-06-08 20:57
元老会员 发帖 1,512 积分 4,432

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


[ Last edited by willsort on 2006-6-8 at 21:00 ]
第7楼 electronixtar 发表于 2006-06-08 21:49
铂金会员 发帖 2,672 积分 7,493
使用批处理是可行的,登陆 Mail Server可以用 telnet ~~不过要对RFC狠狠的研究透才行~~
第8楼 nblue 发表于 2006-06-09 09:53
初级用户 发帖 37 积分 117
回板主,本人想用此方法管理网络,绝对没有任何违法企图!
第9楼 bagpipe 发表于 2006-06-09 10:03
银牌会员 发帖 425 积分 1,144 来自 北京
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楼 electronixtar 发表于 2006-06-09 10:47
铂金会员 发帖 2,672 积分 7,493
呵呵,还是vbs~~~
第11楼 bagpipe 发表于 2006-06-09 10:56
银牌会员 发帖 425 积分 1,144 来自 北京
electronixtar哈哈,估计你在发几个帖子就能够得到“银牌会员”的称呼了,羡慕啊!!!.........
第12楼 electronixtar 发表于 2006-06-11 20:03
铂金会员 发帖 2,672 积分 7,493
汗~~~帖子水分居多,等级资格充数,其实该羡慕的是你啊,帖子又多质量又高!
第13楼 piziliu2004 发表于 2006-06-12 10:16
中级用户 发帖 139 积分 321
CDO.Message再winxp下找不到.?.
請問winxp下vbs怎麼寫
第14楼 Climbing 发表于 2006-06-12 15:42
铂金会员 发帖 2,753 积分 6,962 来自 河北保定
有一个第三方的工具叫blat,是用于从命令行发送邮件的。

http://www.blat.net
第15楼 chineselgs 发表于 2006-06-12 18:26
高级用户 发帖 266 积分 613 来自 河南省
呵呵,看了老半天,眼睛都痛了,还是搞不懂~

.....................
1 2  下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023