PegaInfo_ListaTXT

[carlosnuan]

@echo off
SetLocal EnableDelayedExpansion

:: Informe aqui o caminho para o arquivo que está com a lista de computadores:
set Lista=computadores.txt

:: Informe aqui a pasta onde deseja salvar o resultado:
set Pasta=

if not defined Pasta set Pasta=%~dp0
If /i not exist "%Pasta%" md "%Pasta%"
echo.
set /p "Usuario=Informe o usuario para acesso remoto: "
call :EsconderSenha Senha "Informe a Senha: "
cls
set UsuarioTMP=!Usuario!
set SenhaTMP=!Senha!
cd "%~dp0"

for /f "usebackq delims=" %%a in ("%Lista%") do (

if exist "%Pasta%%%a.temp" del /q /a /f "%Pasta%%%a.temp"
if exist "%Pasta%%%a.html" del /q /a /f "%Pasta%%%a.html"

if /i "%%a"=="%computername%" (
set "Usuario= " & set "Usuario=!Usuario: =!"
set "Senha= " & set "Senha=!Senha: =!"
)

echo ^<html^>>>"%Pasta%%%a.temp"
echo ^<body^>>>"%Pasta%%%a.temp"
echo Nome do Computador: %%a ^<br^>>>"%Pasta%%%a.temp"
echo. ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Processador:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_processor get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do If not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Memoria Fisica:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_physicalmemory get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do IF not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Sistema:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_computersystem get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do IF not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Disco:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_diskdrive get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do IF not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Placa Base:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_baseboard get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do IF not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^<p^>^<b^>^<u^>Configuracoes Adaptador de Rede:^</u^>^</b^>^</p^>>>"%Pasta%%%a.temp"
for /f "Delims=" %%b in ('"wmic /node:"%%a" /user:"!Usuario!" /password:"!Senha!" path win32_networkadapterconfiguration get /format:list"') do for /f "tokens=1,2 delims==" %%c in ("%%b") do IF not "%%d"=="" echo/%%c: ^%%d^</font^> ^<br^>>>"%Pasta%%%a.temp"
echo ^</html^>>>"%Pasta%%%a.temp"
echo ^</body^>>>"%Pasta%%%a.temp"

if not Defined Usuario set Usuario=!UsuarioTMP!
if not Defined Senha set Senha=!SenhaTMP!

ren "%Pasta%%%a.temp" "%%a.html"
)
exit /b

:EsconderSenha
set "_Senha="
for /f %%a in ('"prompt;$H&for %%b in (0) do rem"') do set "BS=%%a"
set /p "=%~2" <nul
:keyLoop
set "key="
for /f "delims=" %%a in ('xcopy /l /w "%~f0" "%f0" 2^>nul') do if not defined key set "key=%%a"
set "key=%key:-1%"
if defined key (if "%key%"=="%BS%" (if defined _Senha (set "_Senha=%_Senha:~0,-1%" set /p "=!BS! !BS!"<nul)) else (
set "_Senha=%_Senha%%key%" & set /p "="<nul) & goto :keyLoop)
echo/
set "%~1=%_Senha%"
goto :eof