[VBS] Trouver le build de son appareil
T
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!
T
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!