NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send

用vbs实现虚拟主机和域名查循的脚本
IfWScript.Arguments.Count1ThenWScript.Echo"Example:CScript"&WScript.ScriptName&"www.sohu.com"WScript.QuitEndIfurl="http://www.seologs.com/ip-domains.html?domainname="&WScript.Arguments(0)SetoXMLHttpRe

用vbs通过135端口执行命令的脚本
wmiexec.vbs(通过135端口执行命令)setww=createobject("wbemscripting.swbemlocator")setcc=ww.connectserver("172.20.241.218","root/cimv2","user","password")Setpp=cc.get("Win32_Process")pp.create("c

用vbs实现的瞬间关闭多个系统进程的脚本
程序试验环境为windowsxp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。'--------------------------------------------------------------------------