ich bin neu hier und habe hoffentlich das richtige Topic erwischt.
Ich möchte routinemässig unter Windows 2000 einen Dienst automatisch restarten. Dachte erst ganz einfach in einer Batch-Datei:
- Code: Alles auswählen
net stop "Dienst"
sleep 30000
net start "Dienst"
Mir ist das aber zu unsicher, falls sich der Dienst aufhängt und nicht innerhalb 30 Sekunden wieder starten lässt. Deshalb überlegt ich das mit whs zu erledigen. Unter XP klappt es mit folgenden Zeilen:
- Code: Alles auswählen
Option Explicit
Const Service = "Trend Micro Common CGI" ' Dienst
Const computer = "SPUNK."
Dim oService, oComp
Dim sState
sState = array ("", "Beendet", "Versuche zu starten", _
"Versuche anzuhalten", _
"Gestartet", "Versuche fortzusetzen", _
"Versuche anzuhalten", _
"Angehalten", "Fehler")
' Binde an ServiceName-Objekt
Set oComp = GetObject("WinNT://" & computer & ",computer")
Set oService = oComp.GetObject ("Service", service)
' Versuche Dienst anzuhalten
If MsgBox ("Dienst '" & Service & "' Status: " & _
sState(oService.Status), vbYesNo + vbQuestion, _
"Dienst anhalten auf computer //" & computer& "?") _
= vbYes Then
oService.stop ' anhalten
WScript.Echo "Dienst wird angehalten" ' Warte ...
End If
' versuche Dienst zu starten
If MsgBox ("Dienst '" & Service & "' Status: " & _
sState(oService.Status), vbYesNo + vbQuestion, _
"Starte Dienst auf Computer //" & computer& "?") _
= vbYes Then
oService.start ' starteS
WScript.Echo "Dienst wird gestartet" ' warte ...
End if
Die MsgBoxen sollen dann raus und das Script soll als at-Job laufen.
Jetzt unter W2k, dort bekomme ich beim zweiten Objektbinden eine Fehlermeldung: "Unspecified Error", mit folgendem Code:
- Code: Alles auswählen
'Option Explicit
Const Service = "Trend Micro Common CGI" ' Dienst
Const computer = "SPUNK."
Const boolServicePaused=False
Dim oService, oComp
Dim sState
' Binde an ServiceName-Objekt
Set oComp = GetObject("WinNT://" & computer & ",computer")
Set oService = oComp.GetObject ("Service", Service) // diese Zeile generiert die Fehlermeldung..
WScript.Echo "Service: " & Service & " Computer: "&computer&""
Kann mir jemand helfen?
Danke,
Gruß T.