blogMyTrash

‘ Mit VB-Script Dienste auflisten, die beendet werden können.

strComputer = “.” ‘ Der PC auf den das Skript zugreifen soll

Set objWMI = GetObject(“winmgmts:\\” & strComputer)

wql = “Select * from Win32_Service Where AcceptStop = True”
‘Dienste aus Win32_Service filtern, welche beendet werden können

Set colServices = objWMI.ExecQuery(wql,,48)

WScript.Echo “Dienste, die beendet werden können:”
For Each objService In colServices
WScript.Echo “-”, objService.DisplayName ‘Dienste die beendet werden können ausgeben
WScript.Echo objService.State ‘Status des Dienstes ausgeben
Next