5 útiles scripts de Windows VB para automatizar el uso de su computadora

Anuncio

Ya sea que sea un analista de TI o un usuario habitual de computadoras, hay muchas tareas que puede necesitar realizar con frecuencia en su PC. Las secuencias de comandos VB se reducen los programas de Visual Basic que sirven como secuencias de comandos de Windows que pueden hacer cualquier cosa desde pull up información importante sobre el hardware de su computadora, para detener e iniciar servicios o restablecer su red tarjeta.

Es posible aprender cómo hacer todas esas cosas individuales de la manera normal, o hacerlas usando archivos por lotes. Pero Las secuencias de comandos VB son mejores que las secuencias de comandos por lotes Better Than Batch: A Windows Scripting Host Tutorial Lee mas porque son más flexibles Si almacena los siguientes scripts en un lugar común al que puede acceder rápidamente cuando lo necesite, puede realizar estas tareas en una fracción del tiempo. Simplemente haga doble clic en el script, responda un mensaje y la tarea estará lista.

Eche un vistazo a los siguientes scripts de Windows VB y, si ve alguno que le gustaría usar, simplemente copie y pegue el script en

Bloc de notas u otra herramienta de codificación de notas Las 7 mejores aplicaciones para tomar notas para programadores y programadores¡Mantenerse organizado como programador puede ser difícil! Estas son las mejores aplicaciones para tomar notas diseñadas teniendo en cuenta a los programadores y desarrolladores. Lee mas y guárdelo como un archivo WSF.

Prepare sus scripts de Windows

Cada uno de los scripts detallados a continuación se ejecutará con solo un doble clic, siempre que haya nombrado el archivo con la extensión .WSF y también haya incluido el código al principio con:

Y cierre el código con:

  WScript. Dejar. 

Esto garantiza que Windows reconocerá el idioma en el que está escrito su script y lo procesará correctamente.

1. Usar secuencias de comandos de Windows para obtener información de la computadora

Windows ofrece algo llamado WMI, o Instrumental de administración de Windows, que proporciona a su script una interfaz para acceder a los componentes del sistema operativo. En realidad, puede ejecutar consultas contra WMI para obtener información en vivo actual sobre su sistema. Microsoft ofrece una lista completa de todos los categorías de consultas puedes hacer contra el sistema.

Hemos cubierto cómo usar VBA para extraer información de la computadora en Excel Cómo ver toda la información de su PC usando un script simple de Excel VBAExcel y 10 minutos de trabajo le brindarán información más detallada sobre su computadora de la que nunca creyó posible. Suena demasiado bueno para ser verdad? Eso es Windows, si sabes cómo usarlo. Lee mas , pero puede hacer lo mismo con un simple script VB fuera de Excel.

En este ejemplo, vamos a consultar el sistema para obtener información del procesador (familia, fabricante y número de núcleos), información de la batería Cómo ahorrar batería en Windows 10 con Power ThrottlingMicrosoft introdujo la limitación de potencia que brinda a los usuarios de Windows más control sobre cómo las aplicaciones individuales manejan el consumo de batería mientras se ejecutan en segundo plano. Lee mas (descripción y estado), y información de disco lógico Cómo ahorrar espacio en disco en Windows 10En términos de requisitos de espacio en disco, Windows 10 es francamente glotón. Perder 20 GB en un SSD pequeño puede ser frustrante. Afortunadamente, puede reducir la huella de Windows 10 y recuperar parte de ese espacio. Lee mas (nombre, espacio libre restante y tamaño total). Luego enviaremos toda esta información a un archivo CSV para una fácil visualización.

El primer paso es configurar el FileSystemObject que usará para generar el archivo CSV y crear el archivo:

Establecer oFSO = CreateObject ("Scripting. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Establecer oFile1 = oFSO.CreateTextFile (sFile1, 1)

El siguiente paso es configurar la consulta WMI y ejecutarla:

strQuery = "SELECT Family, Fabricante, NumberOfCores FROM Win32_Processor" Establezca colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Finalmente, clasifique los resultados y envíe la información al archivo CSV. Si quieres ser elegante, prefacio esto con un par de líneas para ayudar a que tu archivo de salida se vea mejor:

oFile1.WriteLine "Información del procesador" oFile1.WriteLine "" Para cada objResult en colResults strResults = "Familia:," + CStr (objResult. Familia) oFile1.WriteLine strResults strResults = "Fabricante:," + CStr (objResult. Fabricante) oFile1.WriteLine strResults strResults = "Número de núcleos:" + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. próximo

Si ejecuta su código ahora, así es como se verá su salida:

Para las siguientes dos secciones de su código, solo va a repetir y cambiar la consulta para buscar información adicional. Aquí está la consulta de información de la batería:

oFile1.WriteLine "" strQuery = "SELECCIONE Descripción, Estado DESDE Win32_Battery" Establezca colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Información de la batería" oFile1.WriteLine "" Para cada objResult en colResults strResults = "Estado:," + CStr (objResult. Descripción) oFile1.WriteLine strResults strResults = "Descripción:," + CStr (objResult. Estado) oFile1.WriteLine strResults. próximo

Y aquí está la siguiente sección para la consulta del disco lógico:

oFile1.WriteLine "" strQuery = "Seleccionar nombre, espacio libre, tamaño de Win32_LogicalDisk" Establezca colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Información del disco" oFile1.WriteLine "" 'Identifica el espacio en disco lógico. Para cada objResult In colResults strResults = "Nombre:," + CStr (objResult. Nombre) oFile1.WriteLine strResults strResults = "Espacio libre:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Tamaño de disco:", + CStr (objResult. Tamaño) oFile1.WriteLine strResults. próximo

Finalmente, recuerde cerrar el código cerrando el archivo y estableciendo los objetos en "Nada":

oFile1.Close Set oFile1 = Nada. set colResults = Nada. strResults = ""

Coloque todo ese código en su nuevo archivo .WSF, ejecútelo, y así se verá su salida:

Simplemente cambie las consultas anteriores por cualquier otro dispositivo o software informático sobre el que desee obtener información, y puede obtener un informe completo del sistema Cómo crear un sistema automatizado de informes de salud de PCEstás almorzando mientras tu móvil te alerta sobre un mensaje de texto importante. El SMS dice: "Alerta de computadora en casa: 3 intentos de piratería". ¡Esto no es ficción! ¡Permítanos mostrarle cómo hacer esto! Lee mas cuando lo desee con solo un clic del mouse.

2. Detener e iniciar servicios

Habrá momentos en que ciertos servicios tengan problemas y requieran solo un reinicio rápido para volver a funcionar correctamente. Esto es especialmente cierto en TI Antes de estudiar TI, sepa en qué se está metiendoLa tecnología de la información (TI) se ha convertido en una elección de carrera tan extendida. Pero pocas personas realmente saben qué es TI y qué implica su disciplina. Lee mas cuando se ve obligado a ejecutar software de servidor que a veces es un poco defectuoso.

Si desea ahorrar un minuto más o menos del proceso de reinicio del servicio, simplemente guarde el siguiente script en un lugar conveniente. Le pedirá que escriba el nombre del servicio que desea reiniciar, y luego hará exactamente eso.

Dado que detener e iniciar servicios requiere privilegios administrativos, debe colocar el siguiente código al comienzo de su secuencia de comandos para proporcionarla. Privilegios elevados:

Si no es WScript. Argumentos Llamado. Existe ("elevar") Luego CreateObject ("Shell. Aplicación "). ShellExecute WScript. Nombre completo _ y WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Dejar. Terminara si

Una vez hecho esto, agregue el resto del código para ejecutar el cuadro de entrada para la entrada del usuario, iniciar la ventana de comandos, y envíele los "comandos net stop" y "net start":

Establezca cmdShell = CreateObject ("WScript. Cáscara") strServiceName = Inputbox ("Inter Service to Stop", "Input Required") cmdShell. Ejecute "cmd.exe" WScript Dormir 1000 cmd Shell. SendKeys "net stop" + strServiceName. cmdShell. SendKeys "{Enter}" WScript Dormir 1000 cmd Shell. SendKeys "net start" + strServiceName. cmdShell. SendKeys "{Enter}" WScript Dormir 1000 cmd Shell. SendKeys "Salir" cmdShell. SendKeys "{Enter}"

Eso es todo al respecto. No es necesario buscar la herramienta de servicios. Simplemente ejecute este script y pare e inicie cualquier servicio en segundos.

3. Cambiar configuración del registro, contraseña de administrador predeterminada

Con el siguiente guión, vamos a matar dos pájaros de un tiro. Este script te mostrará cómo editar el registro 5 ajustes de registro de Windows 10 para mejorar y desbloquear característicasEl editor de registro es la única forma de habilitar algunas de las funciones ocultas de Windows 10. Aquí le mostraremos ajustes fáciles, como habilitar el tema oscuro o ocultar carpetas. Lee mas con un script VB También le dará una secuencia de comandos que le permitirá establecer el nombre de usuario y la contraseña predeterminados de Windows editando la configuración del registro.

Así es como funciona. Primero, dado que la edición del registro requiere derechos de administrador, deberá configurar privilegios elevados para su script:

Si no es WScript. Argumentos Llamado. Existe ("elevar") Luego CreateObject ("Shell. Aplicación "). ShellExecute WScript. Nombre completo _ y WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Dejar. Terminara si

Primero ejecute dos cuadros de entrada para preguntarle al usuario qué nombre de usuario y contraseña usar:

strUserName = Inputbox ("Ingrese el nombre de usuario predeterminado", "Entrada requerida") strPassword = Inputbox ("Ingrese la contraseña predeterminada", "Entrada requerida")

A continuación, configure el objeto de shell y escriba esos valores en las claves de registro apropiadas:

Establezca wshShell = CreateObject ("WScript. Cáscara" ) wshShell. RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" wshShell. RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultPassword", strPassword, "REG_SZ" Establecer wshShell = Nada

Y eso es todo lo que hay que hacer. El método "RegWrite" le permite escribir cualquier valor en cualquier clave de registro utilizando un script VB de Windows. Todo lo que tienes que saber es el camino apropiado.

Ejecute el script y responda las indicaciones.

Los valores que ingrese se insertarán directamente en la configuración del registro que configuró en el script.

Juega un poco con el script y ajústalo a tu gusto. Puede editar cualquier clave de registro que desee, ¡así que sea creativo!

4. Restablezca su conexión de red

Restablecer su conexión de red utilizando secuencias de comandos VB Cómo escribir un script de Windows para cambiar la configuración de red sobre la marchaEn muchas oficinas o entornos de trabajo, es posible que deba redefinir la configuración de su red para conectarse a diferentes redes. Me encontré en esta situación con la suficiente frecuencia, y me cansé de navegar hacia ... Lee mas es algo que hemos cubierto antes aquí en MakeUseOf. La siguiente versión de esto está realmente reducida y es mucho más simple de implementar. En lugar de solicitar tarjetas de red individuales, restablece todas sus conexiones activas, lo que con suerte resolvería cualquier problema de red que pueda tener.

Al igual que con otros scripts que necesitan derechos de administrador, deberá agregar la sección al inicio para obtener privilegios elevados. Copie ese código del script anterior.

A continuación, cree el objeto WMI y solicite una lista de adaptadores de red habilitados en su sistema:

strComputer = "." Establecer objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Establezca colItems = objWMIService. ExecQuery (_ "SELECT * FROM Win32_NetworkAdapter Where NetEnabled = 'True'")

Finalmente, recorra todos los adaptadores habilitados y reinícielos:

Para cada objItem en colItems objItem. Deshabilitar WScript. Dormir 1000 objetos. Habilitar. próximo

Esto restablecerá todos sus adaptadores de red activos 8 comandos CMD para administrar redes inalámbricas en WindowsUse el símbolo del sistema para controlar su red Wi-Fi. Estos son los comandos más útiles para solucionar problemas de su red doméstica. Lee mas , que a menudo es la forma más rápida de resolver problemas de red molestos. Mantenga este script a mano y pruébelo primero cada vez que tenga una red lenta u otros problemas de red extraños.

5. Dispositivos de ping o sitios web

He guardado mi script de Windows VB favorito para el final. Esta es una que configuré como una tarea programada en la computadora de mi casa y la ejecuto varias veces al día solo para verificar si mi sitio web está activo 3 maneras de averiguar si su sitio web favorito está caídoHay algunos sitios web que se dedican simplemente a responder la pregunta básica que eventualmente preguntarás: "¿Este sitio web está inactivo?" Aquí, tenemos tres de estos sitios web, y son todas... Lee mas . Tengo el script que me envía un correo electrónico si el sitio está caído. Puede usar este mismo script para monitorear servidores o computadoras importantes en su red y enviarse un correo electrónico cada vez que su script no pueda hacer ping al dispositivo.

Primero, configure el script para el objetivo al que desea hacer ping, cree el objeto de shell y luego ejecute el comando ping.

strTarget = "topsecretwriters.com" Establezca WshShell = WScript. CreateObject ("WScript. Cáscara") Ping = WshShell. Ejecutar ("ping -n 1" & strTarget, 0, True)

Use una instrucción Seleccionar caso para ejecutar los resultados de Ping y responder en consecuencia. Si los resultados vuelven a cero, entonces sabe que el sitio (o servidor) está en línea y no tiene que hacer nada. Si devuelve un "1", el ping falló y debe hacer algo. En mi caso, envío un correo electrónico utilizando el objeto CDO de Windows:

Seleccionar caso Ping Caso 0 Caso 1 Establecer objMessage = CreateObject ("CDO.Message") Establecer objConfig = CreateObject ("CDO.Configuration") objConfig. Cargar -1 Establecer Flds = objConfig. Campos con Flds .Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Articulo (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]" .Articulo (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx" .Articulo (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com" .Articulo (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Articulo (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Update End With With objMessage Set .Configuration = objConfig .Subject = "Su sitio está fuera de línea". = "[email protected]" .To = "[email protected]" .TextBody = "Hola, su sitio web está desconectado". Fin de envío Con. Seleccionar final

Una vez que el script se ejecuta y no puede hacer ping al dispositivo o sitio web, recibes un mensaje instantáneo.

¡Es rápido y fácil, y todo eficiente!

Uso de scripts de Windows VB para controlar su computadora

Estos son solo algunos ejemplos de algunas de las cosas interesantes que puede hacer con las secuencias de comandos VB para optimizar el uso de su computadora. Hay muchas otras cosas que puedes hacer como copias de seguridad automatizadas con VB y Synctoy Cómo crear una herramienta de copia de seguridad de datos con SyncToy y VB ScriptHemos cubierto muchas soluciones de respaldo aquí en MUO, y todas estas soluciones son excelentes, pero si está trabajando en un entorno que desconfía de los paquetes de software gratuitos de terceros, o de las empresas ... Lee mas , automatizar comandos telnet Cómo automatizar los comandos de Telnet con VB ScriptEscribir trabajos por lotes y, más recientemente, scripts de Windows es una actividad que realmente constituye la mayor parte de cómo la gran mayoría de los administradores de redes y sistemas hacen su trabajo más rápido y simplifican qué haría... Lee mas , o incluso abrir y controlar ventanas de aplicaciones 3 formas de abrir aplicaciones y Windows maximizadas con VB Script [Windows]Si hay una cosa que me encanta hacer, es escribir scripts de VB. Ya sea que se trate de un archivo de secuencia de comandos de Windows o una secuencia de comandos VBA dentro de una aplicación, la secuencia de comandos proporciona la capacidad de agregar funcionalidad a las aplicaciones ... Lee mas .

¿Cuáles son algunas de las cosas que ha automatizado en su computadora con un script de Windows? ¿Escribes el tuyo usando VB, o usas alguna otra herramienta? como PowerShell Cmdlets de Powershell que mejorarán sus habilidades administrativas de WindowsPowershell es una herramienta de línea de comandos en partes iguales y lenguaje de script. Le brinda la capacidad de automatizar su computadora mediante los mismos comandos que usa para administrarla. Lee mas ?