标题: 先发几个熟悉熟悉，有些陌生了... ... [打印本页]
作者: bagpipe 时间: 2006-4-27 17:53 标题: 先发几个熟悉熟悉，有些陌生了... ...
一个发送邮件的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
先发这些吧，:(唉，第一脚本差点把邮箱的用户名和密码给发了，汗.........幸亏自己想到了，要不明白点的我可就遭殃了，这些只是入门级脚本，只供初步学习
作者: 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系列下的各种脚本编写和相关技术等方面的问题。”
bagpipe兄的vbs脚本也算是脚本的一类，只是标题需要改的更贴切一些，最好能概括出主题的主旨，毕竟在批处理室发表题为“关于批处理的问题”之类的主题，其实相当于没有标题。
另外，我还打算引入sed / awk / debug / rex / perl 等众多脚本的讨论主题，这可以算是对批处理精神的扩展和外延，提供解决问题更多的可能途径。
[ Last edited by willsort on 2006-4-28 at 11:24 ]
作者: 220110 时间: 2006-5-2 22:31
BAGPIPE:
看你的最近贴子,进步好多好多,多发点,支持这版块啦.向你学习.哈.
作者: ankiller 时间: 2006-5-4 12:07
强啊！！！！变态啊！！
作者: holyman 时间: 2006-10-25 04:18
都可以算是command line的内容
作者: lxmxn 时间: 2006-10-25 07:58
对于4楼willsort兄的决定表示支持～
7楼的 holyman 可以简单的给大家讲讲command line所涵盖的范围和应用实例么？
作者: redtek 时间: 2006-11-24 22:58
这么精彩的内容，收藏～：）））
作者: lxq73061 时间: 2006-11-25 02:56
不错，支持一下