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
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
A voir également:
- "Server api" "build date" "php version 4.4.4" "php variables"
- "Php variables" "server api" "build date" "php version 4.4.4" - Meilleures réponses
- Php version 4.4.5 build date server api php variables - Meilleures réponses
- "Php version 4.4.3" "build date" "server api" "php variables" - Forum ASP / ASP.NET
- ?Version Mysql ? pour PHP-4.3.11 et Apache2.0.54 sur REDHAT7.2 ✓ - Forum PHP
- Php version 4.4.4 build date server api php variables ✓ - Forum Delphi / Pascal
- "Php version 4.4.5" "build date" "server api" "php variables" - Forum PHP
- Php version 4.4.6 build date server api php variables ✓ - Forum C# / .NET
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
4 mai 2006 à 12:36
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
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
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
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
Je vais ériger une statue en ton honneur ;-)
Cordialement
