Continuando con los scripts en vbscript para automatizar tareas que realizamos normalmente para que no sean tan tediosas, en esta ocasion vamos a configurar un servicio como automatico y ademas lo iniciaremos.

Para este ejemplo, yo voy a utilizar el servicio servidor. Ya sabeis, ese que nos permite enviar y/o recibir mensajes «net send» entre los equipos.

No tiene ninguna complicacion asi que os dejo el script para que lo probeis y me digais que os parece:

——————————————————————-

‘serviciomensajeroautomatico.vbs
‘Script que establece el servicio «Mensajero» o «Messenger» como Automatico y lo inicia.
‘Nos sirve para cualquier idioma.
‘Creado por Oscar Abad   el   4-8-09   para www.aprendeinformaticaconmigo.com

Option Explicit
Dim objSrvMens
Dim servicios, servicio
Dim equipo
Dim errReturnCode

equipo = «.»

Set objSrvMens = GetObject(«winmgmts:» & «{impersonationLevel=impersonate}!\\» & equipo & «\root\cimv2»)
Set servicios = objSrvMens.ExecQuery («Select * from Win32_Service Where Name = ‘Messenger'»)

For Each servicio in servicios
errReturnCode = servicio.ChangeStartMode(«Automatic»)
errReturnCode = servicio.StartService()
Next

——————————————————————-

Espero vuestras opiniones despues de probarlo.

Saludos.

—–
Oscar Abad
http://www.xulak.com – Consultoría informática

oscar

Programador WordPress freelance