5 Nützliche VB-Windows-Skripts zur Automatisierung der Computernutzung

Unabhängig davon, ob Sie ein IT-Analyst oder ein normaler Computerbenutzer sind, müssen Sie viele Aufgaben häufig auf Ihrem PC ausführen. VB-Skripts sind verkleinerte Visual Basic-Programme, die als Windows-Skripts dienen. Sie können wichtige Informationen über die Computerhardware abrufen, Dienste stoppen und starten oder Ihre Netzwerkkarte zurücksetzen.

Es ist möglich zu lernen, wie man all diese einzelnen Dinge auf normale Weise ausführt oder sie mit Hilfe von Batch-Dateien macht. VB-Skripts sind jedoch besser als Batch-Skripts. Besser als Batch: Ein Tutorial für Windows-Scripting-Host Besser als ein Stapel: Ein Tutorial für Windows-Scripting-Host Lesen Sie mehr, da sie flexibler sind. Wenn Sie die folgenden Skripts an einem allgemeinen Ort speichern, an den Sie bei Bedarf schnell zugreifen können, können Sie diese Aufgaben in einem Bruchteil der Zeit erledigen. Sie doppelklicken einfach auf das Skript, beantworten eine Eingabeaufforderung und die Aufgabe ist erledigt.

Werfen Sie einen Blick auf die folgenden VB-Windows-Skripts. Wenn Sie eines sehen, das Sie verwenden möchten, kopieren Sie das Skript und fügen Sie es in den Editor oder ein anderes Codierungsnotizen-Tool ein. 7 Die besten Tools für Notizen für Programmierer 7 Die besten Tools für Notizen für Programmierer Gute Notizfertigkeiten sind der Schlüssel, um als Programmierer organisiert zu bleiben. Hier sind die besten Apps zum Erstellen von Notizen, die für Codierer und Entwickler konzipiert wurden. Lesen Sie mehr und speichern Sie es als WSF-Datei.

Bereiten Sie Ihre Windows-Skripts vor

Jedes der unten beschriebenen Skripts wird mit einem Doppelklick ausgeführt, sofern Sie die Datei mit der Erweiterung .WSF benannt haben und den Code am Anfang mit folgendem Code versehen haben:

Dadurch wird sichergestellt, dass Windows die Sprache erkennt, in der Ihr Skript geschrieben ist, und es ordnungsgemäß verarbeitet.

1. Verwenden Sie Windows-Skripts für Computerinformationen

Windows bietet etwas namens WMI oder Windows Management Instrumentation an, das Ihrem Skript eine Schnittstelle für den Zugriff auf Komponenten des Betriebssystems bietet. Sie können tatsächlich Abfragen für WMI ausführen, um aktuelle Live-Informationen zu Ihrem System abzurufen. Microsoft bietet eine vollständige Liste aller Kategorien von Abfragen, die Sie gegen das System stellen können.

Wie Sie mithilfe von VBA Computerinformationen in Excel importieren können? Wie Sie alle Ihre PC-Informationen mit einem einfachen Excel-VBA-Skript anzeigen können? Wie Sie alle Ihre PC-Informationen mit einem einfachen Excel-VBA-Skript anzeigen? Excel und 10 Minuten Arbeit geben Ihnen mehr detaillierte Informationen zu Ihrem Computer, als Sie jemals für möglich gehalten hätten. Klingt zu gut um wahr zu sein? Das ist Windows, wenn Sie wissen, wie man es benutzt. Lesen Sie mehr, aber Sie können dasselbe mit einem einfachen VB-Skript außerhalb von Excel tun.

In diesem Beispiel fragen wir das System nach Prozessorinformationen (Familie, Hersteller und Anzahl der Kerne) und Batterieinformationen ab. So sparen Sie die Akkulaufzeit in Windows 10 mit Power Throttling So sparen Sie die Akkulaufzeit in Windows 10 mit Power Throttling von Microsoft Die Powerdrosselung wurde eingeführt, wodurch Windows-Benutzer mehr Kontrolle darüber haben, wie einzelne Apps den Batterieverbrauch im Hintergrund ausführen. Weitere Informationen (Beschreibung und Status) und Informationen zu logischen Laufwerken So sparen Sie Speicherplatz in Windows 10 So sparen Sie Speicherplatz in Windows 10 In Bezug auf den Speicherplatzbedarf ist Windows 10 geradezu unzufrieden. Das Verschwenden von 20 GB auf einer kleinen SSD kann frustrierend sein. Glücklicherweise können Sie den Fußabdruck von Windows 10 reduzieren und etwas von diesem Platz beanspruchen. Weitere Informationen (Name, freier Speicherplatz und Gesamtgröße). Dann geben wir diese Informationen zur leichteren Anzeige in eine CSV-Datei aus.

Der erste Schritt besteht darin, das FileSystemObject einzurichten, das Sie zur Ausgabe in die CSV-Datei verwenden, und die Datei zu erstellen:

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

Der nächste Schritt besteht darin, die WMI-Abfrage einzurichten und auszuführen:

strQuery = "SELECT-Familie, Hersteller, NumberOfCores FROM Win32_Processor" Setze colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Zum Schluss sortieren Sie die Ergebnisse und geben die Informationen in die CSV-Datei aus. Wenn Sie Lust haben wollen, geben Sie ein paar Zeilen ein, um die Ausgabedatei besser aussehen zu lassen:

oFile1.WriteLine "Prozessorinformationen" oFile1.WriteLine "------" Für jedes Objekt in colResults strResults = "Family:," + CStr (objResult.Family) oFile1.WriteLine strResults strResults = "Hersteller:," + CStr (objResult.Manufacturer) oFile1.WriteLine strResults strResults = "Anzahl der Kerne:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Next

Wenn Sie Ihren Code jetzt ausführen, wird Ihre Ausgabe folgendermaßen aussehen:

Für die nächsten zwei Abschnitte Ihres Codes müssen Sie lediglich die Abfrage wiederholen und ändern, um nach zusätzlichen Informationen zu suchen. Hier ist die Batterie-Info-Abfrage:

oFile1.WriteLine "" strQuery = "SELECT Beschreibung, Status FROM Win32_Battery" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Battery Information" oFile1.WriteLine "- ---- "Für jedes Objekt in colResults strResults =" Status:, "+ CStr (objResult.Description) oFile1.WriteLine strResults =" Description:, "+ CStr (objResult.Status) oFile1.WriteLine strRults Next

Und hier ist der nächste Abschnitt für die Abfrage der logischen Festplatte:

oFile1.WriteLine "" strQuery = "Name, FreeSpace, Größe von Win32_LogicalDisk auswählen" set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "DiskInformation" ------ "'Identifizieren des logischen Speicherplatzes für jedes Objekt in colResults strResults =" Name:, "+ CStr (objResult.Name) oFile1.WriteLine strResults strResults =" Freier Speicherplatz:, "+ CStr (objResult.FreeSpace) ) oFile1.WriteLine strResults strResults = "Plattengröße:," + CStr (objResult.Size) oFile1.WriteLine strResults Next

Denken Sie schließlich daran, den Code zu schließen, indem Sie die Datei schließen und die Objekte auf setzen “Nichts”:

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

Fügen Sie den gesamten Code in Ihre neue .WSF-Datei ein, führen Sie ihn aus und Ihre Ausgabe sieht folgendermaßen aus:

Tauschen Sie einfach die obigen Abfragen gegen andere Computergeräte oder Software aus, über die Sie Informationen erhalten möchten, und Sie können einen vollständigen Systembericht erhalten. So erstellen Sie ein automatisiertes PC Health-Berichtssystem Wie erstellen Sie ein automatisiertes PC-Health-Berichtssystem Sie sind unterwegs Wenn Sie als Mobiltelefon zu Mittag essen, werden Sie auf einen wichtigen Text aufmerksam gemacht. Die SMS lautet: "Home Computer Alert: 3 Hacking-Versuche." Das ist keine Fiktion! Lassen Sie sich zeigen, wie das geht! Lesen Sie jederzeit mehr mit nur einem Mausklick.

2. Beenden und starten Sie Dienste

Es kann vorkommen, dass bestimmte Dienste Probleme haben und nur ein schneller Neustart erforderlich ist, um wieder ordnungsgemäß ausgeführt zu werden. Dies gilt insbesondere für die IT. Bevor Sie IT studieren, wissen Sie, worauf Sie sich einlassen, bevor Sie IT studieren, und wissen Sie, was Sie in Informationstechnologie (IT) bekommen. Aber nur wenige wissen tatsächlich, was IT ist und was ihre Disziplin mit sich bringt. Lesen Sie mehr, wenn Sie Server-Software ausführen müssen, die manchmal etwas fehlerhaft ist.

Wenn Sie sich nach dem Neustart des Dienstes eine Minute lang rasieren möchten, speichern Sie einfach das folgende Skript an einem geeigneten Ort. Sie werden aufgefordert, den Namen des Dienstes einzugeben, den Sie neu starten möchten. Dann wird genau das getan.

Da das Beenden und Starten von Diensten Administratorrechte erfordert, müssen Sie den folgenden Code am Anfang Ihres Skripts einfügen, um Ihrem Skript erweiterte Berechtigungen zu verleihen:

Wenn nicht WScript.Arguments.Named.Exists ("elevate"), dann CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/" "," " runas ", 1 WScript.Quit End If

Sobald dies erledigt ist, fügen Sie den Rest des Codes hinzu, um das Eingabefeld für die Benutzereingabe auszuführen, starten Sie das Befehlsfenster und senden Sie es “netto halt” und “net start befehle”:

Set cmdShell = CreateObject ("WScript.Shell") strServiceName = Eingabefeld ("Inter Service to Stop", "Eingabe erforderlich") 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 "Beenden" cmdShell.SendKeys "Enter"

Das ist alles dazu. Sie müssen nicht nach dem Service-Tool suchen. Führen Sie einfach dieses Skript aus und stoppen Sie den Dienst innerhalb von Sekunden.

3. Ändern Sie die Registrierungseinstellungen, Standard-Admin-Passwort

Mit dem folgenden Skript werden wir zwei Fliegen mit einer Klappe schlagen. In diesem Skript erfahren Sie, wie Sie die Registrierung bearbeiten. 5 Windows 10-Registrierungsoptimierungen zum Verbessern und Entsperren von Funktionen 5 Windows 10-Registrierungsoptimierungen zum Verbessern und Entsperren von Funktionen Der Registrierungseditor ist die einzige Möglichkeit, einige versteckte Funktionen von Windows 10 zu aktivieren. Hier zeigen wir Ihnen leichte Verbesserungen wie das Aktivieren des dunklen Themas oder das Ausblenden von Ordnern. Lesen Sie mehr mit einem VB-Skript. Außerdem erhalten Sie ein Skript, mit dem Sie den Standard-Windows-Benutzernamen und das Standardkennwort festlegen können, indem Sie diese Registrierungseinstellungen bearbeiten.

So funktioniert das. Da zum Bearbeiten der Registrierung Administratorrechte erforderlich sind, müssen Sie erhöhte Berechtigungen für Ihr Skript einrichten:

Wenn nicht WScript.Arguments.Named.Exists ("elevate"), dann CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/" "," " runas ", 1 WScript.Quit End If

Führen Sie zuerst zwei Eingabefelder aus, um den Benutzer zu fragen, welchen Benutzernamen und welches Kennwort verwendet werden soll:

strUserName = Eingabefeld ("Geben Sie den Standardbenutzernamen ein", "Eingabe erforderlich") strPassword = Eingabefeld ("Geben Sie das Standardkennwort ein", "Eingabe erforderlich")

Richten Sie als Nächstes das Shell-Objekt ein und schreiben Sie diese Werte in die entsprechenden Registrierungsschlüssel:

Legen Sie wshShell = CreateObject ("WScript.Shell") wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ Current \" fest \ Winlogon \ DefaultPassword ", strPassword," REG_SZ "Set wshShell = Nothing

Und das ist alles was dazu gehört. Das “RegWrite” Mit dieser Methode können Sie mithilfe eines VB-Windows-Skripts einen beliebigen Wert in jeden Registrierungsschlüssel schreiben. Alles was Sie wissen müssen, ist der geeignete Pfad.

Führen Sie das Skript aus und beantworten Sie die Eingabeaufforderungen.

Die von Ihnen eingegebenen Werte werden direkt in die Registrierungseinstellungen eingefügt, die Sie im Skript festgelegt haben.

Spielen Sie mit dem Skript herum und optimieren Sie es nach Ihren Wünschen. Sie können beliebige Registrierungsschlüssel bearbeiten, seien Sie also kreativ!

4. Setzen Sie Ihre Netzwerkverbindung zurück

Zurücksetzen der Netzwerkverbindung mithilfe von VB-Skripting So schreiben Sie ein Windows-Skript, um die Netzwerkeinstellungen schnell zu ändern So schreiben Sie ein Windows-Skript, um die Netzwerkeinstellungen schnell zu ändern In vielen Büros oder Arbeitsumgebungen müssen Sie möglicherweise die Netzwerkeinstellungen neu definieren, um eine Verbindung herzustellen zu verschiedenen Netzwerken. Ich befand mich oft genug in dieser Situation und war so müde vom Durchsuchen der… Read More ist etwas, das wir hier bei MakeUseOf bereits behandelt haben. Die folgende Version davon ist tatsächlich verkleinert und viel einfacher zu implementieren. Anstatt zur Eingabe einzelner Netzwerkkarten aufgefordert zu werden, werden alle aktiven Verbindungen zurückgesetzt, wodurch hoffentlich Netzwerkprobleme gelöst werden könnten.

Wie bei anderen Skripts, die Administratorrechte benötigen, müssen Sie den Abschnitt am Anfang für erhöhte Berechtigungen hinzufügen. Kopieren Sie den Code aus dem obigen Skript.

Erstellen Sie anschließend das WMI-Objekt und fragen Sie es nach einer Liste der aktivierten Netzwerkadapter auf Ihrem System ab:

strComputer = "." Setzen Sie objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2"). Legen Sie colItems = objWMIService.ExecQuery fest (_ "SELECT * FROM Win32_NetworkAdapter, wobei NetEnabled = 'True'").

Zum Schluss alle aktivierten Adapter durchlaufen und sie zurücksetzen:

Für jedes objItem in colItems objItem.Disable WScript.Sleep 1000 objItem.Enable Weiter

Dadurch werden alle aktiven Netzwerkadapter zurückgesetzt. 8 CMD-Befehle zum Verwalten von (drahtlosen) Netzwerken in Windows 8 CMD-Befehle zum Verwalten von (drahtlosen) Netzwerken in Windows Wenn Sie vollständige und uneingeschränkte Kontrolle über Ihr Netzwerk haben möchten, müssen Sie mit der Verwendung beginnen Eingabeaufforderung. Hier finden Sie die nützlichsten Befehle zur Verwaltung und Fehlerbehebung Ihres Heimnetzwerks. Lesen Sie mehr. Dies ist oft der schnellste Weg, um lästige Netzwerkprobleme zu lösen. Halten Sie dieses Skript bereit und versuchen Sie es zuerst, wenn Sie ein langsames Netzwerk oder andere seltsame Netzwerkprobleme haben.

5. Ping-Geräte oder Websites

Ich habe mein Lieblings-VB-Windows-Skript zum Schluss gespeichert. Dies ist eine, die ich als geplante Aufgabe auf meinem Heimcomputer eingerichtet habe und sie mehrmals am Tag ausführen lässt, nur um zu überprüfen, ob meine Website aktiv ist. 3 Möglichkeiten, herauszufinden, ob Ihre Lieblingswebsite ausgefallen ist 3 Möglichkeiten, um herauszufinden, ob Ihre Website funktioniert Die Lieblingswebsite ist heruntergekommen Es gibt einige Websites, die nur der Beantwortung der grundlegenden Frage gewidmet sind, die Sie letztendlich stellen werden: "Ist diese Website inaktiv?" Hier haben wir drei dieser Websites, und alle sind… Weiterlesen. Ich habe das Skript per E-Mail an mich gesendet, wenn die Site inaktiv ist. Sie können dasselbe Skript verwenden, um wichtige Server oder Computer in Ihrem Netzwerk zu überwachen und sich per E-Mail zu benachrichtigen, wenn das Skript kein Ping an das Gerät sendet.

Richten Sie zunächst das Skript für das Ziel ein, für das Sie einen Ping-Befehl ausführen möchten, erstellen Sie das Shell-Objekt und führen Sie dann den Befehl ping aus.

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

Verwenden Sie eine Select Case-Anweisung, um die Ping-Ergebnisse zu überprüfen und entsprechend zu reagieren. Wenn die Ergebnisse als Null zurückkehren, wissen Sie, dass die Site (oder der Server) online ist und Sie nichts tun müssen. Wenn es einen zurückgibt “1” Dann schlug der Ping fehl und Sie müssen etwas tun. In meinem Fall sende ich eine E-Mail mit dem Windows-CDO-Objekt:

Fall auswählen Ping-Fall 0 Fall 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 Mit objMessage Set .Configuration = objConfig .Subject = "Ihre Site ist offline" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hey, Ihre Website ist offline." . Send End With End Select

Sobald das Skript ausgeführt wird und kein Ping an das Gerät oder die Website gesendet werden kann, erhalten Sie eine Sofortnachricht.

Es ist schnell und einfach und alles effizient!

Verwenden von VB-Windows-Skripts zur Steuerung Ihres Computers

Dies sind nur einige Beispiele für einige der coolen Dinge, die Sie mit VB-Scripting zur Optimierung der Computer-Nutzung tun können. Es gibt viele andere Möglichkeiten, wie automatisierte Sicherungen mit VB und Synctoy. So erstellen Sie ein Datensicherungstool mit SyncToy & VB-Skript So erstellen Sie ein Datensicherungsprogramm mit SyncToy & VB-Skript Wir haben hier eine Menge von Sicherungslösungen behandelt von MUO, und all diese Lösungen sind großartig, aber wenn Sie in einer Umgebung arbeiten, in der kostenlose Softwarepakete von Drittanbietern oder Unternehmen vorsichtig sind… Lesen Sie mehr, Telnet-Befehle automatisieren Automatisieren von Telnet-Befehlen mit VB-Skript Automatisieren Telnet-Befehle mit VB-Skript Das Schreiben von Stapeljobs und neueren Windows-Skripts ist eine Aktivität, die den Großteil der meisten Netzwerk- und Systemadministratoren ausmacht, die ihre Aufgaben schneller erledigen und vereinfachen, was… Read More oder sogar das Öffnen und Steuern Anwendungsfenster 3 Möglichkeiten zum Öffnen von Anwendungen und Windows maximiert mit VB-Skript [Windows] 3 Möglichkeiten zum Öffnen von Anwendungen und Windows maximiert mit VB-Skript [Windows] Wenn es eine Sache gibt, die ich liebe Dazu schreiben Sie VB-Skripte. Unabhängig davon, ob es sich um eine Windows-Skriptdatei oder ein VBA-Skript in einer Anwendung handelt, können Sie mit Skripts Funktionen zu Anwendungen hinzufügen. Weitere Informationen .

Welche Dinge haben Sie auf Ihrem Computer mit einem Windows-Skript automatisiert? Schreiben Sie Ihre mit VB oder verwenden Sie ein anderes Tool wie PowerShell Powershell-Cmdlets, die Ihre Windows-Admin-Fähigkeiten verbessern. PowerShell-Cmdlets, die Ihre Windows-Admin-Fähigkeiten verbessern. Powershell ist zu gleichen Teilen Befehlszeilen-Tool und Skriptsprache. Sie haben die Möglichkeit, Ihren Computer mit denselben Befehlen zu automatisieren, die Sie zur Verwaltung des Computers verwenden. Weiterlesen ?

Erfahren Sie mehr über: Computerautomatisierung, Scripting.