[VBS] Trouver le build de son appareil

Bonjour,

J'essaie de retrouver le build de mon appareil a partir d'un code VBS. Mais celui-ci ne me retourne que la première partie et non la deuxième partie.

Exemple : "19045.3570" -> "19045"

Voici le code :

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem in colItems
    strBuildNumber = objItem.BuildNumber
    WScript.Echo "Numéro de build du système : " & strBuildNumber
Next

Je ne suis pas un expert en VBS.

Merci à ceux qui auront pris le temps de comprendre mon problème.

Bonjour,

Tu peur aller chercher cette information dans le registre avec ce code VBS, à ajouter dans ton code déjà créé:

'*** Déclaration des variables
Dim ObjetRegedit

'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next

'*** Definition du contenu de la variable
Set ObjetRegedit = CreateObject("WScript.Shell")

'*** Definition du contenu de la variable "CleRegistre"
CleRegistre = ObjetRegedit.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\UBR")

'*** Lecture de la clé de registre nommée UBR, contenant la valeur que l'on recherche
msgbox CleRegistre
'*** Destruction des objets
Set ObjetRegedit = Nothing

Tu pourras ensuite concaténer les deux variables pour obtenir le build complet

Bonne journée!

Bonjour,

Merci de votre réponse qui fonctionne fort bien !

Je donne le code final concaténer pour ceux qui en aurait besoin.

'*** Déclaration des variables
Dim ObjetRegedit, strOSVersion

'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next

'*** Definition du contenu de la variable
Set ObjetRegedit = CreateObject("WScript.Shell")

'*** Definition du contenu de la variable "CleRegistre"
CleRegistre = ObjetRegedit.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\UBR")

'*** Definition du contenu de la variable
Set objShell = CreateObject("WScript.Shell")

'*** Definition du contenu de la variable "strOSVersion"
strOSVersion = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber")

'*** Lecture de la clé de registre nommée UBR avec la concatenation du numéro de build
msgbox strOSVersion & "." & CleRegistre

'*** Destruction des objets
Set ObjetRegedit = Nothing
Set objShell = Nothing

Merci de votre aide Skratus.

Bonne journée!