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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 96566
Url: https://administrator.de/contentid/96566
Printed on: April 20, 2024 at 01:04 o'clock
2 Comments
Latest comment
Hallo FISI84!
Das könnte (ungetestet) so gehen:
Den aktuellen Zustand überprüfen kannst Du durch Auslesen der Eigenschaft ".Started".
Zum Starten/Stoppen:
Analog dazu die Methode "StopService".
Grüße
bastla
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
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."
Grüße
bastla