PC Professionell 2006 May/PCpro_2006_05.ISO/files/free_security/languard/languardnss7.exe/wuftpshell.vbs46

Text File | 2004-01-16 | 772 b | 33 lines

Function Main

Dim strRequest As String
Dim  strResponse As String
Dim SocketObject As Object
Dim regexp As Object
Dim result As Boolean


    result = false
    ip = getparameter("ComputerIP")
    port = "21"
    cr = Chr(13) +  Chr(10)
    rem _ip
    Socket.SetTimeout 5000,5000
    Set regexp = CreateObject("Vbscript.regexp")
    Set SocketObject = Socket.OpenTCP (ip,port)
    If Not SocketObject is Nothing Then
        SocketObject.send(cr)
           strResponse = SocketObject.recv(1024,2)

         If Len(strResponse) > 0 Then
                       regexp.ignorecase = true
             regexp.pattern = ".*wu-(2\.(5\.|6\.[012])).*"
            If regexp.test(strResponse) Then
                              result = true
                       End  If
                  End If
                  SocketObject.Close
    End If
    main = result

End Function