blogMyTrash

‘ Mit VBScript Dienst beenden bzw. stoppen

strServer = “.”
strName = “AudioSrv” ‘Dienst der Beendet werden soll’

Set objWMI = GetObject(“winmgmts:\\” & strServer & “\ROOT\CIMV2″)
Set objDienst = objWMI.Get(“Win32_Service=’” & strName & “‘”)
With objDienst
If .AcceptStop Then
rv = objDienst.StopService ‘ Dienst stoppen bzw. beenden
WScript.Echo rv
Else
WScript.Echo “Dienst lässt sich nicht stoppen.”
WScript.Echo “Der Dienst läuft möglicherweise nicht.”
End If
End With