SecureCRT脚本

        工作中需要通过SecureCRT管理多台服务器，脚本可以省去大量的体力工作，下面代码是查看各个服务器上某个进程是否在运行。

'@Script: language="VBScript"'@Author: HCDim outputFile, serverFile, foutDim outputPath, serverPathDim user, pwd, ip, snameoutputPath = "C:\Users\haochao\Desktop\out.txt"serverPath = "C:\Users\haochao\Desktop\server.txt"Set fout = CreateObject("Scripting.FileSystemObject")Set outputFile = fout.OpenTextFile(outputPath, 2, True)Set serverFile = fout.OpenTextFile(serverPath, 1, False)Sub main()crt.Screen.Synchronous = TrueDim serverDim arrDo While serverFile.AtEndOfStream <> Trueserver = serverFile.ReadLineserver = trim(server)arr    = Split(server)ip     = arr(0)user   = arr(1)pwd    = arr(2)sname  = arr(3)Call connect()Loopcrt.Screen.Synchronous = False    Call openFile()End SubSub connect()Dim cmdcmd = "/ssh2 /L " & user &" /PASSWORD " & pwd & " /C 3DES " & ipOn Error Resume Nextcrt.Session.Connect cmdif Err.Number <> 0 ThenoutputFile.Write sname & " fail to connect!!!" & vbCrLfElseCall process()End Ifcrt.Session.DisconnectEnd SubSub process()crt.Screen.Send "ps -ef|grep AppServer|grep -v grep" & vbCrIf crt.Screen.WaitForStrings("AppServer", 1) <> False ThenoutputFile.Write sname & " is running..." & vbCrLfElse outputFile.Write sname & " is stop!!!" & vbCrLfEnd IfEnd SubSub openFile()Dim wsSet ws = CreateObject("wscript.shell") ws.run outputPathEnd Sub