Starte en bestemt service

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where StartMode = 'Manual'")
For Each objService in colServiceList
    errReturnCode = objService.Change( , , , , "Disabled") 
Next


//>Rune

Læs mere om det her:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/services/

//>Rune

Hej rune
Det virker ikke helt!
De skriver også at det er til et andet problem:
Disables all services configured as manual start. Among other things, this prevents Power Users from being able to start these services.

Der må være en nemmere måde. jeg prøvede at lave det lidt om.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select 'messenger' from Win32_Service where StartMode = 'Manuelt'")
For Each objService in colServiceList
    errReturnCode = objService.Change( , , , , "automatisk") 
Next

men den kan ikke køre vbs scriptet den fejler på For i 3. sidste linie

//BB

jeg lukker den tråd, da jeg har fundet indstillingen i AD !
jeg takker for indsatsen  :o)

/BB

Venligst afslut spørgsmålet...

//>Rune