home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / tomcat.vbs42 < prev    next >
Encoding:
Text File  |  2003-10-09  |  624 b   |  30 lines
  1. ' tomcat test
  2.  
  3. Function main
  4. Dim   ip As String
  5. Dim data As String
  6. Dim  req As String
  7. Dim  SocketObject As Object
  8. Dim result As Boolean
  9.  
  10.  
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "8080"
  14.     cr = Chr(13) +  Chr(10)
  15.     rem _ip
  16.     Socket.SetTimeout 5000,5000
  17.     req = "HEAD / HTTP/1.0" + cr + cr
  18.     Set SocketObject = Socket.OpenTCP (ip,port)
  19.     If Not SocketObject is Nothing Then 
  20.            SocketObject.send(CStr(req))
  21.            data = SocketObject.recv(1024)
  22.            If InStr(1, data,"Apache Tomcat/") > 0 Then
  23.                   'echo("Apache Tomcat running on port 8080")
  24.                result = true
  25.            End If
  26.     End If
  27.     Main = result
  28.  
  29. End Function
  30.