sc stop wscsvc

WMIC service GET displayname /ALL

WMIC service GET name /ALL

@echo off

Rem By EleKtro H@cker
Rem Visita Foro.ElHacker.Net

Title Proyecto 1
Mode con cols=58 lines=30
Color 7


:Select
:::::

PUSHD "%WINDIR%\System32\"

Echo+
Echo  Unidades disponibles
Echo  ====================
Echo.
For /F "tokens=2-9 Delims=\ " %%a in ('fsutil fsinfo drives') do (
	If "%%a" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%a)
	If "%%b" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%b)
	If "%%c" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%c)
	If "%%d" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%d)
	If "%%e" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%e)
	If "%%f" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%f)
	If "%%g" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%g)
)

Echo.
Echo  elige la letra de la unidad de destino.    (Ejemplo: C)
Echo.
set /p DEST=^>^> 

If Not defined DEST (
	CLS
	Goto :Select
) ELSE (
	Set DEST=%DEST:~0,1%
	Set DEST=%DEST%:
)

If not exist "%Dest%" (
	Echo+
	Echo   "%DEST%"  Unidad no valida...
	Ping -n 3 LocalHost >nul
	Set Dest=
	Cls
	Goto :Select)


:Start
::::::

Cls
Echo+
Echo  %ComputerName% (%username%)
Echo.
Echo  Origen:  %Homedrive%
Echo  Destino: %Dest%
Echo.
Echo ==========================================================

Echo  Copiando Mis documentos...
call :Copy %userprofile%\Documents

Echo.
Echo  Copiando Mi m£sica...
call :Copy %userprofile%\Music

Echo.
Echo  Copiando Escritorio...
call :Copy %userprofile%\Desktop

Echo.
Echo  Copiando Fondo de escritorio...
call :Copy %appdata%\Microsoft\Windows\Themes

Echo.
Echo  Copiando Cookies Firefox...
For /F "tokens=*" %%_ in ('Dir /B "%appdata%\Mozilla\Firefox\Profiles"') do (
	MKdir "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\"  >nul 2>&1
	Copy /Y "%appdata%\Mozilla\Firefox\Profiles\%%_\Cookies.sq*" "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\" >nul 2>&1)

Echo.
Echo  Copiando Conversaciones MSN...
Echo  ... Mentira xD

Echo.
Echo  Extrayendo Informacion del PC...
Systeminfo > "%DEST%\%ComputerName%\Info PC.txt"

Echo.
Echo  Extrayendo Programas instalados...
Echo :Programas instalados: > "%DEST%\%ComputerName%\Programas instalados.txt"
Echo ====================== >>"%DEST%\%ComputerName%\Programas instalados.txt"
CALL :Reg HKLM
CALL :Reg HKCU



Goto :Fin



:SubRutinas:
::::::::::::

:Copy
Set "PATH=%*"
Set "PATH=%PATH::=%"
Xcopy /E /Y "%*" "%DEST%\%ComputerName%\%PATH%\" >nul 2>&1
Goto :EOF

:REG
Setlocal EnableDelayedexpansion
For /F "tokens=*" %%_ in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"') Do (
	Set KeyName=%%_
	Set KeyName=!KeyName:~71!

For /F "tokens=* Skip=2 delims=_" %%a in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!KeyName!" /V "DisplayName" 2^>nul') Do (
	Set Name=%%a
	Set Name=!Name:~29!
	Echo !NAME!>>"%DEST%\%ComputerName%\Programas instalados.txt"
	)
)
Sort "%DEST%\%ComputerName%\Programas instalados.txt" /O "%DEST%\%ComputerName%\Programas instalados.txt"
Setlocal DisableDelayedexpansion
Goto :EOF



:Fin
::::
Echo.
Echo.
Echo.
Echo  Informaci¢n guardada!! :)
Ping -n 5 LocalHost >nul
Exit

Words=;1;2;3;4;5;6
Repeated=;1;4

2
3
5
6

Uniq -U Token4.txt > Finish.txt

uniq --help

Usage: uniq [OPTION]... [INPUT [OUTPUT]]
Discard all but one of successive identical lines from INPUT (or
standard input), writing to OUTPUT (or standard output).

Mandatory arguments to long options are mandatory for short options too.
  -c, --count           prefix lines by the number of occurrences
  -d, --repeated        only print duplicate lines
  -D, --all-repeated[=delimit-method] print all duplicate lines
                        delimit-method={none(default),prepend,separate}
                        Delimiting is done with blank lines.
  -f, --skip-fields=N   avoid comparing the first N fields
  -i, --ignore-case     ignore differences in case when comparing
  -s, --skip-chars=N    avoid comparing the first N characters
  -u, --unique          only print unique lines
  -w, --check-chars=N   compare no more than N characters in lines
      --help     display this help and exit
      --version  output version information and exit