home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / mysql_version.vbs22 < prev    next >
Encoding:
Text File  |  2003-11-11  |  900 b   |  41 lines
  1. ' retrieve the mysql version
  2.  
  3. Function Main
  4.  
  5. Dim SocketObject As Object
  6. Dim i As Integer
  7. Dim data As String
  8. Dim versionInfo As String
  9. Dim result As Boolean
  10.  
  11.  
  12.     result = false
  13.     ip = getparameter("ComputerIP")
  14.     port = "3306"
  15.     cr = Chr(13) +  Chr(10)
  16.     rem _ip
  17.     Socket.SetTimeout 5000,5000
  18.     Set regexp = CreateObject("Vbscript.regexp")
  19.     Set SocketObject = Socket.OpenTCP (ip,port)
  20.     If Not SocketObject is Nothing Then 
  21.         data = SocketObject.recv(250,1)
  22.            If Len(data) > 6 Then
  23.                   i = 6
  24.                   versionInfo = ""     
  25.                   While (Asc(Left(data,i)) > 0) And (i < Len(data))
  26.                        versionInfo = versionInfo + Left(data,i)
  27.                        i = i + 1
  28.                  Wend
  29.                   If Len(versionInfo) > 0 Then
  30.                          'echo("MySQL version : " + CStr(versionInfo))
  31.                          result = true
  32.             End If
  33.         End If
  34.     End If
  35.     main = result
  36. '    If result Then
  37. '        main = CStr(versionInfo)
  38. '    End If
  39.  
  40.  
  41. End Function