home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / oracle_server.vbs27 < prev    next >
Encoding:
Text File  |  2003-10-09  |  731 b   |  32 lines
  1. ' check for Oracle HTTP server
  2.  
  3. Function main
  4.  
  5. Dim SocketObject As Object
  6. Dim req As String
  7. Dim data As String
  8. Dim result As Boolean
  9.  
  10.  
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "7777"
  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 Len(data) > 0 Then
  23.                   If InStr(1, data,"Oracle HTTP Server") > 0 Then
  24.                      '    echo("Oracle HTTP Server running on this computer on port "+cstr(port))
  25.                          result = True
  26.                   End If
  27.            End If
  28.     SocketObject.Close
  29.        End If
  30.     main = result
  31. End Function
  32.