File: D:/web/itpartnership/tools/network-tools_prev.asp
<html>
<head>
<title>Network Tools</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="itptools.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body bgcolor="#000000" leftmargin="10" topmargin="10">
<script type="text/javascript"><!--
google_ad_client = "pub-4068449785147539";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text";
google_ad_channel ="0853005827";
google_color_border = "333333";
google_color_bg = "000000";
google_color_link = "FFFFFF";
google_color_url = "999999";
google_color_text = "FFCC66";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<br><br><br><br>
<!--#include file="functions.asp"-->
<%
Dim LHost, LCmd
LHost = Request.Form("host")
LCmd = Request.Form("cmd")
If LHost = "" Then LHost = Request.ServerVariables("REMOTE_ADDR")
%>
<form name="network-tools" action="network-tools.asp" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="33%" valign="top"> Host: </td>
</tr>
<tr>
<td valign="top"><input name="host" type="text" class="write" value="<%=LHost%>" size="38">
</td>
</tr>
<tr>
<td valign="top" nowrap> <span class="btn">
<input type="submit" name="cmd" value="Do Ping">
<input type="submit" name="cmd" value="Do TraceRt">
<input type="submit" name="cmd" value="Do NSLookup">
</span><br>
</td>
</tr>
</table>
</form>
<%
If LCmd <> "" And LHost <> "" Then
' send email to purchases@itpartnership to notify us that tool used
' (SS,9/5/06) removed, not working anyway due to tools@itpartnership.com account not existing
'Dim NL
'NL = Chr(13) + Chr(10) + Chr(13) + Chr(10) ' *** may be a better way?
' send the email using Dundas Mailer Control
'Dim objEmail 'Mailer control
'Set objEmail = Server.CreateObject("Dundas.Mailer")
'objEmail.SMTPRelayServers.Add "mail.itpartnership.com"
'set Mailer control properties and collection items
'objEmail.TOs.Add "tools@itpartnership.com"
'objEmail.FromAddress = "tools@itpartnership.com"
'objEmail.Subject = "Tools Used Notification"
'objEmail.Body = "Tool " + LCmd + " used for " + LHost & NL & "Used on " & Now() & NL
'send email
'objEmail.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here
'Set objEmail = Nothing
' run the tool
Set objShell = CreateObject("WScript.Shell")
Dim objShell, objExecObject
If LCmd = "Do Ping" Then
Set objExecObject = objShell.Exec("cmd /c ping " + LHost)
ElseIf LCmd = "Do TraceRt" Then
Set objExecObject = objShell.Exec("cmd /c tracert " + LHost)
Else
Set objExecObject = objShell.Exec("cmd /c nslookup -querytype=any " + LHost)
End If
Do While Not objExecObject.StdOut.AtEndOfStream
' replace space with and tab with 5 x
Response.Write ReplaceStr(ReplaceStr(objExecObject.StdOut.ReadLine(), " ", " "), Chr(9), " ") + "<br>"
Loop
Set objExecObject = Nothing
Set objShell = Nothing
End If
%>
<p> </p><hr size="1" noshade>
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td width="33%" valign="top">
<div align="left"><strong>Ping</strong><br>
Ping verifies that a particular IP address or host name is live on the
Internet. Ping is used diagnostically to ensure that a host computer you
are trying to reach is actually operating, and how long it took to
reply. Also useful for finding the IP number of a named host.
</div></td>
<td width="34%" valign="top"><strong>TraceRt</strong><br>
TraceRoute traces the set of routers visited from one computer to another.
The length of the network connection is indicated by the number of routers
in the path. Useful for finding the cause of the delay when getting a slow
(or no) response from a web site. </td>
<td width="33%" valign="top"><p><strong>NSLookup</strong><br>
Use NameServerLookup to display the name server information about a domain.
The output shows the IP address of the domain, its DNS servers, and mail
exchange records.</p></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td valign="top"> <div align="left">
<p>view our main web site <a href="http://www.itpartnership.com"><font color="#FFFFFF">www.itpartnership.com</font></a></p>
</div>
</td>
</tr>
</table>
<script type="text/javascript"><!--
google_ad_client = "pub-4068449785147539";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "image";
google_ad_channel ="0853005827";
google_color_border = "333333";
google_color_bg = "000000";
google_color_link = "FFFFFF";
google_color_url = "999999";
google_color_text = "FFCC66";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-4455167-1");
pageTracker._initData();
pageTracker._trackPageview();
</script>
</body>
</html>