Windows Ser vices

Det er selvfølgelig til Windows 2000/XP, altså rigtige services.

Du gør sådan her:

ServerName = "Serverens navn"
ServerString = "WinNT://" & ServerName & ",computer"
Set objServer = GetObject(ServerString)
      ServiceName = "Servicens navn"
      Set objService = objServer.GetObject("Service", ServiceName)
      If objService.Status <> ADS_SERVICE_RUNNING Then
        objService.Start
      End If

//>Rune

Hov, sådan her forresten:

Const ADS_SERVICE_RUNNING = 4
ServerName = "Serverens navn"
ServerString = "WinNT://" & ServerName & ",computer"
Set objServer = GetObject(ServerString)
      ServiceName = "Servicens navn"
      Set objService = objServer.GetObject("Service", ServiceName)
      If objService.Status <> ADS_SERVICE_RUNNING Then
        objService.Start
      End If

//>Rune

Ok .. Det var en første del af mit spørgsmål..

If objService.Status <> ADS_SERVICE_RUNNING Then
        objService.Start
      End If

Ovenstående siger hvis servicen ikke er startet så start den!

Og det sidste aner jeg ikke :)

//>Rune

Det er fint, jeg kommer i tanke om at det andet kan jeg finde i registrerings databasen.

Fair nok...
Thx 4 Poinz

//>Rune