Cambiare Product key di Office 2003

Nel caso in cui ci si trovi con l’esigenza di dover cambiare la Product Key (il numero seriale) utilizzato per installare la vostra versione di Microsoft Office 2003, potete fare in questo modo agendo sul registro di Windows

Start -> Esegui -> REGEDIT
posizionarsi su

HKEY_LOCAL_MACHINE/Software/Microsoft/

Office/11.0/Registration/<ID-di-32-cifre>
(esportate un backup della chiave originale per sicurezza: Menu’ File -> Esporta)

rinominate la voce “ProductID” in “Old_ProductID”
eliminate la voce “DigitalProductID“
A questo punto, aprendo una qualsiasi delle applicazioni del pacchetto Office 2003, dovrebbe venirvi richiesto di inserire nuovamente il codice di registrazione.

Ovviamente non c’è bisogno di ricordare che dovreste usare le informazioni qui sopra solo se sapete bene cosa state facendo (a vostro rischio e pericolo)… e, come al solito, è bene farsi sempre una copia del registro di windows, prima di smanettarci sopra.

Per le versioni precedenti di Office (97/XP) e per lo stesso Windows 9x/Me/Nt/2k/XP invece potete usare una comodissima utility freeware che, oltre a mostrarvi semplimente il codice di registrazione da voi usato, vi permette di cambiarlo.

script per creazione backup

drivedest = “C:” disco di destinazione
drivesource = “C:sourceFolder” ‘cartella sorgente

‘########### genera cartelle utilizzando data/ora ###############################
tempdate = now()
‘il formato è %anno-mese-giorno oo:mm%
 filenamedate = DatePart (“yyyy”,tempdate)
 filenamedate = filenamedate & “-” & DatePart(“m”,tempdate)
 filenamedate = filenamedate & “-” & DatePart (“d”,tempdate) & “_”
   temp = DatePart (“h”,tempdate)
If temp < 10 Then temp = “0” & temp
  filenamedate = filenamedate & temp & “h”  ‘hour as hh
   temp =  DatePart (“n”,tempdate)
If temp < 10 Then temp = “0” & temp
 filenamedate = filenamedate & temp  ‘minutes as mm
‘#####################genero la stringa per il backup ###########################
backupcmd = “xcopy” & ” ” & drivesource & ” ” & drivedest & “” & filenamedate & ” /s /c /d /e /h /i /r /k /y”

‘#################### Esecuzione del backup #####################################
Set oShell = CreateObject(“WScript.Shell”)
strCommand = oShell.Run(backupcmd,0,True)
If strCommand <> 0 Then
MsgBox “Errore: ” & strCommand
Else
MsgBox “backup completato correttamente!”
End If
 
‘#################### help comandi xcopy ########################################
‘/S        Copia directory e sottodirectory tranne quelle vuote.
‘/C        Continua a copiare anche in caso di errori.
‘/D:m-d-y  Copia i  file modificati a partire dalla data specificata. Se non sono indicate date, copia solo i file con ora di origine più recente dell’ora di destinazione.
‘/E        Copia directory e sottodirectory, comprese quelle vuote. Analogo a /S /E. Può essere utilizzata per modificare /T.
‘/H        Copia anche i file nascosti e di sistema.
‘/I        Se la destinazione non esiste e la copia riguarda più file, presuppone che la destinazione sia una directory.
‘/R        Sovrascrive i file di sola lettura.
‘/K        Copia gli attributo. Il normale Xcopy reimposta gli attributi di sola lettura.
‘/Y        Elimina la richiesta di conferma Suppresses prompting to confirm you want to overwrite an existing destination file.
‘#################### help comandi xcopy ########################################