fisi84
Goto Top

Starttyp eines Dienstes per VB verändern

Konfiguration von Systemdiensten mittels Skripten zur einfachen Einrichtung von PCs

Hallo,

ich suche den Grundaufbau eines VB-Skripts (oder andere Skriptsprache) um den Starttyp eines Systemdienstes (z.B. der Nachrichtendienst) zu verändern (sowohl von Deaktiviert auf Automatisch, als auch in jede andere Richtung).
Die Suche in Google hat nicht wirklich auf Anhieb verständliches geliefert.

Der Grundlegende Aufbau für den Start/Stop/Neustart des entsprechenden Dienstes fehlt mir auch noch.

Danke und Gruß
Steffen

Content-Key: 96566

Url: https://administrator.de/contentid/96566

Printed on: April 20, 2024 at 01:04 o'clock

Member: bastla
bastla Sep 10, 2008 at 10:42:52 (UTC)
Goto Top
Hallo FISI84!

Das könnte (ungetestet) so gehen:
strService = "Messenger"  
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Service Where Name = '" & strService & "'")   
For Each objItem in colItems 
    objItem.StartMode = "Manual"  
Next
Den aktuellen Zustand überprüfen kannst Du durch Auslesen der Eigenschaft ".Started".

Zum Starten/Stoppen:
strService = "Messenger"  
strComputer = "."   
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='" & strService & "'", "StartService")  
If objOutParams.ReturnValue = 0 Then WScript.Echo strService & " wird gestartet."  
Analog dazu die Methode "StopService".

Grüße
bastla
Member: FISI84
FISI84 Sep 12, 2008 at 06:48:05 (UTC)
Goto Top
Danke!
_________________________________________________
Gruß
Fisi84