Sorry hab mich verschrieben das Tool heißt RunAsSvc, findest Du beim googeln.
Meine Scripe sehen wie folgt aus:
IPS Dienst starten und das Tool BGinfo aktualisieren:
Option Explicit
Dim wbemServices, wbemObjectSet, wshShell
Dim strComputer, wbemObject
Dim pc, programm, wmi, col, obj
Dim strBgInfo
const service = "IPS"
strComputer = "."
set wshShell = CreateObject("WScript.Shell")
set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For Each wbemObject in wbemObjectSet
' nach caption
If UCase(wbemObject.Caption) = UCase(service) And Not UCase(wbemObject.State) = UCase("running") Then
' nach servicename
'If UCase(wbemObject.Name) = UCase(service) And Not UCase(wbemObject.State) = UCase("running") Then
wbemObject.StartService
' protokolliere in eventlog
' wshShell.LogEvent 4, "service: " & service & "stopped succesfully"
End If
Next
'BGinfo aktualisieren
Set WshShell = CreateObject("wScript.Shell")
strBgInfo = "C:\Programme\BgInfo\BgInfo.exe" + chr(32) + "C:\Programme\BgInfo\Server.bgi" + chr(32) + "/timer:0" + chr(32) + "/silent"
WshShell.Run strBgInfo,1,True
Msgbox "IPS Dienst gestartet !",vbInformation,"IP-Symcon Dienst starten ..."
IPS Dienst stoppen und das Tool BGinfo aktualisieren:
Option Explicit
Dim wbemServices, wbemObjectSet, wshShell
Dim strComputer, wbemObject
Dim pc, programm, wmi, col, obj
Dim strBgInfo
const service = "IPS"
strComputer = "."
set wshShell = CreateObject("WScript.Shell")
set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For Each wbemObject in wbemObjectSet
' nach caption
If UCase(wbemObject.Caption) = UCase(service) And Not UCase(wbemObject.State) = UCase("stopped") Then
' nach servicename
'If UCase(wbemObject.Name) = UCase(service) And Not UCase(wbemObject.State) = UCase("stopped") Then
wbemObject.StopService
' protokolliere in eventlog
' wshShell.LogEvent 4, "service: " & service & "stopped succesfully"
End If
Next
WScript.Sleep 1000
'Den Prozess rrdtool.exe schlieen
pc = "localhost"
programm = "'rrdtool.exe'"
Set wmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& pc & "\root\cimv2")
Set col = wmi.ExecQuery _
("Select * from Win32_Process Where Name = " & programm )
For Each obj in col
obj.Terminate()
Next
'BGinfo aktualisieren
Set WshShell = CreateObject("wScript.Shell")
strBgInfo = "C:\Programme\BgInfo\BgInfo.exe" + chr(32) + "C:\Programme\BgInfo\Server.bgi" + chr(32) + "/timer:0" + chr(32) + "/silent"
WshShell.Run strBgInfo,1,True
Msgbox "IPS Dienst gestoppt !",VbCritical,"IP-Symcon Dienst stoppen ..."
Mit dem Tool BGInfo erstelle ich mir einen Texteintrag auf meinem Desktop ob und welche Dienste auf dem Server gerade laufen, damit ich nicht jedesmal in der Diensteverwaltung nachschauen muss .