Connaître la Version de Windows Utilisée

Résolu
rambc
Messages postés
224
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
29 mars 2009
- 4 mai 2006 à 12:00
rambc
Messages postés
224
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
29 mars 2009
- 4 mai 2006 à 13:07
Bonjour,
je voulais savoir comment connaître la Version de Windows qui est utilisée par l'ordinateur?

Par avance merci.

2 réponses

cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
4 mai 2006 à 12:36
Bonjour

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
Set objUser = CreateObject("UserAccounts.PassportManager")
For Each objCS In colCSes
For Each objProcessor in colProcessors
For Each objOS in colOSes
msgbox "Nom Ordinateur : " & objCS.Name &vbCrLf& _
"Utilisateur : " & objCs.UserName &vbCrLf& _
"Domaine : " & objCS.Domain &vbCrLf& _
"Nombre de Processeur : " & objCS.NumberOfProcessors &vbCrLf& _
"Processeur :" & objProcessor.Name &vbCrLf& _
"Description : " & objProcessor.Description &vbCrLf& _
"ID Processeur : " & objProcessor.ProcessorID &vbCrLf& _
"Manufacturier : " & objCS.Manufacturer &vbCrLf& _
"Modele : " & objCS.Model &vbCrLf& _
"Version : " & objOS.Caption & " version: " & objOS.Version &vbCrLf& _
"Service Pack : " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion &vbCrLf& _
"Adresse Messagerie : " & objUser.CurrentPassport
Next
Next
Next

jean-marc
3
rambc
Messages postés
224
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
29 mars 2009

4 mai 2006 à 13:07
Tout simplement GENIAL. Merci il y a tout ce qu'il me faut.

Je vais ériger une statue en ton honneur ;-)

Cordialement
0