añadir servicio

Saludos al grupo

Necesito añadir un servicio a windows. He encontrado en la
pagina de Microsoft el siguiente script:

Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")

errReturn = objService.Create("DbService" ,"Personnel Database" , _
"c:\windows\system32\db.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL,_
"Manual", NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" )

Lo único q modifico sobre el son las líneas que dicen donde se ubica la
aplicación, como se llama y la descripción, que son las líneas 2 y 1
respectivamente. El problema es q no me hace nada.

Si me pudieras decir que es lo q falla o alguna otra manera de hacerlo os

agradeceria.

Muchas gracias al grupo

Sigue los pasos de este art.
http://support.microsoft.com/kb/q137890/

Saludos

-
AP - Gerardo Servetti
Montevideo - Uruguay
-
"Hector" escribió en el mensaje
news:
> Saludos al grupo
>
> Necesito añadir un servicio a windows. He encontrado en la
> pagina de Microsoft el siguiente script:
>
> Const OWN_PROCESS = 16
> Const NOT_INTERACTIVE = False
> Const NORMAL_ERROR_CONTROL = 2
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &

> Set objService = objWMIService.Get("Win32_BaseService")
>
> errReturn = objService.Create("DbService" ,"Personnel Database" , _
> "c:\windows\system32\db.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL,_
> "Manual", NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" )
>
> Lo único q modifico sobre el son las líneas que dicen donde se ubica la
> aplicación, como se llama y la descripción, que son las líneas 2 y 1
> respectivamente. El problema es q no me hace nada.
>
> Si me pudieras decir que es lo q falla o alguna otra manera de hacerlo

lo
> agradeceria.
>
> Muchas gracias al grupo
>
>
>
>