INB COMPUTERS "Honestidad, calidad y profesionalismo"

HTA para redes

Aplicaciones HTA para redes

Aplicación HTA para ver parámetros de redes

Sencilla aplicación que permite dos opciones:

- Ver la configuración de la red con el comando NETCH.

- Ver la configuración TCP/IP con el comando IPCONFIG.

<html>

<head>

<title>Ver parámetros de redes</title>

<HTA:APPLICATION

ID="Ver parametro redes"

APPLICATIONNAME="Ver parámetros de redes"

SCROLL="yes"

SINGLEINSTANCE="yes"

WINDOWSTATE="normal"

window.resizeTo(420, 300);

</script>

function openNORFI()

{

var shell = new ActiveXObject("WScript.Shell");

shell.run("http://norfipc.com");

}

</script>

.button {width: 300px;margin:2px 0 2px 0;}

</style>

</head>

Sub Getip()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k netsh interface ip show config"

objShell.Run strCommand, 1

End Sub

Sub Getipconfig()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k ipconfig /all"

objShell.Run strCommand, 1

End Sub

</SCRIPT>

<h2>Ver parámetros de redes</h2>

<a href="http://norfipc.com/" target="_blank" onclick="openNORFI()"><font color="white">http://norfipc.com</a></font></p></div>

</div>

</body>

</html>

Aplicación HTA para ver información de redes

La aplicación permite ejecutar en el Símbolo del sistema varios comandos, para obtener información del estado de la red. Ofrece las siguientes opciones:

- Ver la configuración de redes con el comando NETSH.

- Ver la configuración TCP/IP con el comando IPCONFIG.

- Ver las conexiones actualmente establecidas con NETSTAT.

- Ver los puertos abiertos en escucha.

- Saber la MAC Address del adaptador de red.

<html>

<head>

<title>Informacion de redes a traves de CMD</title>

<HTA:APPLICATION

ID="Informacion de redes"

APPLICATIONNAME="Informacion de redes"

SCROLL="yes"

SINGLEINSTANCE="no"

WINDOWSTATE="normal"

function openNORFI()

{

var shell = new ActiveXObject("WScript.Shell");

shell.run("http://norfipc.com");

}

</script>

Sub Window_Onload

window.opener = "x"

End Sub

</SCRIPT>

.button {width:300px;margin:2px 0 2px 0;} .button2 {width: 120px; text-align:center;}

</style>

</head>

Sub Getnetsh()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k netsh interface ip show config"

objShell.Run strCommand, 1

End Sub

Sub Getipconfig()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k ipconfig /all"

objShell.Run strCommand, 1

End Sub

Sub Getnetstat1()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k netstat -a -n -b -proto TCP 05|findstr /c:ESTABLISHED"

objShell.Run strCommand, 1

End Sub

Sub Getnetstat2()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k netstat -a -n|FINDSTR /C:LISTENING"

objShell.Run strCommand, 1

End Sub

Sub GetMAC()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k getmac"

objShell.Run strCommand, 1

End Sub

</SCRIPT>

<h2>Información de redes</h2>

<a href="http://norfipc.com/" target="_blank" onclick="openNORFI()"><font color="white">http://norfipc.com</a></font></p></div>

</body>

</html>

Aplicación HTA para ver administrar la conexión de internet con NETSTAT

Aplicación para ejecutar todas las opciones que permite el comando NETSTAT.

Permite las siguientes opciones:

- Ver todas las conexiones establecidas.

- Ver estadísticas por protocolos.

- Ver puertos y direcciones en formato numérico.

- Ver solo conexiones del protocolo TCPv4.

- Ver los puertos abiertos que están a la escucha.

- Ver puertos con conexiones establecidas.

- Guardar informe del comando anterior en un archivo de texto.

- Ver nombre de las aplicaciones involucradas en cada conexión.

- Guardar informe del comando anterior en un archivo de texto.

Lee más información sobre el uso de este comando: Ver, conocer, e identificar con NETSTAT las conexiones establecidas

<html>

<head>

<title>Administrar conexiones con NETSTAT</title>

<HTA:APPLICATION

ID="NETSTAT"

APPLICATIONNAME="NETSTAT"

SCROLL="yes"

SINGLEINSTANCE="no"

WINDOWSTATE="normal"

function openNORFI()

{

var shell = new ActiveXObject("WScript.Shell");

shell.run("http://norfipc.com");

}

</script>

Sub Window_Onload

window.opener = "x"

End Sub

</SCRIPT>

.button {width:300px;margin:2px 0 2px 0;} .button2 {width: 120px; text-align:center;}

</style>

</head>

Sub GetNETSTAT()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AO 04"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTATS()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AOS 04"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT2()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AON 04"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT3()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AON -P TCP 04"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT4()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AN 04|FINDSTR /C:LISTENING"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT5()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AN -P TCP 04|FINDSTR /C:ESTABLISHED"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT5I()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AN -P TCP 04|FINDSTR /C:ESTABLISHED>C:\AA.TXT"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT6()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -AN -b -P TCP 04|FINDSTR /C:ESTABLISHED"

objShell.Run strCommand, 1

End Sub

Sub GetNETSTAT6B()

Set objShell = CreateObject("WScript.Shell")

strCommand = "cmd /k NETSTAT -ANB -P TCP 04|FINDSTR /C:ESTABLISHED>C:\BB.TXT"

objShell.Run strCommand, 1

End Sub

</SCRIPT>

<BODY>

<h2>Administrar conexión con NETSTAT</h2>

<a href="http://norfipc.com/" target="_blank" onclick="openNORFI()"><font color="white">http://norfipc.com</a></font></p></div>

</body>

</html>

Aplicación HTA para hacer ping a un dominio o dirección IP

Permite hacer PING a una dirección IP o a un nombre de dominio de internet.

Se puede seleccionar el número de solicitudes de eco que se van a enviar.

El valor predeterminado es 4, pero se puede escoger 8, 20 o infinitas, con la opción ping –t

Lee más información sobre el uso de este comando: Como usar el comando PING en conexiones de redes

<html>

<head>

<title>Hacer Ping</title>

<HTA:APPLICATION

APPLICATIONNAME="Ping"

ID="objPing_Info"

SCROLL="no"

SINGLEINSTANCE="yes"

</head>

Sub Run_Cmd(strCommand) ' Opens CMD and runs Ping

Dim IP_Address

IP_Address = Replace(strCommand," ","")

oSelection = document.getElementById("MySelection").value

Set objShell = CreateObject("WScript.Shell")

objShell.Run "%COMSPEC% /k ping " & oSelection & IP_Address

' Call the save function

Call saveData(IP_Address)

End Sub

' Saves input to file root dir

Sub saveData(strLog)

' Get the current path of app

FullName = replace(objPing_Info.commandLine,chr(34),"")

arrFN=split(FullName,"\")

FileName = arrFN(ubound(arrFN))

SourceDir=replace(FullName,FileName,"")

' Write to file

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(SourceDir & "ping.txt", 8, true)

f.WriteLine(Now) & " " & strLog

' f.WriteLine(strLog)

f.Close

End Sub

</SCRIPT>

<body>

<h2>Hacer PING</h2>

</select> <br>

<br>

<a href="http://norfipc.com/" target="_blank" onclick="openNORFI()"><font color="white">http://norfipc.com</a></font></p>

</div>

</body>

Aplicación HTA para ejecutar el comando IPCONFIG

Permite ejecutar el comando IPCONFIG, mostrando en la ventana de la aplicación el resultado.

IPCONFIG muestra información y todos los datos de la configuración del equipo para el protocolo TCP/IP.

La aplicación ejecuta los siguientes comandos:

IPCONFIG /all

IPCONFIG /displaydns

IPCONFIG /renew

Lee más información sobre el uso de este comando: Como usar el comando IPCONFIG en Windows

<html>

<head>

<title>Comandos de IPCONFIG</title>

<hta:application id="ipconfig"

applicationname="ipconfig"

icon="ipconfig.ico"

singleinstance="yes"

border="dialog"

innerborder="no"

scroll="no"

var shell = new ActiveXObject("WScript.Shell");

function ipconfig( param ) {

var cmd = "ipconfig";

if ( param )

cmd += " /"+param;

var exe = shell.exec( cmd );

var out = "";

while( !exe.stdOut.atEndOfStream ) {

var s = exe.stdOut.readLine();

s = s.replace( /\r/gm, "" );

out += s+"\n";

}

document.getElementById( "output" ).value = out;

}

</script>

Sub verdns()

Set objShell = CreateObject("WScript.Shell")

strCommand = "C:\Windows\System32\cmd.exe /c IPCONFIG /displaydns > resultado.dat"

objShell.Run strCommand, 1

strCommand = "C:\Windows\System32\cmd.exe /c start notepad resultado.dat"

objShell.Run strCommand, 1

End Sub

</script>

body {

background-color: buttonface;

color: buttontext;

font-family: "MS Sans Serif", Arial, sans-serif;

}

button {

margin: 5px 5px 0 0;

width: 6em;

}

p {

font-size: smaller;

}

</style>

</head>

<body>

<form>

<h2>IPCONFIG</h2>

<p>Muestra la configuración simple y avanzada, muestra registros DNS y renueva la conexión</p>

<button onclick="window.close()" title="Close application">Close</button>

</div>

<button onclick="ipconfig()" title="Show configuration">IPconfig</button>

<button onclick="ipconfig('renew')" title="Renew configuration">Renew</button>

</form>

</body>

</html>

Extraído de norfipc.com (s.f.). Aplicaciones HTA para obtener información y diagnosticar redes. Recuperado el 06 de mayo de 2020 de https://norfipc.com/hta/aplicaciones-hta-para-obtener-informacion-diagnosticar-redes.php.

Page updated

Report abuse

HTA para redes

Aplicaciones HTA para redes

Busca más contenidos en la página del Profesor Iván Anguiano arriba a la derecha en la lupa.