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
先发这些吧,:(唉,第一脚本差点把邮箱的用户名和密码给发了,汗.........幸亏自己想到了,要不明白点的我可就遭殃了,这些只是入门级脚本,只供初步学习作者: bush 时间: 2006-4-28 00:33 vbs应该不能算作dos批处理门下吧?
可能分论坛的名称应该改为dos批处理&windos脚本技术作者: bagpipe 时间: 2006-4-28 10:10 哦,是这样啊!谢谢BUSH兄提醒,以后不发了,也是,虽然都是脚本,不过VBS主要还是WINDOWS方面的跟DOS关系不是太大...................作者: willsort 时间: 2006-4-28 11:18 Re bush & bagpipe:
大概 bush 兄认为这里是DOS批处理专区吧,实际上这是 DOS批處理 & 腳本技術(批處理室),版区介绍上也说得更明确,“大家可以在这儿讨论关于DOS下的批处理、DOS以及NT系列下的各种脚本编写和相关技术等方面的问题。”