Jugando con WMI: Modificar el "Tipo de Inicio" de los servicios de Windows

Siguiendo con mi incursión en el uso del WMI de windows, se me ocurrió probar en cambiar la manera en que se inician algunos servicios de windows, por ejemplo a muchas personas no les interesa el firewall o el centro de seguridad, es por eso que es normal que muchos técnicos tengamos la costumbre de estar modificandolos especialmente si queremos ahorrarnos algunos megas de memoria RAM y ganar un poco de velocidad, es por eso que arme este pequeño script en VBSCRIPT que deshabilita varios servicios que considero inútiles para una red hogareña. Ustedes pueden modificarlo para que en todo caso modifique mas servicios o bien modifique menos.

Los servicios que se deshabilita son:

• wuauserv = Actualizaciones automáticas
• wscsvc = Centro de seguridad
• RemoteAccess = Enrutamiento y acceso remoto
• mnmsrvc = Escritorio remoto compartido de NetMeeting
• SharedAccess = Firewall de Windows/Conexión compartida a Internet (ICS)
• seclogon = Inicio de sesión secundario
• RSVP = QoS RSVP

CODIGO: 

strComputer = "."

Set objWMIServicio = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" _ 

    & strComputer & "\root\cimv2")

Set colServicios = objWMIServicio.ExecQuery _

        ("Select * from Win32_Service where Name='wuauserv' OR Name='SharedAccess' OR Name='wscsvc' OR Name='RemoteAccess' OR Name='mnmsrvc' OR Name='seclogon' OR Name='RSVP'")

For Each objServicio in colServicios

Return = objServicio.ChangeStartMode("Disabled")

If Return <> 0 Then

Wscript.Echo "ERROR" & VBNewLine _

& "Error al cambiar el servicio : " & objServicio.Name _

& "Codigo de error = " & Return 

End If

Next

COMO INSTALAR EL MODEM ALCATEL SPEEDTOUCH 330 USB

Guia de instalacion del modem SpeedTouch 330

• Download Drivers para Alcatel SpeedTouch 330

El modem no debe conectarse al puerto USB hasta que se instale el controlador.

Para iniciar la instalacion tenemos que ejecutar el archivo "Setup.exe" que se encuentra dentro de la carpeta que corresponde a los drivers del modem. Al ejecutar dicho archivo se abrirar el asistente que le guiara atraves del proceso de instalacion.

En la primer ventana del asistente hay que hacer click en el boton "SpeedTouch USB /330"

Luego tenemos que seleccionar la opcion "Instalar Driver RF-C 1483"

Ahora tiene que seleccionar la opcion "PPPOE" que corresponda segun la empresa telefonica que usted tenga.
Si en algun momento cree haber realizado algo mal solo tiene que hacer click en el boton "Atras" y empezar nuevamente.

A continuacion veremos como se abre un nuevo asistente de instalacion, es este asistente el que se va a encargar de instalar y configurar los drivers segun las opciones que seleccionamos anteriormente.

Para continuar con la instalación deberá aceptar el contrato de licencia de Software presionando el botón “Si”.

Aqui se muestra el progreso de la instalacion de los archivos necesarios para el funcionamiento del modem (Drivers)

Para finalizar la instalación tiene que presionar el boton “Finalizar”.

Una vez que termino la instalacion del modem, tiene que reiniciar la pc.
Al terminar de cargar windows nuevamente despues de haverlo reiniciado tiene que conectar el modem al puerto usb, es asi como windows va a detectarlo y dejarlo listo para su uso.
En unos pocos minutos ya tiene que poder encontrar en el escritorio de su windows el icono de conexión, mediante el cual va a poder conectarse a internet luego de completar los datos que le pide.
Al ejecutar el icono, aparecerá el cuadro de conexión como se indica a continuación. Se ingresa los datos "Nombre de usuario", "Contraseña", y se hace un click en "Conectar".
Si todo salio bien, usted en este momento tiene que estar conectado a internet.

Nota:

Si el icono que corresponde al modem que se crea al lado de reloj de la hora esta en color rojo, como se muestra en la foto, significa que no hay una comunicacion entre el modem y la pc. para solucionar esto es recomendable reinstalar los drivers del modem y verificar que los puertos usb funcionen bien
Si el icono del modem que se crea al lado de reloj de la hora esta en color amarillo como se muestra en la foto, significa que la conexion entre el modem y la pc esta correcta, pero no hay sincronizmo en la linea telefonica. Esto es por lo general un problema en la linea telefonica, para estar seguros de no ser un problema nuestro se recomienda reinstalar el modem, verificar los filtros telefonicos y las distintas conexiones telefonicas que podamos tener.
Si el icono del modem que se crea al lado de reloj de la hora esta en color verde como se muestra en la foto, significa que esta todo bien y listo para que se conecte a internet.


Otras Guias sobre el tema: INSTALACION Y CONFIGURACION DEL MODEM SPEEDTOUCH 330

INSTALACION DEL MODEM HUAWEI MT810 USB

GUIA DE INSTALACION DEL MODEM HUAWEI SMARTAX MT810 USB

Para empezar si tiene el modem conectado en la pc, desconectelo.

Primero coloque el cd de instalacion del modem en su lectora de cdrom.
Ahora entre en el cdrom, lo va a poder encontrar en "Mi PC". Una ves dentro del cdrom entre en la carpeta "USB Drivers" luego entre en la carpeta "Windows" y por ultimo en la que corresponda segun su empresa telefonica, por ejempo "Zona Telefonica". Una ves ahi ejecute el archivo "Setup.exe"

Acontinuacion se va a abrir una ventana de instalacion, con lo que vamos a empezar a instalar los archivos en la pc

Dentro de este asistente de instalacion hacemos siempre click en el boton de "Siguiente"

Al llegar a esta ventana significa que ya ha terminado la instalacion para lo que hacemos click en la opcion "Si, Deseo reiniciar el equipo ahora" y luego hacemo click en el boton "Finalizar".

Una ves reiniciada la pc, windows va a pedir que conectemos el modem a la pc, es ahora cuando conectamos el modem.

Para conectarse a internet tiene que utilizar el icono de conexion que se le a creado en el escritorio de windows.

Como renombrar una computadora por CMD con WMI

Hace ya bastante tiempo vengo teniendo problemas con las computadoras en la empresa donde trabajo, muchas de estas computadoras tienen los nombres que al técnico de turno se le ocurrió, es por eso que las maquinas no tienen un nombre o nomenclatura en común, lo que dificulta mucho el podes encontrarlas en la red cuando lo necesitamos.

Es por eso que se me ocurrió un pequeño Script que ejecutado de manera remota permite renombrar cualquier computadora con el nombre que querramos, y lo mejor que al ser ejecutado por CMD si utilizamos algún programa como el "RemoteAdmin" o "DameWare"evitamos tener que molestar al usuario, ya que se ejecuta sin que el usuario se de cuenta.

Este Script utiliza el WMI de windows, para el que no lo conoce acá dejo una pequeña introducción sacada de Wikipedia

Windows Management Instrumentation o WMI (en español, Instrumental de administración de Windows) pretende establecer normas estándar para tener acceso y compartir la información de administración a través de la red de una empresa.

A continuación dejo el código del script realizado en VBScript. Para utilizarlo simplemente lo tienen que pegar dentro de un archivo .TXT y luego lo renombran a .VBS

Para ejecutarlo simplemente lo ejecutan así de manera local, es decir en la pc que van a renombrar: C:\Documents and Settings\elsoportista\Escritorio>RenombrarPC.vbs NuevoNombre

Recuerden que pueden ejecutarlo de manera remota con alguno de los programas que ya mencione.

CODIGO: 

On Error Resume Next

If WScript.Arguments.Unnamed.Count > 1 OR WScript.Arguments.Unnamed.Count = 0 Then

    WScript.Echo "Error: se han pasado demasiados o Ningun argumento"

    WScript.Quit 1

End If

NombrePC = WScript.Arguments(0)

strComputer = "."

Set objWMIComputadora = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" _ 

    & strComputer & "\root\cimv2")

Set colComputadora = objWMIComputadora.ExecQuery _

        ("Select * from Win32_ComputerSystem")

For Each objComputadora in colComputadora

Return = objComputadora.Rename(NombrePC)

If Return <> 0 Then

Wscript.Echo "ERROR" &VBNewLine & "no se pudo renombrar la pc," & " error nro = " & Return

Else

Wscript.Echo "Renombrado OK." &VBNewLine & "Nuevo nombre: " & NombrePC &VBNewLine & _

"Reinicie la pc para aplicar el cambio."

End If

Next

Set NombrePC = Nothing

Set strComputer = Nothing

Set objWMIComputadora = Nothing

Set colComputadora = Nothing

Set objComputadora = Nothing

Set Return = Nothing