Re: Deaktivierten Dienst aktivieren

From: Joachim Streit (J.Streit_at_framo-morat.com)
Date: 06/17/04


Date: Thu, 17 Jun 2004 16:26:47 +0200

Hallo Thomas,

hier ein Beispiel:

Const service = "Windows Installer" ' Installerdienst - als
Beispiel
Const computer = "DIENSTPC" 'Der Name des Computers
Dim oService, oComp
Dim sState

sState = Array("", _
                            "Beendet", _
                            "Versuche zu starten", _
                            "Versuche anzuhalten", _
                            "Gestartet", _
                            "Versuche fortzusetzen", _
                            "Versuche anzuhalten", _
                            "Angehalten", _
                            "Fehler")

' Binde an Service-Objekt
Set oComp = GetObject("WinNT://" & computer & ",computer")

Set oService = oComp.GetObject("Service", service)

' versuche Dienst zu starten
If OService.Status <> 4 Then oService.Stop ' stoppe

Set oService = Nothing
Set oComp = Nothing

Damit kannst Du einen Service auf jedem Rechner in Deinem Netz stoppen....

Gruß
Joachim Streit



Relevant Pages