windows

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bonjour a tous

Je vais essayé d'être bref dans ma question

Est ce que dans les plates formes windows xx. il s'y trouve un numéro unique
a chaque système installé, je ne vous parle pas du code d’enregistrement
si oui !y a t'il un moyen pour le récupéré soit dans le disque dur ou bien dans le registre
il y aurai bien le nom du PC mais celui-ci peut être changé

merci pour votre réponse
bonne journée

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Pour toutes les infos système, tu peux toujours lancer en ligne de commande:

C:\Windows\System32\msinfo32.exe

maintenant je ne sais pas (et je ne pense pas) s'il existe un numéro unique à chaque pc, à part le numéro d'enregistrement.

Citation :: je ne vous parle pas du code d’enregistrement

Code enregistrement, pour toi, c'est la licence Windows ?

Tu as raison de ne mas vouloir l'utiliser car elle aussi peut être modifiée, et même dupliquée...

Tu peux utiliser le numéro de série de l'unité centrale.

Tu peux aussi utiliser le numéro de série du disque dur (C:). Tu l'obtiens par KGF.dll:*

Code:: dim res%
memo 1 : full_space 1 : bar_both 1 : font_name 1,"Courier"

dll_on "KGF.dll"

res% = dll_call0("GetVolumeList")
clipboard_paste 1

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

merci klaus
ton aide met précieuse

Autre information qui a peu de chance de se trouver identique que deux machines: l'adresse MAC:

Code:: dim res%, MAC$
dll_on "KGF.dll"

MAC$ = string$(17," ")
res% = dll_call1("GetMacAddress",adr(MAC$))
message "MAC = "+MAC$

end

Faudra recharger KGF.dll de mon WebDav, dossier DLLs, ou sur un de mes deux sites internet (fonction nouvelle). La longueur de la chaîne retournée est de 17 caractères (6x2+5).

J'ai modifié la fonction GetMacAddress. Elle peut maintenant retourner, au choix, l'adresse MAC principale de l'ordinateur, dans une chaîne de caractères, ou la liste des toutes les adresses MAC de l'ordinateur, dans un mémo:

Code:: label chercher
dim res%, MAC$
caption 0,"Chercher les adresses MAC"
option 1 : top 1,10 : left 1,10 : caption 1,"LocalHost"
option 2 : top 2,10 : left 2,110 : caption 2,"Toutes"
button 3 : top 3,10 : left 3,210 : caption 3,"Chercher" : on_click 3,chercher
memo 4 : top 4,40 : left 4,10 : width 4,300 : height 4,300 : bar_both 4
mark_on 1
dll_on "KGF.dll"
end

chercher:
MAC$ = string$(17," ")
if checked(1)=1
res% = dll_call2("GetMacAddress",adr(MAC$),0)
text 4,"MAC = "+MAC$
else
res% = dll_call2("GetMacAddress",handle(4),1)
end_if
end

KGF.dll à jour sur le WebDav dossier DLLs et sur les deux sites internet.

» Windows 7/8 vers Windows 10
» Mac & Windows
» Windows 10
» Windows 10
» API Windows