|
nblue
初级用户
 
积分 117
发帖 37
注册 2006-6-8
状态 离线
|
『楼 主』:
批处理有这个功能吗?将本机IP发到指定的邮箱
使用 LLM 解释/回答一下
批处理有这个功能吗?
运行此批处理后会将本机IP发到指定的邮箱,如果本机没有联网则不显示错误提示和不发送。
不知我的这个设想能否实现?
Does batch processing have this function?
After running this batch processing, the local IP will be sent to the specified email. If the local machine is not connected to the network, there will be no error prompts and no sending.
I wonder if my this idea can be realized?
|
|
2006-6-8 14:46 |
|
|
piziliu2004
中级用户
   过度热情
积分 321
发帖 139
注册 2006-3-21
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
可以的.! 很久以前用過一次,!現在不記得了.!只知道是有個郵件收發的命令. 後接
指定的邮箱,內容就可以了.
Okay.! Used it once a long time ago.! Now I don't remember.! I just know there is a command for email sending and receiving. Followed by the specified email address, and the content is okay.
|
|
2006-6-8 14:54 |
|
|
nblue
初级用户
 
积分 117
发帖 37
注册 2006-6-8
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
谁知道具体是怎么写的呀
Who knows exactly how to write it?
|
|
2006-6-8 17:06 |
|
|
bagpipe
银牌会员
     DOS联盟捡破烂的
积分 1144
发帖 425
注册 2005-10-20 来自 北京
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
本人觉得批处理本来来解决这个问题好像是行不通的,除了第三方工具,不过可以批处理+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!!!!!! "
I just think that batch processing alone seems not to work to solve this problem. Except for third-party tools, but it can be realized by combining batch processing + VBS script. I will give you the code of the VBS script to send emails. You can use it in combination with batch processing. The code is as follows
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="I'm just trying it out"
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 楼』:
使用 LLM 解释/回答一下
谢谢楼上的,但我是个菜鸟,批处理要怎么来写呢
Thanks to the person above, but I'm a newbie. How to write a batch script?
|
|
2006-6-8 17:35 |
|
|
willsort
元老会员
         Batchinger
积分 4432
发帖 1512
注册 2002-10-18
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
───────────────── 版主提示 ─────────────────
请注意你所提及的问题已经涉及到某些敏感或具有潜在危害性的技术信息
如果你无法在一日内证明获取此类信息的正当性与合法性
本版版主将有权利对你的提问和相关回复采取一些有效的屏蔽手段
───────────────── 版主提示 ─────────────────
Last edited by willsort on 2006-6-8 at 21:00 ]
───────────────── Moderator Notice ─────────────────
Please be aware that the issues you mentioned involve certain sensitive or potentially harmful technical information.
If you cannot prove the legitimacy and legality of obtaining such information within one day,
The moderator of this forum has the right to take some effective shielding measures on your questions and related replies.
───────────────── Moderator Notice ─────────────────
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 楼』:
使用 LLM 解释/回答一下
使用批处理是可行的,登陆 Mail Server可以用 telnet ~~不过要对RFC狠狠的研究透才行~~
Using batch processing is feasible. Logging in to the Mail Server can use telnet ~~ but you need to thoroughly study the RFCs~~
|

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 楼』:
使用 LLM 解释/回答一下
回板主,本人想用此方法管理网络,绝对没有任何违法企图!
Reply to the board moderator, I just want to use this method to manage the network, and there is absolutely no illegal intention!
|
|
2006-6-9 09:53 |
|
|
bagpipe
银牌会员
     DOS联盟捡破烂的
积分 1144
发帖 425
注册 2005-10-20 来自 北京
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
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
WINDOWS 2000 passed the test, not applicable to 98 system
@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="Your sending email address" >>1.vbs
echo Email.To="Your receiving email address" >>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 address" >>1.vbs
echo ^.Item(NameSpace^&"smtpserverport")=25 >>1.vbs
echo ^.Item(NameSpace^&"smtpauthenticate")=1 >>1.vbs
echo ^.Item(NameSpace^&"sendusername")="Username" >>1.vbs
echo ^.Item(NameSpace^&"sendpassword")="Password" >>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 楼』:
使用 LLM 解释/回答一下
呵呵,还是vbs~~~
Hehe, still 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 楼』:
使用 LLM 解释/回答一下
electronixtar哈哈,估计你在发几个帖子就能够得到“银牌会员”的称呼了,羡慕啊!!!.........
electronixtar Haha, it's estimated that after you post a few more threads, you'll be able to get the title of "Silver Member". Envious!!! .........
|
|
2006-6-9 10:56 |
|
|
electronixtar
铂金会员
      
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第 12 楼』:
使用 LLM 解释/回答一下
汗~~~帖子水分居多,等级资格充数,其实该羡慕的是你啊,帖子又多质量又高!
Sweat~~~Most of the posts are water, and the level qualifications are just filling numbers. In fact, I should envy you, your posts are numerous and of high quality!
|

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 楼』:
使用 LLM 解释/回答一下
CDO.Message再winxp下找不到.?.
請問winxp下vbs怎麼寫
CDO.Message cannot be found under winxp.?.
How to write vbs under winxp
|
|
2006-6-12 10:16 |
|
|
Climbing
铂金会员
       网络独行侠
积分 6962
发帖 2753
注册 2003-4-16 来自 河北保定
状态 离线
|
|
2006-6-12 15:42 |
|
|
chineselgs
高级用户
    论坛灌水专业户
积分 613
发帖 266
注册 2006-4-19 来自 河南省
状态 离线
|
『第 15 楼』:
使用 LLM 解释/回答一下
呵呵,看了老半天,眼睛都痛了,还是搞不懂~
.....................
Hehe, after looking at it for a long time, my eyes hurt, still don't understand~
.....................
|

饮马恒河畔,剑指天山西,碎叶城揽月,库叶岛赏雪,黑海之滨垂钓,贝尔加湖面张弓;中南半岛访古,东京废墟祭祖!
|
|
2006-6-12 18:26 |
|