Hola a todos,
¿Sabe alguien como introducir un banner tras un comando de msdos?
Es decir;
Tras ejecutar
ipconfig
Que en la respuesta que da el sistema aparezca por ejemplo;
Adaptador Ethernet Conexión de área local 2 :
Sufijo de conexión específica DNS :
Dirección IP. . . . . . . . . . . :
Máscara de subred . . . . . . . . :
Puerta de enlace predeterminada :
[Ordenador de Manolito]
Un saludo
#!/usr/bin/perl
# @PoC System command
sub _execCommand{
my $sCommand = shift;
foreach (qx($sCommand)) {
$sReturn = $_;
}
return $sReturn;
}
system("ifconfig wlan0");
print "Ordernador de: " . &_execCommand("whoami");
Resultado,
wlan0 Link encap:Ethernet direcciónHW 00:21:00:bc:fc:20
Direc. inet:192.168.0.101 Difus.:192.168.0.255 Másc:255.255.255.0
Dirección inet6: fe80::221:ff:febc:fc20/64 Alcance:Enlace
ACTIVO DIFUSIÓN FUNCIONANDO MULTICAST MTU:1500 Métrica:1
Paquetes RX:698 errores:0 perdidos:0 overruns:0 frame:0
Paquetes TX:18 errores:0 perdidos:0 overruns:0 carrier:0
colisiones:0 long.colaTX:1000
Bytes RX:230052 (230.0 KB) TX bytes:3941 (3.9 KB)
Ordernador de: shellroot
Ok, gracias por responder, pero ¿como puedo integrar eso para todos los comandos de msdos?
Es decir es una especie de marca de agua, para que aparezca bien si hago un ping un tacert, un ipconfig ... simplemente entrar en dos y tras ejecutar cualquier comando antes del nuevo prompt recibir [ordenador de manolito]
Gracias
sub _execCommand{
my $sCommand = shift;
foreach (qx($sCommand)) {$sReturn .= $_;}
foreach (qx("whoami")) {$sReturn .= "\nOrdernado de: " . $_;}
return $sReturn;
}
print _execCommand("ifconfig wlan0");
Resultado,
shellroot@alex-laptop:~/Escritorio$ perl PoC.pl
wlan0 Link encap:Ethernet direcciónHW 00:21:00:bc:fc:20
Direc. inet:192.168.0.101 Difus.:192.168.0.255 Másc:255.255.255.0
Dirección inet6: fe80::221:ff:febc:fc20/64 Alcance:Enlace
ACTIVO DIFUSIÓN FUNCIONANDO MULTICAST MTU:1500 Métrica:1
Paquetes RX:3990 errores:0 perdidos:0 overruns:0 frame:0
Paquetes TX:85 errores:0 perdidos:0 overruns:0 carrier:0
colisiones:0 long.colaTX:1000
Bytes RX:1311831 (1.3 MB) TX bytes:15146 (15.1 KB)
Ordernado de: shellroot
No se mucho PERL, pero así funciona. XD
Eso lo puedes hacer con el comando FOR, parámetro /f. Si quieres que el mensaje esté entre la salida del comando puedes usar un contadosp ara saber donde insertarlo.
Hola,
Pero donde introduzco el codigo para que por defecto pueda abrir msdos y tras ejecutar cualquier comando (ping, tracert ...) aparezca dicho banner?
He encontrado la solución,
mediante el comando prompt puedo personalizar el cmd
de tal manera que estableciendo un variable de entorno de las propiedades de sistema como sigue se soluciona el problema.
Prompt [Ordenador de Manolito]$_$P$G
A mi me ha valido,
Saludos