[R] GUID

[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 !

[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)

[Iste]

Et... et ben... c'est... bah parfait on dirait !

Merci beaucoup, car j'ai pas mal galéré la dessus ^^'

[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 :'(

[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

[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 :/

[Iste]

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é ^^')

[Tlem]

Fonctionne sur XP, Vista et Seven (pas testé 2003, mais il n'y à pas de raison)

[DJSIR]

Comme la dit Iste, mon UUID est exactement :

Code : Tout sélectionner

FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF

Je tourne sous Windows Trust 4, dans un noyeau de Windows Server 2003

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

[DJSIR]

D'accord, l'IP internet me semble bien fonctionner : _GetIP()

[Tlem]

L'adresse MAC de la carte réseau me semble plus logique.

[DJSIR]

L'adresse MAC de la carte réseau me semble plus logique.

+1

[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 ><

[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

[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)

[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 ^^

[Tlem]

@Iste
Je ne suis pas sur que cela t'aide, mais bon ...
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

[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 !

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