home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / citrix.vbs9 < prev    next >
Encoding:
Text File  |  2003-10-09  |  469 b   |  25 lines
  1. ' check for Citrix server
  2.  
  3. Function Main
  4.  
  5. Dim data As String
  6. Dim SocketObject As Object
  7. Dim result As Boolean
  8.  
  9.  
  10.     result = false
  11.     ip = getparameter("ComputerIP")
  12.     port = "1494"
  13.     cr = Chr(13) +  Chr(10)
  14.     rem _ip
  15.     Socket.SetTimeout 5000,5000
  16.     Set SocketObject = Socket.OpenTCP (ip,port)
  17.     If Not SocketObject is Nothing Then 
  18.            data = SocketObject.recv(1024)
  19.            If InStr(1, data,"ICA.") > 0 Then 
  20.                   result = true
  21.            End If
  22.     End If
  23.     main = result
  24.  
  25. End Function