-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
You could use the MSXML component on the client side. This will only
work in IE:
--
Function Checksite(sURL, ByRef sMimeType, ByRef sStatusCode)
Set objHTTP = New ServerXMLHTTP
On Error Resume Next
objHTTP.open "GET", sURL
objHTTP.send
If Err.Number <> 0 Then
'site is not there...
Checksite = False
Else
sMimeType = objHTTP.getResponseHeader("Content-Type")
sStatusCode = objHTTP.Status
Checksite = True
End If
On Error Goto 0
Set objHTTP = Nothing
End Function
--
Just call the above function for every host on your network. Check
docs on msdn.microsoft.com for more info.
HTH!
Ben Timby
Webexcellence
PH: 317.423.3548 x23
TF: 800.808.6332 x23
FX: 317.423.8735
[EMAIL PROTECTED]
www.webexc.com
- -----Original Message-----
From: FLETCHER, DOUG [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 30, 2002 8:02 AM
To: ActiveServerPages
Subject: OT- Client script to systematically redirect to host:port
address es
I would like to find a clientside script that would allow me to
systematically scan our network for host:port web servers. I've
tried just
running a port scanner... but a lot of computer show up with port 80
being
active but if you try to just pointing a browser to the host no page
is
displayed. I just want a script to hit each address in our network
range on
a specific port... if it responds.. display the page, otherwise go on
the
the next IP in the range. Does something like this exist? Or can
anyone
give me some sample code to get me started. I have done very little
client-side programming to date... almost all my experience has been
server
side.
Thanks for your help!
Doug Fletcher
- ---
You are currently subscribed to activeserverpages as: [EMAIL PROTECTED]
To unsubscribe send a blank email to
%%email.unsub%%
-----BEGIN PGP SIGNATURE-----
Version: PGP 7.0.4
iQA/AwUBPW+qW/nby1cCm2Q8EQL4RACfXAcX5SHiehNaRyd6vd/atbEnKf8AoJVX
70Z9UKyMHvL00QtE89PSUjgD
=jWu8
-----END PGP SIGNATURE-----
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
