redis清除全部数据vbs脚本

由于我们现有业务需要经常清除redis数据，所以写了个改脚本来一键式执行。可以根据业务不同修改其中的redis命令，来以此节省重复工作浪费的时间。

vbs+redis-cli+bat已上传CSDN地址，下载地址：
http://download.csdn.net/detail/r455678/9661402
废话不说，vbs脚本见下

' * @author andre.yang
' * date: 2016-8-25
' * @version 1.0
':::::::::远程登陆后执行相关命令::::::::::
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
set ws=createobject("wscript.shell")
WshShell.run"cmd"
WScript.Sleep 200
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200
':::::::::调用redis cli客户端 如果没有密码则不需要-a参数::::::::::
WshShell.SendKeys"D:\redis-cli.exe -h 192.168.10.106 -a XXXXXXXXXXXXX{ENTER}"
WshShell.SendKeys"echo '========= telnet 192.168.10.106 6379'{ENTER}"
':::::::::打印删除前dbsize::::::::::
WshShell.SendKeys"dbsize{ENTER}"
WScript.Sleep 200
WshShell.SendKeys"{ENTER}flushall{ENTER}"
WScript.Sleep 200
':::::::::打印删除后dbsize::::::::::
WshShell.SendKeys"{ENTER}dbsize{ENTER}"
WScript.Sleep 200
WshShell.SendKeys"{ENTER}set whoiskeng zmm "
WScript.Sleep 200
WshShell.SendKeys"{ENTER}quit{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"exit"
WshShell.SendKeys"{ENTER}"

vbs可以直接执行，或者可以写个bat调下

@call c:\temp.vbs