Private Sub UserForm_Initialize() Dim objWMIService, objOS, colOSes, objComputer Dim StrResults$, TotRam& Application.ScreenUpdating = False strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor") Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") On Error Resume Next For Each objProcessor In colProcessors For Each objOS In colOSes For Each objComputer In colSettings TotRam = Round(((objComputer.TotalPhysicalMemory / 1024) / 1024 / 1000), 0) StrResults = StrResults & " Nom de l'ordinateur : " & objOS.CSName & vbCrLf & vbCrLf StrResults = StrResults & " Edition : " & objOS.Caption & vbCrLf & vbCrLf StrResults = StrResults & " Copyright " & Chr(169) & " 2009 " & objOS.Manufacturer & "." & " Tous droits réservés." & vbCrLf & vbCrLf StrResults = StrResults & " Version : " & objOS.Version & vbCrLf & vbCrLf StrResults = StrResults & " Processeur : " & objProcessor.Name & Chr(32) & " - " & objOS.OSArchitecture & vbCrLf & vbCrLf StrResults = StrResults & " Mémoire (RAM) installée: " & TotRam & ".00" & " Go" & vbCrLf & vbCrLf StrResults = StrResults & " Service Pack : " & " Service Pack " & objOS.ServicePackMajorVersion Next Next Next Me.Lb_WMI.Caption = StrResults Application.ScreenUpdating = False End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.