home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / squid.vbs39 < prev    next >
Encoding:
Text File  |  2003-11-11  |  560 b   |  29 lines
  1. ' check for Squid
  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 = "3128"
  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,"Squid/") > 0 Then
  23.                   
  24.                  result = true
  25.            End If
  26.     End If
  27.     main = result
  28.  
  29. End Function