![]() |
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-03 16:13 |
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术(批处理室) » 批处理有这个功能吗?将本机IP发到指定的邮箱 |
| 可打印版本 2,464 / 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 来自 河北保定 | |
| 第15楼 chineselgs | 发表于 2006-06-12 18:26 |
| 高级用户 发帖 266 积分 613 来自 河南省 | |
|
呵呵,看了老半天,眼睛都痛了,还是搞不懂~
..................... |
|
| 1 2 下一页 |
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |