Mi avatar

[ecfisa]

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:

@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.