Temas de Ms-Dos - Descripción PC remoto con lista txt

<<>>
Imágen de perfil
Val: 17
Ha mantenido su posición en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

Contenido en LWPDescripción PC remoto con lista txtgráfica de visualizaciones


Ms-Dos

Publicado el 20 de Febrero del 2020 por Edward
1.064 visualizaciones desde el 20 de Febrero del 2020
Iniciando debemos tener una carpeta donde trabajar y de alli realizar las referencia de los comandos y localizaciones de archivos necesarios.
1. creamos una carpeta en desde el cmd ejecutamos mkdir c:\descripcion o si deseas desde el explorardor

2. abrimos la la carpeta c:\descripcion y creamos dos archivos un llamado listado.txt desde cmd seria
1
echo > c:\descripcion\listado.txt
, este contendrá todos los nombres de los equipos de nuestra red y el otro archivo es el bacth lo creamos con cmd con
1
echo > c:\descripcion\desc.bat

3.con el archivo c:\descripcion\desc.bat damos clic derecho y damos editar
si tiene algún contenido lo borramos.

colocamos el siguiente código en archivo batch:

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
@echo off
cls
 
REM iniciamos eliminando conexiones de red establecidas para que esten duplicadas y envie error,
REM si tu red o computadoras no tienen restriccciones puedes eliminar este paso de validar un usuario.
NET USE * /delete
set /p USUARIO="USUARIO--->"
SetLocal EnableExtensions EnableDelayedExpansion
Set /P "=CLAVE:" < Nul
Call :PasswordInput
set PASS= !Line!
goto :inicio
CLS
PAUSE
:PasswordInput
For /F skip^=1^ delims^=^ eol^= %%# in (
'"Echo(|REPLACE.EXE "%~f0" . /U /W"') Do Set "CR=%%#"
For /F %%# In (
'"Prompt $H &For %%_ In (_) Do Rem"') Do Set "BS=%%#"
Set "Line="
:_PasswordInput_Kbd
Set "CHR=" & For /F skip^=1^ delims^=^ eol^= %%# in (
'REPLACE.EXE "%~f0" . /U /W') Do Set "CHR=%%#"
If !CHR!==!CR! Echo(&Goto :Eof
If !CHR!==!BS! (If Defined Line (Set /P "=!BS! !BS!" <Nul
Set "Line=!Line:~0,-1!"
)
) Else (Set /P "=*" <Nul
If !CHR!==! (Set "Line=!Line!^!"
) Else Set "Line=!Line!!CHR!"
)
Goto :_PasswordInput_Kbd
 
 
REM Hasta aqui solo hemos validado el password o clave del usuario que sea administrador en todas
REM  las computadoras en red.
 
:INICIO
 
REM Con este for verificamos las computadoras listadas en el TXT listado
 
for /f "TOKENS=*" %%a in (C:\descripcion\listado.txt) do call :revisar %%a
 
 
ECHO VERIFIQUE EN C:\DESCRIPCION LOS RESULTADOS
NET USE * /delete
Rem finaliza el proceso de recoleccion de datos y sale.
pause
 
goto :fin
 
:revisar
REM asigna el valor a computadora
SET computadora=%1
 
 
net use \\%computadora%\C$ %PASS% /u:%USUARIO%
if %errorlevel% GTR 0 ECHO %computadora% NO ENCONTRADA & >>Sin_Verificar.TXT ECHO %1 & GOTO FIN
 
REM si la encuentra la anexa a esta lista verificadas.txt
>>Verificadas.TXT ECHO %1 %TIME%, %DATE%
 
 
REM verificamos el tipo de sistema operativo
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% os get Name /value') do SET osname=%%A
 
 
REM buscamos el version de Service Pack Instalado
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% os get ServicePackMajorVersion /value') do SET sp=%%A
 
REm fabricante de la computadoras
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% ComputerSystem Get Manufacturer /value') do SET manufacturer=%%A
 
REM modelo de computadora
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% ComputerSystem Get Model /value') do SET model=%%A
 
REM nombre o el procesador instalado
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% /Output:STDOUT  CPU get name /value') do SET NameProcess=%%A
 
REM el key o licencia de windows installada
FOR /F "tokens=2 delims='='" %%A in ('wmic /node:%computadora% path softwarelicensingservice get OA3xOriginalProductKey /value') do SET KEYBIOS=%%A
 
REM el tamaño del disco duro
FOR /F "tokens=2 delims='='" %%A in ('wmic /NODE:%computadora%  LOGICALDISK C: GET SIZE /VALUE') do SET DISCO=%%A
 
REM el espacio de disco libre
FOR /F "tokens=2 delims='='" %%A in ('wmic /NODE:%computadora%  LOGICALDISK C: GET FREESPACE /VALUE') do SET LIBRE=%%A
 
 
 
 
>c:\descripcion\%computadora%.txt echo EQUIPO: %computadora%
>>c:\descripcion\%computadora%.txt echo MARCA: %manufacturer%
>>c:\descripcion\%computadora%.txt echo MODELO: %model%
>>c:\descripcion\%computadora%.txt echo SERIE: %serialnumber%
>>c:\descripcion\%computadora%.txt echo PROCESADOR: %NameProcess%
systeminfo /S %system% | findstr /C:"total" >> c:\descripcion\%computadora%.txt
>>c:\descripcion\%computadora%.txt echo HD: %DISCO:~0,-10% GB
>>c:\descripcion\%computadora%.txt echo ESPACIO_DISPONIBLE: %LIBRE:~0,-10% MB
>>c:\descripcion\%computadora%.txt echo Sistema Operativo: %osname%
>>c:\descripcion\%computadora%.txt echo SERVICEPACK: %sp%
>>c:\descripcion\%computadora%.txt echo LICENCIA_WINDOWS_BIOS(OEM): %KEYBIOS%
>>c:\descripcion\%computadora%.txt echo OEM EDICIÓN: %KEYBIOSEDICION%
:fin
 
 
rem HASTA LA LINEA SUPERIOR LLEGA EL CODIGO.

Guardamos el documento y vamos y abrimos el txt c:\descripcion\listado.txt
en este TXT vamos a colocar los nombre de los equipos en red uno debajo de otro asi

1
2
3
computador1
computador2
computador3

Se guarda.

Ya esta todo listo ahora ejecutamos el batch que esta en c:\descripcion\desc.bat

En espera de sus comentarios......
A.V:T.



Comentarios... (0)


No hay comentarios
 

Comentar

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/t10501