Feedback

VB - Bildschirmaktualisierungsrate ermitten

Veröffentlicht von am 06.05.2011
(0 Bewertungen)
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 & "\root\CIMV2")
        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 WMI, System, Remote, Display.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!