Set objFS = CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments str1 = getCommandOutput("C:\Program Files\MySQL\MySQL Server 5.7\bin\mysqladmin -u root -p123456 ping")
If Instr(str1,"alive") > 0 Then WScript.Echo 1 Else WScript.Echo 0 End If
Function getCommandOutput(theCommand)
Dim objShell, objCmdExec Set objShell = CreateObject("WScript.Shell") Set objCmdExec = objshell.exec(thecommand) getCommandOutput = objCmdExec.StdOut.ReadAll
Set objFS = CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments str1 = getCommandOutput("C:\Program Files\MySQL\MySQL Server 5.7\bin\mysqladmin -u root -p123456 extended-status") Arg = objArgs(0) str2 = Split(str1,"|") #注意mysql的路径和账户密码自己进行修改其余不需要动 For i = LBound(str2) to UBound(str2)
If Trim(str2(i)) = Arg Then WScript.Echo TRIM(str2(i+1)) Exit For End If next
Function getCommandOutput(theCommand)
Dim objShell, objCmdExec Set objShell = CreateObject("WScript.Shell") Set objCmdExec = objshell.exec(thecommand) getCommandOutput = objCmdExec.StdOut.ReadAll