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