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 = "80"
	cr = Chr(13) +  Chr(10)
	Socket.SetTimeout 5000,5000
	Set regexp = CreateObject("Vbscript.regexp")
	Set SocketObject = Socket.OpenTCP (ip,port)
	If Not SocketObject is Nothing Then 
		SocketObject.send(CStr("GET /non_existant_web_link123511.htm HTTP/1.0"+cr+cr))
		strResponse = SocketObject.recv(1024)
		If Len(strResponse) > 0 Then
			regexp.pattern = "[C-Zc-z]:(\\[A-Za-z0-9_.-])*\\"          								
			If regexp.test(strResponse) Then
				result = true
		        	End  If
		'	regexp.pattern = "(/[A-Za-z0-9_.+-]*/)"          								
     '         		If regexp.test(strResponse) Then
	'			result = true
	'	        	End  If
              
 		End If
 		SocketObject.Close
	End If
	main = result

End Function