Page 1 sur 2
[R] GUID
Posté : lun. 28 sept. 2009 12:22
par Iste
Salutations,
Je cherche dans l'un de mes script à différencier plusieurs ordi.
Jusque là je faisais avec le nom de l'ordi + nom d'utilisateur, mais cela ne suffit pas toujours.
Aussi, apres quelque recherche, j'ai appris l'existence des GUID sous windows, qui permettait d'obtenir un nombre quasi unique dépendant du matériel
Mais je n'ai pas réussi a recup cette valeur magique avec autoit...
J'ai bien essayé avec les _WinAPI_GUIDFromString() et autre, mais le $tagGUID structure est pour moi trop compliqué a comprendre ^^'
Meme si je connais le principe des structures pour en avoir utilisé en C, je ne sais pas les manier avec autoit.
Du coup, je sais meme pas si cette fonction est celle que je recherche...
Donc voila, si vous savez comment obtenir une GUID d'un ordi... merci !
Re: [..] GUID
Posté : lun. 28 sept. 2009 18:33
par Tlem
Trouvé sur le forum Anglais.
Code : Tout sélectionner
Dim $TypeLib, $strGUID
$TypeLib = ObjCreate("Scriptlet.TypeLib")
$strGUID = $TypeLib.Guid
MsgBox(0,"Create GUID",$strGUID,5)
Re: [..] GUID
Posté : lun. 28 sept. 2009 18:46
par Iste
Et... et ben... c'est... bah parfait on dirait !
Merci beaucoup, car j'ai pas mal galéré la dessus ^^'
Re: [R] GUID
Posté : lun. 05 oct. 2009 20:05
par Iste
La prochaine foi je ferais plus de testes
La GUID renvoyé change a chaque execution du programme, c'est normal ? Si oui, alors ce n'est pas ce que je recherche ^^' mais dans ce cas, je ne sais pas quoi chercher.....
(du coup je penser avoir tout fini mon script et qu'il soit pret, bah en fait non...)
help :'(
Re: [R] GUID
Posté : lun. 05 oct. 2009 20:53
par Tlem
Juste pour info :
http://fr.wikipedia.org/wiki/GUID
Bon, sinon ce que tu recherche devrait être quelque chose dans ce genre
:
► Afficher le texte
Code : Tout sélectionner
MsgBox(0, 'UUID', _GetUUID())
Func _GetUUID()
Local $oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\localhost\root\cimv2")
If Not IsObj($oWMIService) Then
Return SetError(1, 0, -1)
EndIf
Local $oSysProd = $oWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct")
For $oSysProp In $oSysProd
Return SetError(0, 0, $oSysProp.UUID)
Next
Return SetError(2, 0, -1)
EndFunc
Re: [R] GUID
Posté : lun. 05 oct. 2009 22:06
par Iste
En effet, ca me semble beaucoup mieux ^^
Encore merci !
Par contre, je ne comprend pas grand chose au code.... Faudrait que je me penche sur les objets un jour :/
Re: [R] GUID
Posté : sam. 10 oct. 2009 23:08
par Iste
DJSIR a écrit :EDIT : Mon UUID est "FFF-FFF-FFF-FFF-FFF" enfin que des F, c'est normal ?
Que ce passe t-il encore ? Cette fonction n'est-elle valable que sous xp ? (j'ai uniquement des xp a ma porté ^^')
Re: [R] GUID
Posté : dim. 11 oct. 2009 01:03
par Tlem
Fonctionne sur XP, Vista et Seven (pas testé 2003, mais il n'y à pas de raison)
Re: [R] GUID
Posté : dim. 11 oct. 2009 19:21
par DJSIR
Comme la dit Iste, mon UUID est exactement :
Je tourne sous
Windows Trust 4, dans un noyeau de Windows Server 2003
Re: [R] GUID
Posté : dim. 11 oct. 2009 20:44
par Tlem
Windows Trust 4 est un système d'exploitation modifié (non officiel) et donc forcément, la commande WMI Win32_ComputerSystemProduct peut ne pas fonctionner correctement (cela semble logique).
Donc pour votre cas, inventer autre chose pour créer un autre UUID.
Re: [R] GUID
Posté : dim. 11 oct. 2009 21:10
par DJSIR
D'accord, l'IP internet me semble bien fonctionner : _GetIP()
Re: [R] GUID
Posté : dim. 11 oct. 2009 21:20
par Tlem
L'adresse MAC de la carte réseau me semble plus logique.
Re: [R] GUID
Posté : dim. 11 oct. 2009 21:29
par DJSIR
Tlem a écrit :L'adresse MAC de la carte réseau me semble plus logique.
+1
Re: [R] GUID
Posté : lun. 12 oct. 2009 01:16
par Iste
Je pencherai plutot pour le n° de série du DD, car l'adresse mac peut changer, sans meme que l'utilisateur cherche a frauder ou autre, en passant d'une connexion wifi à câble. De plus, si il formate son ordi, il n'aura pas besoin de réenregistrer le produit. De plus, il peut changer a volonté tout les éléments de son ordi. Car si il change de DD, on est sûr qu'il devra réinstaler le logiciel de toute facon :p
Par contre, c'est peut etre pas l'info la plus facile a récup, mais c'est la plus fiable a mon gout.
Je vais plancher dessus, car du coup, je risque de me retrouver coincé le jour ou un ordi aura un windows pirate ><
Re: [R] GUID
Posté : lun. 12 oct. 2009 07:20
par Tlem
C'est pas faux, bien qu'au jour d'aujourd'hui il n'y à pratiquement plus un seul PC sans une carte Ethernet embarquée (peut importe d'être en câble ou Wifi, la carte existe physiquement ...).
Cela dit le numéro du disque dur est pas mal, mais il me semble avoir vu quelque part que cela pouvait aussi poser des problèmes dans certains cas et donc il serait judicieux de rajouter un autre élément tel qu'une info de la carte mère ou autre ...
Juste pour savoir. Ce code donne t-il quelque chose sur ce Windows trafiqué.
► Afficher le texte
Code : Tout sélectionner
Global $colItems, $objWMIService, $objItem
Global $aSysProductInfo[1][1], $i = 1
$objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", 0X30)
If IsObj($colItems) Then
For $objItem In $colItems
ReDim $aSysProductInfo[UBound($aSysProductInfo) + 1][7]
$aSysProductInfo[$i][0] = $objItem.Name
$aSysProductInfo[$i][1] = $objItem.IdentifyingNumber
$aSysProductInfo[$i][2] = $objItem.SKUNumber
$aSysProductInfo[$i][3] = $objItem.UUID
$i += 1
Next
$aSysProductInfo[0][0] = UBound($aSysProductInfo) - 1
If $aSysProductInfo[0][0] < 1 Then
SetError(1, 1, 0)
EndIf
EndIf
For $i = 1 To $aSysProductInfo[0][0] Step 1
MsgBox(0, "Test _ComputerGetSystemProduct", "Name: " & $aSysProductInfo[$i][0] & @CRLF & _
"Identifying Number: " & $aSysProductInfo[$i][1] & @CRLF & _
"SKU Number: " & $aSysProductInfo[$i][2] & @CRLF & _
"UUID: " & $aSysProductInfo[$i][3] & @CRLF & _
"")
Next
Re: [R] GUID
Posté : lun. 12 oct. 2009 13:08
par DJSIR
Je ne peux tester sur mon Trust qu'a partir de la semaine prochaine.. j'ai un Cursed XP
(toujours trafiqué) sous la main !
Après avoir testé, seul le SKU est vide.
Résultats :
Code : Tout sélectionner
Name: PX6****-ABF ****.fr
Identifying Number: CZB52309Y5 *****
SKU Number:
UUID: 4F8C94A0-7427-11D9-B55E-************
(ya pas d'étoiles normalement)
Re: [R] GUID
Posté : lun. 12 oct. 2009 15:43
par Iste
En meme temps, sur mes Xp officiel, ya rien non plus xD
Sinon, un peu de mal a comprendre le code... (moi et les objets... ><)
A quoi correspondent les 4 valeurs ? Savoir si c'est bien, vu que ca semble mieux marcher chez DJSIR ^^
Edit : je viens de constater que la UUID de ce dernier script correspond bien a celle de ton premier _GetUUID()
Encore plus parfait donc, si meme les pirates l'ont ^^
Re: [R] GUID
Posté : lun. 12 oct. 2009 17:17
par Tlem
@Iste
Je ne suis pas sur que cela t'aide, mais bon ...
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Re: [R] GUID
Posté : lun. 12 oct. 2009 17:47
par Iste
Bien plus que tu ne le crois
Je sais maintenant que je peux faire confiance a cette objet, et que je n'aurai pas de probleme sur les windows crackés !
Encore merci !
Re: [R] GUID
Posté : mar. 29 déc. 2009 18:46
par HeartKey
Oui Oui je sais je donne cette réponse très tard
Mais c'est important !
Je vient prévenir que le code du DD change a CHAQUE formatage...C'est un code au niveau de la partition et comme au formatage celle-ci est effacer windows (je n'ait tester que sur windows
) en assigne un nouveaux aléatoirement...