26/01/2010, 05:20
|
| | | Fecha de Ingreso: diciembre-2008
Mensajes: 122
Antigüedad: 16 años Puntos: 0 | |
| Respuesta: Funciones para trabajar con servicios en vbs
Ya tengo un script que me parece correcto:
Parto de la situación en que el servicio mqsvc esta parado (Service Message Queuing).
Ejecuto este script pero no lo inicia.
'Start Service
strServiceName = "mqsvc.exe"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name ='" & strServiceName & "'")
For Each objService in colListOfServices
msgbox objService
objService.StartService()
Next
¿Alguien sabe por qué?
Además si escribo un msgbox en el bucle, no lo muestra.
Gracias |