vb语言脚本自动启动Tomcat

下面我写一段vbs脚本，把它保存成文件(后缀名为vbs)后双击运行就行了

on   error   resume   Next   

  Dim   a   

  a   =   True   

  set   WshShell   =   WScript.CreateObject("WScript.Shell")   

  Do   While   a   

  set   http   =   CreateObject("Microsoft.XMLHTTP")   

  http.open   "POST","http://192.168.80.144:8080",false   

  http.send   

 if   http.Status   >   500  then      

  WshShell.Run("net   start   tomcat6")   

  end   if   

  WScript.Sleep(30000)   

  loop

 回钦波讲解：http://192.168.80.144:8080 换成你想要的ip地址

                     http.Status 会返回不同的状态，如返回200是OK，404是服务器报错，这里500是没有开启

                                       服 务

                      net   start   tomcat6   ，当本机安装tomcat6时 保持作者写法不变即可，如果是tomcat5改为

                                                           net start tomcat5 即可

                       WScript.Sleep(30000)   ， 休息30秒