Ms-Dos - ventana emergente antes de imprimir

 
Vista:

ventana emergente antes de imprimir

Publicado por juan (1 intervención) el 15/09/2016 23:38:45
quisiera crear un bat con una ventana emergente justo antes de imprimir para darle cierta información a mis clientes pero no se como, ya intente con el programador de tareas pero no encuentro una opcion o no se como aplicarla. gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.419
Oro
Ha mantenido su posición en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

ventana emergente antes de imprimir

Publicado por Antoni Masana (811 intervenciones) el 16/09/2016 07:34:05
Te pongo un BAT de ejemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
@echo off
 
echo literal stat  > entrada
echo quit         >> entrada
ftp -A -s:entrada ftp.es.debian.org >temp1 2>nul
 
findstr "Connected" temp1 >temp
del entrada
set /p a=""<temp
del temp1 temp
set a=%a:~18,20%
 
echo.                                              >Datos_PC.txt
echo Nombre del Equipo..........: %computername%  >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
wmic computersystem get domain|findstr /v "Domain" >temp.txt
set/p grupo=""<temp.txt
del temp.txt
set grupo=%grupo:~0,10%
 
echo Grupo de Trabajo...........: %grupo%         >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
echo Usuario Activo.............: %username%      >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
echo I.P. Publica...............: %a%             >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
ipconfig|FINDSTR "Dirección IPv4" >temp.txt
set /p ip=""<temp.txt
del temp.txt
set ip=%ip:~47,20%
 
echo I.P. local.................: %ip%            >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
ipconfig|FINDSTR "subred" >temp.txt
set /p subred=""<temp.txt
del temp.txt
set subred=%subred:~47,20%
 
echo Mascara de Subred..........: %subred%        >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
ipconfig /all|findstr "enlace" >temp.txt
set/p enlace=""<temp.txt
del temp.txt
set enlace=%enlace:~47,18%
 
echo Puerta de enlace...........: %enlace%        >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
ipconfig /all|findstr "Servidores" >temp.txt
set /p dns=""<temp.txt
del temp.txt
set dns=%dns:~47,25%
 
echo Servidor DNS...............: %dns%           >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
ipconfig /all|findstr "sica" >temp.txt
set /p mac=""<temp.txt
del temp.txt
set mac=%mac:~47,28%
 
echo Direccion Fisica(M.A.C.)...: %mac%           >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
echo Hecho por EL SWAMI                           >>Datos_PC.txt
echo.                                             >>Datos_PC.txt
 
type Datos_PC.txt
 
echo Set objshell = createobject("wscript.shell")         >datos.vbs
echo Set ping = objshell.exec("cmd /c type Datos_PC.txt")>>datos.vbs
echo Msgbox ping.stdout.readall                          >>datos.vbs
echo Set ping = objshell.exec("cmd /c del Datos_PC.txt") >>datos.vbs
echo Set ping = objshell.exec("cmd /c del datos.vbs")    >>datos.vbs
 
start datos.vbs



La parte que te interesa en tu consulta es esta:

1
2
3
4
5
6
7
echo Set objshell = createobject("wscript.shell")         >datos.vbs
echo Set ping = objshell.exec("cmd /c type Datos_PC.txt")>>datos.vbs
echo Msgbox ping.stdout.readall                          >>datos.vbs
echo Set ping = objshell.exec("cmd /c del Datos_PC.txt") >>datos.vbs
echo Set ping = objshell.exec("cmd /c del datos.vbs")    >>datos.vbs
 
start datos.vbs

Cambia la parte Subrayada y en Cursiva para poner tu texto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar