home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / pop3_version.vbs32 < prev    next >
Encoding:
Text File  |  2004-10-12  |  887 b   |  39 lines
  1. Function Main
  2.  
  3. Dim SocketObject As Object
  4. Dim i As Integer
  5. Dim data As String
  6. Dim result As Boolean
  7. Dim regexp As Object
  8. Dim tmpString As String
  9.  
  10.     result = false
  11.     ip = getparameter("ComputerIP")
  12.     port = "110"
  13.     cr = Chr(13) +  Chr(10)
  14.     rem _ip
  15.     Socket.SetTimeout 5000,5000
  16.     Set regexp = CreateObject("Vbscript.regexp")
  17.     Set SocketObject = Socket.OpenTCP (ip,port)
  18.     If Not SocketObject is Nothing Then 
  19.         data = SocketObject.recv(1024)
  20.                 regexp.ignorecase = true
  21.                  regexp.pattern = ".*POP3.*"
  22.             If regexp.test(data) Then
  23.                 tmpString=data
  24.                 Do While (InStr(tmpString,"[") > 0)
  25.                 tmpString = Mid (tmpString, 1, InStr(tmpString, "[")-1) + Mid(tmpString, InStr(tmpString, "]")+1)
  26.             Loop
  27.             result = true
  28.             echo "POP3 Version: " + cr
  29.             echo tmpString
  30.             
  31.                    End  If 
  32.                            
  33.         SocketObject.Close
  34.     End If
  35.  
  36.     main = result
  37.  
  38. End Function
  39.