中国DOS联盟

一个发送邮件的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!!!!!! "

一个查看进程和ID的VBS脚本

dim bag,pipe,li,bo,wen
set bag=createobject("wbemscripting.swbemlocator")
set pipe=bag.connectserver(".","root\cimv2")
set li=pipe.execquery("select * from Win32_Process")
for each i in li
bo=bo+i.name&" "&i.handle&vbcr
next
wscript.echo bo

一个查看管理员组成员的VBS脚本

dim li,i,bo,net
set net=createobject("wscript.network")
set li=getobject("WinNT://"&net.computername&"/Administrators")
for each i in li.members
bo=bo&" "&i.name&vbcr
next
msgbox bo,vbinformation


先发这些吧，:(唉，第一脚本差点把邮箱的用户名和密码给发了，汗.........幸亏自己想到了，要不明白点的我可就遭殃了，这些只是入门级脚本，只供初步学习

vbs应该不能算作dos批处理门下吧？
可能分论坛的名称应该改为dos批处理&windos脚本技术

哦，是这样啊！谢谢BUSH兄提醒，以后不发了，也是，虽然都是脚本，不过VBS主要还是WINDOWS方面的跟DOS关系不是太大...................

Re bush & bagpipe:

大概 bush 兄认为这里是DOS批处理专区吧，实际上这是 DOS批處理 & 腳本技術（批處理室），版区介绍上也说得更明确，“大家可以在这儿讨论关于DOS下的批处理、DOS以及NT系列下的各种脚本编写和相关技术等方面的问题。”

bagpipe兄的vbs脚本也算是脚本的一类，只是标题需要改的更贴切一些，最好能概括出主题的主旨，毕竟在批处理室发表题为“关于批处理的问题”之类的主题，其实相当于没有标题。

另外，我还打算引入sed / awk / debug / rex / perl 等众多脚本的讨论主题，这可以算是对批处理精神的扩展和外延，提供解决问题更多的可能途径。

[ Last edited by willsort on 2006-4-28 at 11:24 ]

BAGPIPE:
看你的最近贴子,进步好多好多,多发点,支持这版块啦.向你学习.哈.

强啊！！！！变态啊！！

都可以算是command line的内容

这么精彩的内容，收藏～：）））

不错，支持一下