modifier computer ID

Question

bonjour est il possible de changer son adresse ID si oui comment 

merci d avance pour vos reponse

cs_casy · Answer

Qu'appele-tu adresse ID ????????

Moi comme ça, ça me dit rien comme terme.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

hugocox · Answer

je veu dire par adresse ID  le numero du pc 000005030498494 je ne ssais pas a quoi il corespond mais ilme le faux pour un logiciel

jmfmarques · Answer

" le numero du pc 000005030498494 je ne ssais pas a quoi il corespond mais ilme le faux pour un logiciel "

Tiens !
Et si d'autres "logiciels", sur cette machine, tenaient compte également de ce numéro ? ...Ils ne fonctionneraient alors plus !

hugocox · Answer

en faite j ai un une licence pour un logiciel qui est pour se numero ID d ordinateur et je voudrai metre se logiciel sur un autre pc 
donc je cherche un moyen de changer le code ID qui dois corespondre a l adresse de mon pc ou a son nom

jmfmarques · Answer

J'avais bien compris ... (sans souscrire à ta "manoeuvre", bien évidemment)
Relis maintenant bien ce que je t'ai déjà répondu...

hugocox · Answer

conclusion si je change se code je perd tout

cs_casy · Answer

Perso, je n'arrive même pas à voir ou est cet ID.

Tu le trouve où, ou comment ????

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

Il s'agit apparemment du N° de série "Brut" du volume , formaté en "000000000000000"
XP, je crois, ce sert de ce N° (je crois également savoir qu'il faut obtenir une nouvelle clé après chaque reformatage)

cs_casy · Answer

Pas certain Jacques car dans ce cas là le n° va changer à chaque formatage.

Pour ma part j'ai regarder avec Everest, j'ai bien trouver un identifiant unique universel, mais tout est à 0. Les autres informations dans la rubrique sont marquées "To be fill by O.E.M"  (normal, c'est moi qui est monté la machine )
JE presume que ces informations là sont stockées dans la flash de la carte mère. 

Je me souviens d'ailleurs avoir eu une question posée à ce sujet par un client car il se servait d'informations de ce genre pour identifier les PC. Et un des PC que nous lui avions fourni, que nous avions monter nous même pour une fois (demande spécifique) n'avait pas ces informations

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

hugocox · Answer

il s affiche quand je lance le logiciel et il y a marqué en face computer ID                                    Identification du PC<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

le fabricant du logiciel appele sa

jmfmarques · Answer

Il y a 3 numéros :

- 2 d'entre eux changent à chaque formatage : l'un de ces 2 là est brut, l'autre est mis "en format d'affichage"

   exemple de ma machine :
   Brut = 9483775692
   "affiché" = 3887-108C    (c'est en fait le même, présenté différemment)

- le dernier ne change pas : c'est le n° de série donné par le fabriquant du disque

Je crois bien que XP se sert du tout 2er (le brut) et que chaque reformatage entraîne la nécessité d'obtenir une nouvelle validaton de MS.

Mais on peut le savoir vite fait bien fait !
Je peux mettre ici un bout de code extirpant les 2 1ers n°s et en le lançant sur la machine de hugocox; on verra bien si celà correspond ...

jmfmarques · Answer

Bon (bâclé, mais...)

Hugocox, lance ce code et dis-nous ce qui s'affiche.

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
   (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _
    ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
    lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
    ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)


Private Sub Form_Activate()
  Me.FontSize = 12
  Dim ser As Long, I As Long, j As Long
  Dim z0 As String * 256
  Dim z As String * 256
  Call GetVolumeInformation("c" + ":" & Chr$(0), z0, 256, ser, I, j, z, 256)
  Me.Print "Brut = " & ser
  Serie = Right(String(8, "0") + Hex$(ser), 8)
  serialnum = Left(Serie, 4) + "-" + Right$(Serie, 4)
  Me.Print "Affiché = " & serialnum
End Sub

Modifier computer ID

12 réponses

Votre réponse