home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / vnc_detect.vbs44 < prev    next >
Encoding:
Text File  |  2004-10-12  |  740 b   |  34 lines
  1. 'checks if a vncserver is running
  2.  
  3. Function Main
  4.  
  5. Dim SocketObject As Object
  6. Dim i As Integer
  7. Dim data As String
  8. Dim result As Boolean
  9. Dim regexp As Object
  10.  
  11.     result = false
  12.     ip = getparameter("ComputerIP")
  13.     port = "5901"
  14.     cr = Chr(13) +  Chr(10)
  15.     rem _ip
  16.     Socket.SetTimeout 5000,5000
  17.     Set regexp = CreateObject("Vbscript.regexp")
  18.     Set SocketObject = Socket.OpenTCP (ip,port)
  19.     If Not SocketObject is Nothing Then 
  20.         data = SocketObject.recv(1024)
  21.                 regexp.ignorecase = true
  22.                  regexp.pattern = ".*RFB 00[0-9]\.00[0-9].*"
  23.             If regexp.test(data) Then
  24.             result=true
  25.             echo "VNC server running." + cr
  26.             echo "Version: " + data + cr
  27.                    End  If 
  28.         
  29.         SocketObject.Close    
  30.     End If
  31.     main = result
  32.  
  33. End Function
  34.