' Permet de tester si le passage vers le ' le Service Pack 1 de XP est possible. ' Basé sur les informations Microsoft fournies ' par l'article suivant : ' http://www.microsoft.com/licensing/resources/vol/volkeys_winxpsp1.asp '~~~~Ecrit par Jean - JMST - Belgium~~~~~ regcle="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID" regvide="ProductID non spécifié dans le registre" regerr="N° ProductID incorrect dans le registre" originale="Windows XP version originale,"&VbCr&"Vous pouvez installer le SP1" pirate="Windows XP version PIRATE,"&VbCr&"vous ne pourrez pas installer le SP1" On Error Resume Next r=CreateObject("Wscript.Shell").RegRead(regcle) If Err Then Message(regvide) On Error GoTo 0 r=Split(r,"-") If Not IsArray(r) Then Message(regerr) If Not UBound(r)=3 Then Message(regerr) If Not Len(r(0))=5 Then Message(regerr) If Not Len(r(1))=3 Then Message(regerr) If Not Len(r(2))=7 Then Message(regerr) If Not Len(r(3))=5 Then Message(regerr) If r(1)&Left(r(3),2)="64023" Then Select Case r(2) Case "0000356" Message(pirate) Case "2001765" Message(pirate) End Select End If Message(originale) Sub Message(texte) MsgBox texte WScript.Quit End Sub