Bildschirmaktualisierungsrate ermitten

Sprache: VB

Die eingestellte Bildschirmaktualisierungsrate eines Rechners ermitteln

Private Function GetDisplayFrequency(ByVal Computer As String) As String

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetDisplayFrequency = ""
        objWMIService = GetObject("winmgmts:\" & Computer & "rootCIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_DisplayConfiguration")
        For Each objItem In objItems
            GetDisplayFrequency = objItem.DisplayFrequency
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function

Private Function GetDisplayFrequency(ByVal Computer As String) As String

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetDisplayFrequency = ""
        objWMIService = GetObject("winmgmts:\" & Computer & "rootCIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_DisplayConfiguration")
        For Each objItem In objItems
            GetDisplayFrequency = objItem.DisplayFrequency
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function

Abgelegt unter Display remote System WMI

Alte URL: /snippet/bildschirmaktualisierungsrate-ermitten/1538