Tema: Mi avatar
Ver Mensaje Individual
  #59  
Antiguo 12-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hajaja!

Miren que encontré releyendo una vieja revista especializada (no pongo nombre por que aún se edita).

Cambia el serial number de una unidad:
Cita:
@echo off
if '%1'==" GOTO error
SET unidad=
FOR %%v IN (a A a: A:) DO IF '%1'=='%%v' SET unidad=0
FOR %%v IN (b B b: B:) DO IF '%1'=='%%v' SET unidad=1
FOR %%v IN (c C c: C:) DO IF '%1'=='%%v' SET unidad=2

IF '%unidad%'=="GOTO error
Echo L 0 %unidad% 0 1 > archtmp
Echo E 26 29 %5 %4 %3 %2 >> archtmp
Echo w 0 %unidad% 0 1 >> archtmp
Echo q >> archtmp
debug nul
del archtmp
SET unidad=
FOR %%v in (a b c d A B C D) DO IF '%1'=='%%v' SET unidad=:
Echo Numero serial de la unidad %1%unidad% cambiado a: %2%3-%4%5
DIR %1%unidad% | FIND "El numero serial es:"
SET unidad=
GOTO End

:error
Echo Syntaxis: NUSERIAL d: xx xx xx xx
Echo donde d: es el disco que tomará el nuevo numero serial
Echo y xx xx xx xx son los ocho digitos hexadecimales
Echo ordenado como desee el numero serial
Echo ejemplo NUSERIAL a: 12 34 ab
Echo number 1234-abcd

:End
rem dir %1%unidad%/p
Que nostalgia... las máquinas de punta en ese entonces usaban un 486 DX !

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-05-2011 a las 13:11:43.
Responder Con Cita