Afficher les informations système dans un Userform

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 360 fois - Téléchargée 9 fois

Contenu du snippet

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


Compatibilité : VBA

A voir également

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.