[VBS]Chercher valeur exact dans une chaine du registre

Version imprimable

Bonjour

J'essai de trouver comment faire pour comparer une données d'une clé du registre avec le nom exact, or la clé du registre contient d'avantage d'info...

Dans la clé recherchée

Code:

strTemp = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\Identifier"

La donnée se retrouve sous la forme Intel64 Family 6 Model 78 Stepping 3

Je veux donc comparer à Family 6 seulement (selon l'exemple) ou Family 5 ou Family 4

J'ai essayé ceci...
Code:

1 2 3 4 5 6 7 8 9 10 Dim objShell, strTemp, strChaine Set objShell = WScript.CreateObject("WScript.Shell") strTemp = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\Identifier" strChaine = "Family 6" if (strTemp) = (strChaine) Then WScript.Echo "YES: " & objShell.RegRead(strTemp) Else WScript.Echo "Not present " End If
Une piste à me suggérer :P merci

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim objShell, strTemp, strChaine
Set objShell = WScript.CreateObject("WScript.Shell")
strTemp = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\Identifier"
Temp = objShell.RegRead(strTemp)
Motif = "Family [4-6]"
SousChaine = Extract(objShell.RegRead(strTemp),Motif)
 
wscript.echo "Valeur depuis le registre est : " & vbcrlf & objShell.RegRead(strTemp)
wscript.echo "Valeur lue après une extraction est : " & vbcrlf & SousChaine
 
strChaine = "Family 6"
If SousChaine = strChaine Then
    WScript.Echo "YES: " & objShell.RegRead(strTemp)
Else 
    WScript.Echo "Not present "
End If
'**********************************************************
Function Extract(Data,Motif)
    Dim oRE,oMatches,Match,Line
    set oRE = New RegExp
    oRE.IgnoreCase = True
    oRE.Global = True
    oRE.Pattern = Motif
    set oMatches = oRE.Execute(Data)
    If not isEmpty(oMatches) then
        For Each Match in oMatches   
            Line = Match.Value
            Extract = Line
        Next
    End if 
End Function
'**********************************************************

25/09/2017, 04h25
Invité

Citation:

Envoyé par hackoofr

:salut:

Ce mec est un maître...Ça fait quelques fois qu'il arrive a solutionner mes interrogations et à chaque fois les exemples cités me sont des plus pédagogiques.

Merci pour ton aide, l'exemple est bien comme je cherchais, je l'ai adapté à ce que je voulais...en l'intégrant à un .hta. Il me sert à définir si un PC est en fin de vie en validant la version de la famille auquel il appartient et à la quantité de RAM il possède, ces deux valeurs en plus de la vitesse du processeur et de la nécessité d'avoir une architecture x64 permet d'avoir un beau tableau informatif...