Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Workshop Dienst erstellen
Autor: KapitänNet
Datum: 02.03.04 17:50
Hallo, jetzt kann ich den Dienst so starten und beenden, das der Status im Dienstmanager gestartet anzeigt oder nichts, wenn ere gestoppt wurde. Dim oService As Object Dim oComp As Object Dim service As String Dim computer As String Private Sub Command1_Click(Index As Integer) On Error Resume Next computer = Environ("computername") service = "NEWSLETTER" Set oComp = GetObject("WinNT://" & computer & ",computer") Set oService = oComp.GetObject("Service", service) If Err.Number = 0 Then With oService Select Case Index Case 0 If .Status = 4 Then .Stop MsgBox "Service angehalten" End If Case 1 If .Status = 1 Then .Start MsgBox "Service wieder gestartet" End If End Select End With Else MsgBox "Fehler: " & Err.Number & vbCrLf & _ Err.Description, vbCritical, "Fehler" End If End Sub Ciao Jürgen

Workshop Dienst erstellen	819	Dominik S.	25.02.04 19:06
Re: Workshop Dienst erstellen	537	Wolfgang	26.02.04 08:16
Re: Workshop Dienst erstellen	572	Dominik S.	26.02.04 17:47
Re: Workshop Dienst erstellen	494	csc101	27.02.04 07:44
Re: Workshop Dienst erstellen	580	Dominik S.	27.02.04 14:20
Re: Workshop Dienst erstellen	479	csc101	27.02.04 16:31
Re: Workshop Dienst erstellen	463	KapitänNet	02.03.04 15:50
Re: Workshop Dienst erstellen	441	KapitänNet	02.03.04 17:50
Re: Workshop Dienst erstellen	438	Wolfgang	03.03.04 08:09
Re: Workshop Dienst erstellen	467	KapitänNet	03.03.04 09:41
Re: Workshop Dienst erstellen	450	Wolfgang	03.03.04 12:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen