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
Programador WordPress freelance
que genial no sabes cuanto trabajo me ahorrare mill gracias
error??? me da un error dice: caracter no valido
origen: error de compilación de microsoft vbscript
definitivamente no funciona al parecer la \"\" estan mal (el security code apenas se lee)
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
Saludos rodrigo.
Revisando el codigo que has puesto, veo que en equipo = «.» tienes: equipo = \».\».
No comprendo muy bien lo que quieres hacer por que el script esta configurado para trabajar con el equipo local.
Si lo que quieres hacer es trabajar con equipos remotos, habría que reescribir el codigo de todo el script.
Pero también veo que tienes algunas cosas mas del codigo erroneas.
Igual, para cerciorarse, mira a ver si puedes copiar el codigo del articulo (https://www.aprendeinformaticaconmigo.com/vbscript-configurar-servicio-de-windows-xp-como-automatico ) y ponerlo en un comentario para ver si el problema esta en que tu lo ves mal con tu navegador. Yo uso Mozilla Firefox.
Venga, animo y feliz año….
probe con un script mas simple (el de mapear unidades de red) y me doy cuenta que al copiar y pegar tengo que cambiar todas las cremillas(«») y los caracteres especiales
probe con firefox google y chrome y todos me copian igual
ahora por ejemplo
GetObject(\»winmgmts:\» & <— que es este ultimo caracter? porque ami me lo muestra como una "&" (un and) entonces no se que pasa 🙁 probe en otras maquinas de la empresa y sigue igual