5 Užitečné skripty Windows VB pro automatizaci používání počítače

reklama

Ať už jste analytik IT nebo běžný uživatel počítače, je zde spousta úkolů, které můžete v počítači potřebovat často. Skripty VB jsou zmenšeny programy jazyka Visual Basic, které slouží jako skripty Windows, které dokážou cokoli odtrhnout důležité informace o hardwaru počítače, zastavení a spuštění služeb nebo resetování sítě Kartu.

Je možné se naučit, jak dělat všechny tyto jednotlivé věci obvyklým způsobem, nebo je provádět pomocí dávkových souborů. Ale Skripty VB jsou lepší než dávkové skripty Lepší než dávka: Výukový program pro skriptování systému Windows Přečtěte si více protože jsou flexibilnější. Pokud ukládáte následující skripty na společném místě, na které se rychle dostanete, když to potřebujete, můžete tyto úkoly splnit za zlomek času. Stačí dvakrát kliknout na skript, odpovědět na výzvu a úkol je dokončen.

Podívejte se na následující skripty VB Windows a pokud vidíte, co byste chtěli použít, zkopírujte a vložte skript do Poznámkový blok nebo jiný nástroj pro poznámky k kódování

7 nejlepších aplikací pro psaní poznámek pro programátory a kodéryZůstat organizovaný jako programátor může být těžké! Zde jsou nejlepší aplikace pro psaní poznámek navržené s ohledem na kodéry a vývojáře. Přečtěte si více a uložte jej jako soubor WSF.

Připravte si Windows skripty

Každý ze skriptů podrobně uvedených níže se spustí pouhým dvojitým kliknutím, pokud jste pojmenovali soubor s příponou .WSF a ​​kód jste na začátku uzavřeli:

A uzavřete kód pomocí:

  WScript. Přestat. 

Tím je zajištěno, že systém Windows rozpozná jazyk, ve kterém je skript napsán, a správně jej zpracovává.

1. Pro informace o počítači použijte skripty Windows

Systém Windows nabízí něco zvané WMI nebo Windows Management Instrumentation, které poskytuje skriptu rozhraní pro přístup k součástem operačního systému. Ve skutečnosti můžete spouštět dotazy proti WMI a získávat aktuální živé informace o vašem systému. Společnost Microsoft nabízí úplný seznam všech kategorie dotazů můžete udělat proti systému.

Pokryli jsme, jak používat VBA stáhnout informace o počítači do Excelu Jak zobrazit všechny informace o vašem počítači pomocí jednoduchého skriptu Excel VBAExcel a 10 minut práce vám poskytne podrobnější informace o vašem počítači, než jste si kdy mysleli. Zní to příliš dobře, aby to byla pravda? To je Windows, pokud víte, jak ji používat. Přečtěte si více , ale to samé můžete udělat pomocí jednoduchého skriptu VB mimo Excel.

V tomto příkladu se chystáme dotazovat systém na informace o procesoru (rodina, výrobce a počet jader), informace o baterii Jak ušetřit životnost baterie v systému Windows 10 pomocí funkce ThrottlingSpolečnost Microsoft zavedla omezení výkonu, které uživatelům systému Windows poskytuje větší kontrolu nad tím, jak jednotlivé aplikace zpracovávají spotřebu baterie při běhu na pozadí. Přečtěte si více (popis a stav) a informace o logickém disku Jak ušetřit místo na disku v systému Windows 10Pokud jde o požadavky na místo na disku, Windows 10 je naprosto bezútěšný. Plýtvání 20 GB na malém SSD může být frustrující. Naštěstí můžete snížit stopu Windows 10 a získat zpět část tohoto prostoru. Přečtěte si více (název, zbývající volné místo a celková velikost). Poté všechny tyto informace přeneseme do souboru CSV pro snadné prohlížení.

Prvním krokem je nastavení FileSystemObject, který použijete pro výstup do souboru CSV, a vytvoření souboru:

Nastavit oFSO = CreateObject ("Skriptování. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Sada oFile1 = oFSO.CreateTextFile (sFile1, 1)

Dalším krokem je nastavení dotazu WMI a jeho provedení:

strQuery = "SELECT Family, Výrobce, NumberOfCores FROM Win32_Processor" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Nakonec výsledky rozdělte a informace zašlete do souboru CSV. Pokud chcete být fantazijní, předpovězte to pomocí několika řádků, aby váš výstupní soubor vypadal lépe:

oFile1.WriteLine "Informace o procesoru" oFile1.WriteLine "" Pro každý objResult In colResults strResults = "Family:," + CStr (objResult. Rodina) oFile1.WriteLine strResults strResults = "Výrobce:," + CStr (objResult. Výrobce) oFile1.WriteLine strResults strResults = "Počet jader:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. další

Pokud nyní spustíte kód, bude váš výstup vypadat takto:

V následujících dvou částech kódu stačí opakovat a změnit dotaz tak, aby hledal další informace. Zde je dotaz na informace o baterii:

oFile1.WriteLine "" strQuery = "VYBRAT Popis, Stav Z Win32_Battery" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informace o bateriích" oFile1.WriteLine "" Pro každý objResult In colResults strResults = "Status:," + CStr (objResult. Popis) oFile1.WriteLine strResults strResults = "Description:," + CStr (objResult. Stav) oFile1.WriteLine strResults. další

A zde je další část pro dotaz na logický disk:

oFile1.WriteLine "" strQuery = "Vyberte jméno, FreeSpace, velikost z Win32_LogicalDisk" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine „Informace o disku“ oFile1.WriteLine "" 'Identifikujte prostor logického disku. Pro každý objResult In colResults strResults = "Jméno:," + CStr (objResult. Název) oFile1.WriteLine strResults strResults = "Free Space:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Velikost disku:" + CStr (objResult. Velikost) oFile1.WriteLine strResults. další

Nakonec nezapomeňte zavřít kód zavřením souboru a nastavením objektů na „Nic“:

oFile1.Zavřít Set oFile1 = Nic. set colResults = Nic. strResults = ""

Vložte celý tento kód do nového souboru .WSF, spusťte jej a zde bude vypadat váš výstup:

Stačí vyměnit výše uvedené dotazy pro všechna počítačová zařízení nebo software, o kterých chcete získat informace, a můžete získat úplná systémová zpráva Jak vytvořit automatizovaný systém hlášení stavu počítačeJdete na oběd, protože vás mobilní telefon upozorní na důležitý text. SMS zní: „Upozornění na domácí počítač: 3 pokusy o hackerství.“ To není fikce! Ukážeme vám, jak na to! Přečtěte si více kdykoli budete chtít pouhým kliknutím myši.

2. Zastavte a spusťte služby

Budou časy, kdy některé služby budou mít problémy, a vyžadují jen rychlý restart, aby se znovu spustily správně. To je zejména pravda v IT Než začnete studovat IT, zjistěte, do čeho se zapojujeteInformační technologie (IT) se staly tak rozšířenou volbou kariéry. Ale jen málo lidí ve skutečnosti ví, co to IT je a co jeho disciplína znamená. Přečtěte si více když jste nuceni spustit serverový software, který je někdy trochu buggy.

Pokud se chcete oholit asi minutu od procesu restartu služby, uložte následující skript na nějaké vhodné místo. Budete vyzváni k zadání názvu služby, kterou chcete restartovat, a pak to udělá přesně.

Protože služby zastavování a spouštění vyžadují oprávnění správce, musíte na začátek skriptu umístit následující kód, abyste mohli skript poskytnout zvýšená oprávnění:

Pokud není WScript. Argumenty. Pojmenováno. Existuje ("povýšit"), pak CreateObject ("Shell. Aplikace "). ShellExecute WScript. FullName _, & WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Přestat. Konec If

Po dokončení přidejte zbytek kódu a spusťte vstupní pole pro vstup uživatele, spusťte příkazové oknoa odešlete příkazy „net stop“ a „net start“:

Set cmdShell = CreateObject ("WScript. Shell “) strServiceName = Inputbox ("Inter Service to Stop", "Input Required") cmdShell. Spustit "cmd.exe" WScript. Spát 1000 cmdShell. SendKeys "net stop" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. Spát 1000 cmdShell. SendKeys "net start" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. Spát 1000 cmdShell. SendKeys "Exit" cmdShell. SendKeys "{Enter}"

To je všechno. Není třeba obcházet nástroj pro služby. Stačí spustit tento skript a zastavit a spustit jakoukoli službu během několika sekund.

3. Změňte nastavení registru, výchozí heslo správce

Pomocí následujícího skriptu zabijeme dva ptáky jedním kamenem. Tento skript vám ukáže, jak na to upravit registr 5 vylepšení registru systému Windows 10 pro vylepšení a odemknutí funkcíEditor registru je jediný způsob, jak povolit některé skryté funkce systému Windows 10. Zde vám ukážeme snadná vylepšení, jako je povolení temného motivu nebo skrytí složek. Přečtěte si více se skriptem VB. Také vám poskytne skript, který vám umožní upravit výchozí uživatelské jméno a heslo systému Windows úpravou těchto nastavení registru.

Takto to funguje. Za prvé, protože úprava registru vyžaduje administrátorská práva, musíte pro skript nastavit zvýšená oprávnění:

Pokud není WScript. Argumenty. Pojmenováno. Existuje ("povýšit"), pak CreateObject ("Shell. Aplikace "). ShellExecute WScript. FullName _, & WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Přestat. Konec If

Nejprve spusťte dvě vstupní pole a zeptejte se uživatele, jaké uživatelské jméno a heslo použít:

strUserName = Inputbox ("Zadejte výchozí uživatelské jméno", "Vyžadováno zadání") strPassword = Inputbox ("Zadejte výchozí heslo", "Input Required")

Dále nastavte objekt shellu a zapište tyto hodnoty do příslušných klíčů registru:

Set wshShell = CreateObject ("WScript. Shell “) 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" Nastavit wshShell = Nic

A to je všechno. Metoda „RegWrite“ umožňuje zapisovat jakoukoli hodnotu do kteréhokoli klíče registru pomocí skriptu Windows VB. Vše, co musíte vědět, je vhodná cesta.

Spusťte skript a odpovězte na výzvy.

Zadané hodnoty se vloží přímo do nastavení registru, které jste nastavili ve skriptu.

Hrajte se skriptem a vyladěte jej podle svých představ. Můžete upravit libovolné klíče registru, které se vám líbí, takže buďte kreativní!

4. Obnovte síťové připojení

Obnovení síťového připojení pomocí skriptování VB Jak napsat skript Windows pro změnu nastavení sítě za choduV mnoha kancelářích nebo pracovních prostředích bude možná nutné předefinovat nastavení sítě pro připojení k různým sítím. V této situaci jsem se ocitl dost často a už jsem unavený procházením ... Přečtěte si více je něco, co jsme zde dříve na MakeUseOf pokryli. Následující verze je ve skutečnosti zmenšena a implementace mnohem jednodušší. Namísto výzvy k jednotlivým síťovým kartám resetuje všechna vaše aktivní připojení, která by snad vyřešila případné problémy se sítí.

Stejně jako u jiných skriptů, které potřebují administrátorská práva, budete muset přidat sekci na začátku pro zvýšená oprávnění. Zkopírujte tento kód ze skriptu výše.

Dále vytvořte objekt WMI a zeptejte se jej na seznam povolených síťových adaptérů ve vašem systému:

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

Nakonec proveďte všechny povolené adaptéry a resetujte je:

Pro každý objekt v sloupci objekt. Zakázat WScript. Spát 1000 objektů. Umožnit. další

Tím se resetují všechny vaše aktivní síťové adaptéry 8 příkazů CMD pro správu bezdrátových sítí ve WindowsK ovládání sítě Wi-Fi použijte příkazový řádek. Zde jsou nejužitečnější příkazy pro řešení problémů s domácí sítí. Přečtěte si více , což je často nejrychlejší způsob, jak vyřešit nepříjemné problémy se sítí. Mějte tento skript po ruce a zkuste to nejprve, kdykoli budete mít pomalou síť nebo jiné podivné problémy se sítí.

5. Zařízení ping nebo webové stránky

Uložil jsem svůj oblíbený skript pro Windows VB jako poslední. To je ten, který jsem vlastně nastavil jako naplánovaný úkol na svém domácím počítači a nechal ho běžet několikrát denně, jen aby zkontrolujte, zda je můj web aktivní 3 způsoby, jak zjistit, zda váš oblíbený web nefungujeExistuje několik webových stránek, které se věnují jednoduše odpovědi na základní otázku nakonec se zeptáte: „Je tento web dole?“ Zde máme tři z těchto webových stránek a jsou Všechno... Přečtěte si více . Mám skript e-mail mi, pokud je web dole. Stejný skript můžete použít ke sledování důležitých serverů nebo počítačů ve vaší síti a zasílání e-mailů, kdykoli váš skript nemůže pingovat zařízení.

Nejprve nastavte skript pro cíl, který chcete ping, vytvořte objekt shellu a spusťte příkaz ping.

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

Pomocí příkazu Select Case můžete procházet výsledky Ping a odpovídajícím způsobem reagovat. Pokud se výsledky vrátí jako nula, pak víte, že web (nebo server) je online a nemusíte nic dělat. Pokud vrátí „1“, ping selhal a musíte něco udělat. V mém případě posílám e-mail pomocí objektu Windows CDO:

Vyberte případ Ping Případ 0 Případ 1 Set objMessage = CreateObject ("CDO.Message") Set objConfig = CreateObject ("CDO.Configuration") objConfig. Load -1 Set Flds = objConfig. Pole s 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 = "Váš web je offline" .Od = "[email protected]" .To = "[email protected]" .TextBody = "Hej, váš web je offline." .Odeslat konec S. End Select

Jakmile je skript spuštěn a nemůže ping zařízení nebo web, dostanete okamžitou zprávu.

Je to rychlé a snadné a efektivní!

Používání skriptů Windows VB k ovládání počítače

Toto je jen několik příkladů některých skvělých věcí, které můžete pomocí skriptování VB zefektivnit používání počítače. Existuje spousta dalších věcí, které můžete udělat automatické zálohování pomocí VB a Synctoy Jak vytvořit nástroj pro zálohování dat pomocí SyncToy & VB ScriptPokryli jsme zde mnoho zálohovacích řešení na MUO, a všechna tato řešení jsou skvělá, ale pokud pracujete v prostředí, které je obezřetné ohledně bezplatných softwarových balíčků třetích stran nebo společností ... Přečtěte si více , automatizace příkazů telnet Jak automatizovat příkazy Telnet pomocí skriptu VBPsaní dávkových úloh a nověji skriptů Windows je činnost, která opravdu tvoří většinu jak velká většina správců sítí a systémů provádí své úkoly rychleji a co zjednodušuje bych... Přečtěte si více , nebo dokonce otevírat a ovládat okna aplikace 3 způsoby, jak otevřít aplikace a Windows maximalizovat pomocí skriptu VB [Windows]Pokud mám rád jednu věc, je to psaní skriptů VB. Ať už se jedná o soubor Windows Script nebo skript VBA uvnitř aplikace, skriptování poskytuje možnost přidat do aplikací funkčnost ... Přečtěte si více .

Jaké jsou některé věci, které jste v počítači automatizovali skriptem Windows? Píšete vaše pomocí VB, nebo používáte nějaký jiný nástroj jako je PowerShell Powershell Cmdlets, které zlepší vaše Windows Admin dovednostiPowershell je nástroj příkazového řádku se stejnými částmi a skriptovací jazyk. Poskytuje vám možnost automatizovat počítač pomocí stejných příkazů, které používáte pro jeho správu. Přečtěte si více ?