enable windows services

[John117]

How would one enable windows services, specifically Net send (Messenger) via script? This would include, starting the service, and seting the startup type to Automatic if possible.

[John117]

Found:

Dim $objWMIService, $objItem, $objService

Dim $colListOfServices, $strService

; NB strService is case sensitive.

$strService = "YourService";< - Service Name

; Connect to WMI.

$objWMIService = ObjGet("winmgmts:root\cimv2")

$colListOfServices = $objWMIService.ExecQuery ("Select * from Win32_Service Where Name = '" & $strService & "'")

For $objService in $colListOfServices

$objService.StartService()

Next