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

Ya sea que sea un analista de TI o un usuario de computadora habitual, hay muchas tareas que debe realizar con frecuencia en su PC. Los scripts de VB se reducen a los programas de Visual Basic que sirven como scripts de Windows que pueden hacer cualquier cosa, desde extraer información importante sobre el hardware de su computadora, hasta detener e iniciar servicios o restablecer su tarjeta de red.

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

Eche un vistazo a las siguientes secuencias de comandos de Windows de VB y si ve alguna que quiera usar, simplemente copie y pegue la secuencia de comandos en el Bloc de notas u otra herramienta de notas de codificación 7 Las mejores herramientas para tomar notas para los programadores 7 Las mejores herramientas para tomar notas para los programadores Las buenas habilidades para tomar notas son clave para mantenerse organizado como programador. Aquí están las mejores aplicaciones para tomar notas diseñadas con programadores y desarrolladores en mente. Lee más y guárdalo como un archivo WSF.

Prepare sus scripts de Windows

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

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

1. Use Windows Scripts para información de la computadora

Windows ofrece algo llamado WMI, o Windows Management Instrumentation, que proporciona a su script una interfaz para acceder a los componentes del sistema operativo. De hecho, puede ejecutar consultas contra WMI para obtener información actual en vivo sobre su sistema. Microsoft ofrece una lista completa de todas las categorías de consultas que puede realizar contra el sistema.

Hemos cubierto cómo usar VBA para llevar la información de la computadora a Excel. Cómo ver toda la información de su PC con un simple script de VBA de Excel. Cómo ver toda la información de su PC con un simple Excel VBA Script Excel y 10 minutos de trabajo le darán más Información detallada sobre su computadora de la que alguna vez haya pensado posible. Suena demasiado bueno para ser verdad? Eso es Windows, si sabes cómo usarlo. Lea más, pero puede hacer lo mismo usando un simple script VB fuera de Excel.

En este ejemplo, consultaremos el sistema para obtener información sobre el procesador (familia, fabricante y número de núcleos), información sobre la batería Cómo ahorrar batería en Windows 10 con limitación de potencia Cómo ahorrar batería en Windows 10 con limitación de potencia Microsoft introdujo una limitación de potencia que brinda a los usuarios de Windows un mayor control sobre cómo las aplicaciones individuales manejan el consumo de batería mientras se ejecutan en segundo plano. Más información (descripción y estado), e información del disco lógico Cómo ahorrar espacio en disco en Windows 10 Cómo ahorrar espacio en disco en Windows 10 En 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. Leer más (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 utilizará 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, Manufacturer, NumberOfCores FROM Win32_Processor" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

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

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

Si ejecuta su código ahora, este es el aspecto que tendrá su salida:

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

oFile1.WriteLine "" strQuery = "SELECCIONE Descripción, Estado DE Win32_Battery" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Información de la batería" oFile1.WriteLine " ---- "Para cada objResult In colResults strResults =" Estado:, "+ CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Descripción:, "+ CStr (objResult.Status) oFile1.WriteLine strResults Siguiente

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

oFile1.WriteLine "" strQuery = "Seleccione Name, FreeSpace, Size from Win32_LogicalDisk" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Información del disco" oFile1.riteLine ------ "'Identifique el espacio en disco lógico para cada objResult In colResults strResults =" Nombre:, "+ CStr (objResult.Name) oFile1.WriteLine strResults strResults =" Espacio libre:, "+ CStr (objResult.FreeSpace ) oFile1.WriteLine strResults strResults = "Tamaño del disco:," + CStr (objResult.Size) oFile1.WriteLine strResults Siguiente

Finalmente, recuerde cerrar el código cerrando el archivo y configurando los objetos para “Nada”:

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

Coloque todo ese código en su nuevo archivo .WSF, ejecútelo, y aquí tiene el aspecto que tendrá su salida:

Simplemente intercambie las consultas anteriores por cualquier otro dispositivo o software para el que desee obtener información y podrá obtener un informe completo del sistema Cómo crear un sistema automatizado de informes de estado de la PC Cómo crear un sistema automático de informes de estado de la PC Usted está fuera almorzar como tu móvil te alerta de un texto importante. El SMS dice: "Alerta de equipo doméstico: 3 intentos de piratería". ¡Esto no es ficción! Déjanos mostrarte cómo hacer esto! Lee más cuando quieras con solo un clic del mouse.

2. Stop and Start Services

Habrá ocasiones en que ciertos servicios tengan problemas, y solo será necesario un reinicio rápido para volver a funcionar correctamente. Esto es especialmente cierto en TI. Antes de estudiar TI, sepa en qué se está metiendo Antes de estudiar TI, sepa en qué se está metiendo en Tecnología de la información (TI) se ha convertido en una opción de carrera tan extendida. Pero pocas personas realmente saben qué es la TI y qué implica su disciplina. Lee más cuando te veas forzado a ejecutar un software de servidor que a veces tiene un poco de buggy.

Si desea ahorrar un minuto o menos fuera del proceso de reinicio del servicio, simplemente almacene 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 la parada y el inicio de los servicios requieren privilegios administrativos, debe colocar el siguiente código al inicio de su script para otorgarle privilegios elevados a su script:

Si no es WScript.Arguments.Named.Exists ("elevate") Entonces CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End If

Una vez hecho esto, agregue el resto del código para ejecutar el cuadro de entrada para la entrada del usuario, inicie la ventana de comando y envíe la “parada neta” y “comandos de inicio de red”:

Establezca cmdShell = CreateObject ("WScript.Shell") strServiceName = Inputbox ("Inter Service to Stop", "Input Required") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "net stop" + strServiceName cmdShell. SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "net start" + strServiceName cmdShell.SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "Exit" cmdShell.SendKeys "Enter"

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

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

Con el siguiente guión, vamos a matar dos pájaros de un tiro. Esta secuencia de comandos le mostrará cómo editar el Registro. 5 Ajustes de Registro de Windows 10 para Mejorar y Desbloquear Funciones. 5 Ajustes de Registro de Windows 10 para Mejorar y Desbloquear Características. El 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. Leer más con un script VB. También le proporcionará una secuencia de comandos que le permitirá establecer el nombre de usuario y la contraseña predeterminados de Windows al editar las configuraciones del registro..

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

Si no es WScript.Arguments.Named.Exists ("elevate") Entonces CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End If

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

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

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

Set wshShell = CreateObject ("WScript.Shell") wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ WinTlus \ DefaultUserName", strUserName '' '' '' '' '' '' '' '' '' '' \ Winlogon \ DefaultPassword ", strPassword," REG_SZ "Establecer wshShell = Nada

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

Ejecuta el script y responde a las preguntas.

Los valores que ingrese se insertarán directamente en la configuración de registro que ha configurado en el script.

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

4. Reinicie su conexión de red

Cómo reiniciar su conexión de red usando VB scripting Cómo escribir un script de Windows para cambiar la configuración de red sobre la marcha Cómo escribir un script de Windows para cambiar la configuración de red sobre la marcha En muchas oficinas o entornos de trabajo, es posible que deba volver a definir su configuración de red para conectarse A diferentes redes. Me encontré en esta situación a menudo y me cansé tanto de buscar en ... Leer más es algo que hemos cubierto antes aquí en MakeUseOf. La siguiente versión de esto es en realidad reducida y mucho más sencilla de implementar. En lugar de solicitar tarjetas de red individuales, restablece todas sus conexiones activas, lo que se espera que resuelva cualquier problema de red que pueda tener.

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

A continuación, cree el objeto WMI y consúltelo para obtener una lista de adaptadores de red habilitados en su sistema:

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

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

Para cada objeto en colItems objItem.Disable WScript.Sleep 1000 objItem.Enable Siguiente

Esto restablecerá todos sus adaptadores de red activos. 8 Comandos de CMD para administrar redes (inalámbricas) en Windows 8 Comandos de CMD para administrar redes (inalámbricas) en Windows Si desea un control total y absoluto sobre su red, entonces deberá comenzar a usar Símbolo del sistema. Estos son los comandos más útiles para administrar y solucionar problemas de su red doméstica. Leer más, que a menudo es la forma más rápida de resolver problemas de red molestos. Mantenga este script a mano y pruébelo siempre que tenga una red lenta u otros problemas de red extraños.

5. Dispositivos de ping o sitios web

He guardado mi script favorito de Windows VB para el final. Este es uno que realmente configuré como una tarea programada en la computadora de mi hogar y lo ejecuté varias veces al día solo para comprobar si mi sitio web está activo 3 maneras de averiguar si su sitio web favorito está caído 3 maneras de averiguar si su El sitio web favorito está caído Hay algunos sitios web por ahí que están dedicados simplemente a responder la pregunta básica que eventualmente se hará: "¿Este sitio web está caído?" Aquí, tenemos tres de estos sitios web, y todos son ... Leer más. Tengo el script de correo electrónico si el sitio está fuera de servicio. 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 la secuencia de comandos para el destino al que desea hacer ping, cree el objeto shell y luego ejecute el comando ping.

strTarget = "topsecretwriters.com" Establecer WshShell = WScript.CreateObject ("WScript.Shell") Ping = WshShell.Run ("ping -n 1" & strTarget, 0, True)

Use una declaración Select Case para ejecutar los resultados de Ping y responda 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” entonces el ping falló y necesitas hacer algo. En mi caso, envío un correo electrónico utilizando el objeto CDO de Windows:

Select Case Ping Case 0 Case 1 Set objMessage = CreateObject ("CDO.Message") Set objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Set Flds = objConfig.Fields With Flds .Item ("http: // schemas.microsoft.com/cdo/configuration/smtpusessl ") = True .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Item ("http://schemas.microsoft. com / cdo / configuration / sendusername ") =" [email protected] ".Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx ".Item (" http: // schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com ".Item (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Item ("http: //schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Update End With With objMessage Set .Configuration = objConfig .Subject = "Su sitio está desconectado" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hola, su sitio web está desconectado". .Send End With End Select

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

Es rápido y fácil, y muy eficiente.!

Usando VB Windows Scripts para controlar su computadora

Estos son solo algunos ejemplos de algunas de las cosas geniales que puede hacer con los scripts de VB para agilizar el uso de su computadora. Hay muchas otras cosas que puede hacer como copias de seguridad automáticas con VB y Synctoy Cómo crear una herramienta de copia de seguridad de datos con SyncToy y VB Script Cómo crear una herramienta de copia de seguridad de datos con SyncToy y VB Script Hemos cubierto muchas soluciones de copia de seguridad aquí en MUO, y todas estas soluciones son excelentes, pero si está trabajando en un entorno que desconfía de los paquetes de software de terceros o de las empresas… Lea más, automatice los comandos de telnet Cómo automatizar los comandos de Telnet utilizando VB Script Cómo automatizar Comandos de Telnet usando VB Script La escritura de trabajos por lotes y, más recientemente, los scripts de Windows es una actividad que realmente constituye la mayor parte de la forma en que la gran mayoría de los administradores de redes y sistemas hacen su trabajo más rápido, y simplifican lo que ... Leer más, o incluso abrir y controlar aplicación Windows 3 maneras de abrir aplicaciones y Windows maximizado con VB Script [Windows] 3 maneras de abrir aplicaciones y Windows maximizado con VB Script [Windows] Si hay una cosa que me encanta para hacer, es escribir scripts VB. Ya sea que se trate de un archivo de Windows Script o VBA dentro de una aplicación, los scripts brindan la capacidad de agregar funcionalidad a las aplicaciones ... Leer más .

¿Cuáles son algunas de las cosas que has automatizado en tu computadora con un script de Windows? ¿Escribe el suyo usando VB, o usa alguna otra herramienta como PowerShell Powershell Cmdlets que mejorará sus habilidades de administración de Windows Powershell Cmdlets que mejorará sus habilidades de administración de Windows Powershell es una herramienta de línea de comandos de partes iguales y lenguaje de scripting. Le brinda la capacidad de automatizar su computadora a través de los mismos comandos que usa para administrarla. Lee mas ?

Explorar más sobre: ​​automatización de computadoras, scripting.