home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / languard / languardnss7.exe / ad.vbs3 < prev    next >
Encoding:
Text File  |  2004-01-12  |  388 b   |  23 lines
  1. Function main 
  2.  
  3.     Dim HTTPObj As Object
  4.     Dim HTTPResponse As Integer
  5.     Dim result As Boolean
  6.  
  7.     result = false
  8.     
  9.     ip = getparameter("ComputerIP")
  10.     port = 80
  11.     
  12.     Set HTTPobj = HTTP.Connect (ip,port)    
  13.     HTTPobj.GetURL("/cgi-bin/ad.cgi")    
  14.     HTTPobj.Authentication = 1
  15.     HTTPResponse = HTTPobj.SendRequest ()        
  16.     If HTTPResponse <> 404 Then
  17.         result = true    
  18.     End If
  19.     main = result
  20.     
  21. End Function
  22.  
  23.