5 Scripts Windows VB utiles pour automatiser l'utilisation de votre ordinateur

Que vous soyez analyste en informatique ou utilisateur habituel d’ordinateur, vous devrez peut-être effectuer fréquemment de nombreuses tâches sur votre PC. Les scripts VB sont des programmes Visual Basic réduits qui servent de scripts Windows et permettent de récupérer des informations importantes sur votre matériel informatique, d'arrêter et de démarrer des services ou de réinitialiser votre carte réseau..

Il est possible d'apprendre à faire toutes ces choses de la manière habituelle ou de les utiliser à l'aide de fichiers de commandes. Mais les scripts VB valent mieux que les scripts batch. Better Than Batch: un tutoriel d'hôte de script Windows Mieux qu'un batch: un didacticiel d'hôte de script Windows En savoir plus, car ils sont plus souples. Si vous stockez les scripts suivants dans un endroit commun facilement accessible lorsque vous en avez besoin, vous pouvez accomplir ces tâches en une fraction du temps. Vous double-cliquez simplement sur le script, répondez à une invite et la tâche est terminée.

Examinez les scripts VB Windows suivants et, si vous en voyez, vous n'avez qu'à les copier et les coller dans le Bloc-notes ou un autre outil de codage des notes. 7 Les meilleurs outils de prise de notes pour les programmeurs 7 Les meilleurs outils de prise de notes pour les programmeurs De bonnes compétences en prise de notes sont essentielles pour rester organisé en tant que programmeur. Voici les meilleures applications de prise de notes conçues pour les codeurs et les développeurs. Lire la suite et l'enregistrer en tant que fichier WSF.

Préparez vos scripts Windows

Chacun des scripts décrits ci-dessous s'exécutera en un double-clic tant que vous aurez nommé le fichier avec l'extension .WSF et que vous avez également inclus le code au début avec:

Cela garantit que Windows reconnaîtra le langage dans lequel votre script est écrit et le traitera correctement.

1. Utiliser les scripts Windows pour les informations sur l'ordinateur

Windows propose quelque chose appelé WMI, ou Windows Management Instrumentation, qui fournit à votre script une interface permettant d'accéder aux composants du système d'exploitation. Vous pouvez réellement exécuter des requêtes sur WMI pour obtenir des informations en direct sur votre système. Microsoft propose une liste complète de toutes les catégories de requêtes que vous pouvez effectuer sur le système..

Nous avons expliqué comment utiliser VBA pour extraire des informations informatiques dans Excel. Voir toutes les informations de votre ordinateur à l'aide d'un script VBA Excel simple. Voir toutes les informations de votre ordinateur à l'aide d'un script VBA Excel simple. Excel et 10 minutes de travail vous en donneront plus Des informations détaillées sur votre ordinateur que vous n'auriez jamais cru possible. Cela semble trop beau pour être vrai? C'est Windows, si vous savez l'utiliser. Lisez plus, mais vous pouvez faire la même chose en utilisant un simple script VB en dehors d'Excel.

Dans cet exemple, nous allons interroger le système pour obtenir des informations sur le processeur (famille, fabricant et nombre de cœurs), sur la batterie. Comment économiser la durée de vie de la batterie dans Windows 10 avec Power Power Throttling Comment économiser de la durée de vie de la batterie dans Windows 10 avec Power Throttling Microsoft introduction de la limitation de la consommation d'énergie qui donne aux utilisateurs de Windows un contrôle accru sur la manière dont les applications individuelles gèrent la consommation de la batterie tout en fonctionnant en arrière-plan En savoir plus (description et statut), et informations sur les disques logiques Comment économiser de l'espace disque dans Windows 10 Comment économiser de l'espace disque dans Windows 10 Windows 10 est insuffisant en termes d'espace disque requis. Gaspiller 20 Go sur un petit disque SSD peut être frustrant. Heureusement, vous pouvez réduire l'encombrement de Windows 10 et récupérer une partie de cet espace. En savoir plus (nom, espace libre restant et taille globale). Ensuite, nous publierons toutes ces informations dans un fichier CSV pour une visualisation aisée..

La première étape consiste à configurer le FileSystemObject que vous utiliserez pour générer le fichier CSV et à créer le fichier:

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

L'étape suivante consiste à configurer la requête WMI et à l'exécuter:

strQuery = "Famille, fabricant, NumberOfCores DE Win32_Processor" Définir colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Enfin, triez les résultats et exportez les informations dans le fichier CSV. Si vous voulez avoir du style, insérez quelques lignes pour améliorer l'apparence de votre fichier de sortie:

oFile1.WriteLine "Informations sur le processeur" oFile1.WriteLine "------" pour chaque objResult dans colResults strResults = "Famille:", + CStr (objResult.Family) oFile1.WriteLine strResults strResults = "Fabricant:," + CStr (objResult.Manufacturer) oFile1.WriteLine strResults strResults = "Nombre de cœurs:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Suivant

Si vous exécutez votre code maintenant, voici à quoi ressemblera votre sortie:

Pour les deux sections suivantes de votre code, vous allez simplement répéter et modifier la requête pour rechercher les informations supplémentaires. Voici la requête d'informations sur la batterie:

oFile1.WriteLine "" strQuery = "Description SELECT, Etat FROM Win32_Battery" Définissez colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informations sur la batterie" oFile1.WriteLine "- ---- "Pour chaque objResult dans colResults strResults =" Status:, "+ CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Description: "+ CStr (objResult.Status) oFile1.WriteLine strResults Next

Et voici la section suivante pour la requête de disque logique:

oFile1.WriteLine "" strQuery = "Sélectionnez le nom, l'espace libre, la taille de Win32_LogicalDisk" Définissez colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Information de disque" oFile1.Writel " ------ "" Identifiez l'espace disque logique pour chaque objResult dans colResults strResults = "Nom:", + CStr (objResult.Name) oFile1.WriteLine strResults strResults = "Espace libre:," + CStr (objResult.FreeSpace ) oFile1.WriteLine strResults strResults = "Taille du disque:," + CStr (objResult.Size) oFile1.WriteLine strResults Suivant

Enfin, n'oubliez pas de fermer le code en fermant le fichier et en définissant les objets sur “Rien”:

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

Mettez tout ce code dans votre nouveau fichier .WSF, exécutez-le et voici à quoi ressemblera votre sortie:

Échangez simplement les requêtes ci-dessus pour tout autre appareil informatique ou logiciel sur lequel vous souhaitez obtenir des informations. Vous pouvez également obtenir un rapport complet du système. Comment créer un système de rapports de santé automatisé sur un PC Comment créer un système de rapports de santé automatisé sur un PC Le déjeuner lorsque votre téléphone portable vous avertit d’un texte important. Le SMS indique: "Alerte de l'ordinateur à la maison: 3 tentatives de piratage." Ce n'est pas une fiction! Laissez-nous vous montrer comment faire cela! Lisez-en plus à tout moment avec un simple clic de souris.

2. Arrêter et démarrer les services

Il arrivera que certains services rencontrent des problèmes et ne nécessitent qu'un redémarrage rapide pour fonctionner à nouveau correctement. Cela est particulièrement vrai dans le domaine informatique. Avant d’étudier l’informatique, sachez ce que vous entrez avant de l’étudier, sachez ce que vous entrez dans la technologie de l’information (TI) est devenu un choix de carrière si répandu. Mais peu de gens savent réellement ce qu’est l’informatique et en quoi consiste sa discipline. Lisez plus lorsque vous êtes obligé d'exécuter un logiciel serveur qui est parfois un peu buggé.

Si vous souhaitez gagner environ une minute du processus de redémarrage du service, stockez simplement le script suivant dans un endroit pratique. Il vous demandera de taper le nom du service que vous souhaitez redémarrer, puis le fera exactement..

Étant donné que l’arrêt et le démarrage des services nécessitent des privilèges d’administrateur, vous devez placer le code suivant au début de votre script pour lui octroyer des privilèges élevés:

Si ce n'est pas WScript.Arguments.Named.Exists ("elevate"), puis CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End If

Ceci fait, ajoutez le reste du code pour exécuter la zone de saisie pour la saisie utilisateur, lancez la fenêtre de commande et envoyez-la le “arrêt net” et “commandes net start”:

Set cmdShell = CreateObject ("WScript.Shell") strServiceName = Inputbox ("Inter service à arrêter", "Entrée requise") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "net stop" + strServiceName cmdShell. SendKeys "Entrée" WScript.Sleep 1000 cmdShell.SendKeys "démarrage net" + strServiceName cmdShell.SendKeys "Entrée" WScript.Sleep 1000 cmdShell.SendKeys "Exit" cmdShell.SendKeys "Entrée"

C'est tout ce qu'on peut en dire. Pas besoin de chercher l’outil de services. Il suffit de lancer ce script et d'arrêter et de démarrer n'importe quel service en quelques secondes.

3. Modifier les paramètres du registre, mot de passe administrateur par défaut

Avec le script suivant, nous allons faire d'une pierre deux coups. Ce script vous montrera comment modifier le registre. 5 réglages du registre Windows 10 à améliorer et à déverrouiller des fonctionnalités 5 ajustements du registre à Windows 10 pour améliorer et à déverrouiller des fonctionnalités L'éditeur de registre est le seul moyen d'activer certaines fonctionnalités cachées de Windows 10. Ici, nous allons vous montrer des réglages faciles, comme l'activation du thème sombre ou le masquage des dossiers. Lisez plus avec un script VB. Cela vous donnera également un script qui vous permettra de définir le nom d'utilisateur et le mot de passe Windows par défaut en modifiant ces paramètres de registre..

Voici comment ça fonctionne. Tout d'abord, comme la modification du registre nécessite des droits d'administrateur, vous devez configurer des privilèges élevés pour votre script:

Si ce n'est pas WScript.Arguments.Named.Exists ("elevate"), puis CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End If

Commencez par exécuter deux zones de saisie pour demander à l'utilisateur le nom d'utilisateur et le mot de passe à utiliser:

strUserName = Inputbox ("Entrez le nom d'utilisateur par défaut", "Entrée requise") strPassword = Inputbox ("Entrez le mot de passe par défaut", "Entrée requise")

Ensuite, configurez l'objet shell et écrivez ces valeurs dans les clés de registre appropriées:

Définir wshShell = CreateObject ("WScript.Shell") wshShell.RegWrite "HKLM \ LOGICIEL \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" wshShell.RegWrite "HKLM \ SOWWW \\ \ Winlogon \ DefaultPassword ", strPassword," REG_SZ "Set wshShell = Nothing

Et c'est tout ce qu'il y a à faire. le “RegWrite” Cette méthode vous permet d’écrire n’importe quelle valeur sur n’importe quelle clé de registre à l’aide d’un script Windows VB. Tout ce que vous devez savoir, c'est le chemin approprié.

Exécutez le script et répondez aux invites.

Les valeurs que vous entrez seront insérées directement dans les paramètres de registre définis dans le script..

Jouez avec le script et ajustez-le à votre goût. Vous pouvez modifier toutes les clés de registre que vous aimez, alors soyez créatif!

4. Réinitialiser votre connexion réseau

Réinitialisation de votre connexion réseau à l'aide de scripts VB Comment écrire un script Windows pour modifier les paramètres réseau à la volée Comment écrire un script Windows pour modifier les paramètres réseau à la volée Dans de nombreux bureaux ou environnements de travail, vous devrez peut-être redéfinir vos paramètres réseau pour vous connecter. à différents réseaux. Je me suis souvent retrouvé dans cette situation, et j'en avais tellement marre de… En savoir plus est quelque chose que nous avons déjà couvert ici à MakeUseOf. La version suivante de ceci est réellement réduite et beaucoup plus simple à implémenter. Au lieu de demander des cartes réseau individuelles, il réinitialise toutes vos connexions actives, ce qui, espérons-le, résoudrait tous les problèmes de réseau que vous pourriez rencontrer..

Comme pour les autres scripts nécessitant des droits d'administrateur, vous devez ajouter la section au début pour les privilèges élevés. Copiez ce code à partir du script ci-dessus.

Créez ensuite l’objet WMI et recherchez-lui une liste des adaptateurs réseau activés sur votre système:

strComputer = "." Définir objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Définir colItems = objWMIService.ExecQuery (_ "SELECT * FROM Win32_NetworkAdapter Où NetEnabled = 'True'")

Enfin, parcourez tous les adaptateurs activés et réinitialisez-les:

Pour chaque objet dans les objets colItems objItem.Disable WScript.Sleep 1000 objItem.Enable Next

Cela réinitialisera toutes vos cartes réseau actives. 8 Commandes CMD pour gérer les réseaux (sans fil) sous Windows 8 Commandes CMD pour gérer les réseaux (sans fil) sous Windows Si vous souhaitez un contrôle total et absolu sur votre réseau, vous devez commencer à utiliser Invite de commande. Voici les commandes les plus utiles pour gérer et dépanner votre réseau domestique. En savoir plus, qui constitue souvent le moyen le plus rapide de résoudre des problèmes réseau gênants. Conservez ce script à portée de main et essayez-le dès que vous avez un réseau lent ou que vous rencontrez des problèmes de réseau étranges.

5. Appareils ou sites Web Ping

J'ai sauvegardé mon script VB Windows préféré pour la dernière fois. C’est un programme que j’ai configuré comme une tâche planifiée sur mon ordinateur personnel et que j’exécute plusieurs fois par jour pour vérifier si mon site Web est actif. 3 façons de déterminer si votre site Web favori est en panne 3 façons de déterminer si votre site Web est actif Le site Web préféré est en panne Il existe quelques sites Web qui se consacrent simplement à répondre à la question de base que vous allez éventuellement demander: "Ce site Web est-il en panne?" Ici, nous avons trois de ces sites, et ils sont tous… Lire la suite. J'ai le script écrivez-moi si le site est en panne. Vous pouvez utiliser ce même script pour surveiller des serveurs ou des ordinateurs importants sur votre réseau et envoyer vous-même un courrier électronique chaque fois que votre script ne peut pas envoyer de commande ping à l'appareil..

Tout d'abord, configurez le script pour la cible que vous souhaitez utiliser, créez l'objet shell, puis exécutez la commande ping.

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

Utilisez une instruction Select Case pour parcourir les résultats de Ping et y répondre en conséquence. Si les résultats reviennent à zéro, alors vous savez que le site (ou le serveur) est en ligne et que vous n'avez rien à faire. Si cela retourne un “1” alors le ping a échoué et vous devez faire quelque chose. Dans mon cas, j'envoie un email en utilisant l'objet Windows CDO:

Sélectionnez le cas Cas Ping Cas 0 Cas 1 Définissez objMessage = CreateObject ("CDO.Message") Définissez objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Définissez Flds = objConfig.Fields With Flds .IHem. 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 .Mise à jour à la fin avec objMessage Définissez .Configuration = objConfig .Subject = "Votre site est hors connexion" .De = "[email protected]" .To = "[email protected]" .TextBody = "Hé, votre site Web est hors ligne." .Send End With End Select

Une fois que le script est exécuté et que vous ne pouvez pas envoyer de requête ping à l'appareil ou au site Web, vous recevez un message instantané..

C'est rapide et facile, et chaque efficace!

Utilisation de scripts Windows VB pour contrôler votre ordinateur

Ce ne sont là que quelques exemples des choses intéressantes que vous pouvez faire avec les scripts VB pour rationaliser l’utilisation de votre ordinateur. Vous pouvez faire beaucoup d'autres choses, comme des sauvegardes automatisées avec VB et Synctoy. Comment créer un outil de sauvegarde de données avec SyncToy & VB Script Comment créer un outil de sauvegarde de données avec SyncToy & VB Script Nous avons présenté de nombreuses solutions de sauvegarde ici. Chez MUO, toutes ces solutions sont excellentes, mais si vous travaillez dans un environnement qui se méfie des progiciels tiers gratuits, des entreprises… Lire la suite, automatiser les commandes telnet Comment automatiser les commandes Telnet à l'aide de VB Script Comment automatiser Commandes Telnet Utilisation de scripts VB La rédaction de travaux batch et plus récemment de scripts Windows est une activité qui constitue l'essentiel de la façon dont la grande majorité des administrateurs réseau et système effectuent leur travail plus rapidement et simplifient ce qui… Lire la suite, ou même ouvrir et contrôler Fenêtres d'applications 3 façons d'ouvrir les applications et Windows optimisées avec VB Script [Windows] 3 façons d'ouvrir les applications & Windows optimisées avec VB Script [Windows] S'il y a une chose que j'aime faire, c’est écrire des scripts VB. Qu'il s'agisse d'un fichier de script Windows ou d'un script VBA dans une application, le script permet d'ajouter des fonctionnalités aux applications… En savoir plus .

Quelles sont certaines des choses que vous avez automatisées sur votre ordinateur avec un script Windows? Etes-vous en utilisant VB, ou utilisez-vous un autre outil comme les applets de commande PowerShell Powershell qui amélioreront vos compétences Windows Admin Cmdlets qui amélioreront vos compétences Windows Admin Powershell est un outil de ligne de commande et un langage de script équivalents. Il vous donne la possibilité d'automatiser votre ordinateur via les mêmes commandes que vous utilisez pour l'administrer. Lire la suite ?

Explorer plus sur: Computer Automation, Scripting.