Bilschirmschoner Daten via WMI ermitteln Diese Funktion ermittelt die Daten des Bildschirmschoners aller User über das WMI.
Autor:   Dennis Hemken	Bewertung:	Views:  8.766
gadgets.hemken.org	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgender Funktion lassen sich die Daten des Bildschirmschoners aller User über das Windows Management Instrument (WMI) ermitteln.

' Ermittelt die Daten des Bildschirmschoners
' aller User auf dem angegebenen Computer
Public Function fct_GetScreenSaverData(ByVal strComputer As String) As String
  Dim strOutput As String
  Dim objWMIS As Object
  Dim colWMI As Object
  Dim objScreensaver As Object
 
  On Error Resume Next
 
  Set objWMIS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colWMI = objWMIS.ExecQuery("SELECT Name, ScreenSaverActive, " & _
    "ScreenSaverExecutable, ScreenSaverSecure, ScreenSaverTimeout " & _
    "FROM Win32_Desktop")
 
  For Each objScreensaver In colWMI
    strOutput = strOutput & "Username: " & objScreensaver.Name & vbCrLf & vbCrLf & _
      "ScreenSaver active? " & objScreensaver.ScreenSaverActive & vbCrLf & _
      "ScreenSaver: " & objScreensaver.ScreenSaverExecutable & vbCrLf & _
      "Secure: " & objScreensaver.ScreenSaverSecure & vbCrLf & _
      "Timeout: " & objScreensaver.ScreenSaverTimeout & vbCrLf & vbCrLf
  Next
 
  fct_GetScreenSaverData = strOutput
End Function

Aufrufbeispiel:

Dim strComputer As String
 
' Der Punkt (.) bedeutet localhost, also für den eigenen PC
' es geht aber auch mit einer IP-Adresse, oder einem Computernamen,
' vorausgesetzt, dieser befindet sich im gleichen Netz.
strComputer = "."
MsgBox fct_GetScreenSaverData(strComputer)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.