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