5 Hyödyllisiä VB Windows-komentosarjoja tietokoneen käytön automatisoimiseksi

Mainos

Olitpa IT-analyytikko tai tavallinen tietokoneen käyttäjä, on monia tehtäviä, jotka sinun on ehkä tehtävä usein tietokoneellasi. VB-skriptit pienennetään Visual Basic -ohjelmia, jotka toimivat Windows-skripteinä ja jotka voivat tehdä mitä tahansa ylöspäin tärkeät tiedot tietokonelaitteistasi, palveluiden lopettamiseksi ja käynnistämiseksi tai verkon palauttamiseksi kortti.

On mahdollista oppia tekemään kaikki nämä yksittäiset asiat normaalisti tai suorittamaan ne eräajotiedostojen avulla. Mutta VB-skriptit ovat parempia kuin eräkäsikirjoitukset Parempi kuin erä: Windows-komentosarjojen isäntäohjelma Lue lisää koska ne ovat joustavampia. Jos tallennat seuraavat komentosarjat yleiseen sijaintiin, johon pääset nopeasti tarvittaessa, voit suorittaa nämä tehtävät murto-osan ajasta. Kaksoisnapsauta skriptiä, vastaat kehotteeseen ja tehtävä on valmis.

Katso seuraavia VB Windows -komentosarjoja ja jos näet haluamiasi, kopioi ja liitä komentosarja Muistio tai muu koodaus muistilappu 7 parasta muistiinpanosovellusta ohjelmoijille ja koodereille

Ohjelmoijana pitäminen voi olla vaikeaa! Tässä ovat parhaat muistiinpanosovellukset, jotka on suunniteltu koodereiden ja kehittäjien mielessä. Lue lisää ja tallenna se WSF-tiedostona.

Valmista Windows-skriptit

Jokainen alla luetelluista komentosarjoista suoritetaan vain kaksoisnapsautuksella, kunhan olet nimennyt tiedoston .WSF-tiedostotunnisteella ja olet myös aluksi lisännyt koodin seuraavalla:

Ja sulje koodi seuraavalla tavalla:

  WScript. Lopettaa. 

Tämä varmistaa, että Windows tunnistaa kielen, johon skripti on kirjoitettu, ja käsittelee sen oikein.

1. Käytä Windows Scripts -tietoja tietokoneelle

Windows tarjoaa jotain nimeltään WMI tai Windows Management Instrumentation, joka tarjoaa skriptillesi käyttöliittymän käyttöjärjestelmän osien käyttämistä varten. Voit tosiasiallisesti suorittaa kyselyitä WMI: tä vastaan ​​saadaksesi nykyisiä live-tietoja järjestelmästäsi. Microsoft tarjoaa täydellisen luettelon kaikista kyselyluokat voit tehdä järjestelmää vastaan.

Olemme käsitellyt kuinka käyttää VBA: ta vedä tietokoneen tiedot Exceliin Kuinka nähdä kaikki tietokoneesi tiedot käyttämällä yksinkertaista Excel VBA-komentosarjaaExcel ja 10 minuuttia työtä antavat sinulle yksityiskohtaisempia tietoja tietokoneestasi kuin olet koskaan ajatellut mahdollista. Kuulostaa liian hyvältä ollakseen totta? Se on Windows, jos osaat käyttää sitä. Lue lisää , mutta voit tehdä saman asian käyttämällä yksinkertaista VB-skriptiä Excelin ulkopuolella.

Tässä esimerkissä kysymme järjestelmältä prosessorin tietoja (perhe, valmistaja ja ytimien lukumäärä), akkutiedot Kuinka säästää akun käyttöikää Windows 10: ssä virrankatkaisullaMicrosoft esitteli virrankatkaisun, joka antaa Windows-käyttäjille paremman hallinnan siitä, kuinka yksittäiset sovellukset käsittelevät akunkulutusta samalla, kun ne toimivat taustalla. Lue lisää (kuvaus ja tila) ja loogisen levyn tiedot Levytilan säästäminen Windows 10: ssäLevytilavaatimusten kannalta Windows 10 on suorastaan ​​ahkea. 20 Gt: n tuhlaaminen pienellä SSD-levyllä voi olla turhauttavaa. Onneksi voit vähentää Windows 10 -jalanjälkeä ja ottaa takaisin osan tästä tilasta. Lue lisää (nimi, jäljellä oleva vapaa tila ja koko). Sitten tulostamme kaikki nämä tiedot CSV-tiedostoon katselua varten.

Ensimmäinen vaihe on määrittää FileSystemObject, jota käytät tulostukseen CSV-tiedostoon, ja luoda tiedosto:

Aseta oFSO = CreateObject ("Komentosarjat. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Aseta oFile1 = oFSO.CreateTextFile (sFile1, 1)

Seuraava vaihe on WMI-kyselyn asettaminen ja suorittaminen:

strQuery = "SELECT-perhe, valmistaja, NumberOfCores FROM Win32_Processor" Aseta colResults = GetObject ("winmgmts: //./ root / cimv2") .ExecQuery (strQuery)

Lopuksi, lajittele tulokset ja lähetä tiedot CSV-tiedostoon. Jos haluat olla kuvitteellinen, esipuhetele se muutamalla rivillä, jotta tulostiedostosi näyttää paremmalta:

oFile1.WriteLine "Suorittimen tiedot" oFile1.WriteLine "" Jokaiselle objResult in colResults strResults = "Family:," + CStr (objResult. Perhe) oFile1.WriteLine strResults strResults = "Valmistaja:," + CStr (objResult. Valmistaja) oFile1.WriteLine strResults strResults = "Ytimien lukumäärä:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. Seuraava

Jos suoritat koodisi nyt, tulostasi näyttää tältä:

Koodisi kahdessa seuraavassa osassa aiot vain toistaa ja muuttaa kyselyä etsiäksesi lisätietoja. Tässä on akkutietopyyntö:

oFile1.WriteLine "" strQuery = "VALITSE Kuvaus, Tila FERNASTÄ Win32_Battery" Aseta colResults = GetObject ("winmgmts: //./ root / cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Akkutiedot" oFile1.WriteLine "" Jokaiselle objResult in colResults strResults = "Status:," + CStr (objResult. Kuvaus) oFile1.WriteLine strResults strResults = "Kuvaus:," + CStr (objResult. Tila) oFile1.WriteLine strResults. Seuraava

Ja tässä on seuraava osa loogisen levykyselyn:

oFile1.WriteLine "" strQuery = "Valitse nimi, vapaa tila, koko Win32_LogicalDisk" Aseta colResults = GetObject ("winmgmts: //./ root / cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Levyn tiedot" oFile1.WriteLine "" 'Tunnista looginen levytila. Jokaiselle objResult in colResults strResults = "Nimi:" + CStr (objResult. Nimi) oFile1.WriteLine strResults strResults = "Vapaa tila:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Levyn koko:," + CStr (objResult. Koko) oFile1.WriteLine strResults. Seuraava

Muista lopuksi sulkea koodi sulkemalla tiedosto ja asettamalla kohteet arvoon "Ei mitään":

oFile1.Close Set oFile1 = Ei mitään. set colResults = Ei mitään. strResults = ""

Laita kaikki koodi uuteen .WSF-tiedostoosi, suorita se, ja tulostasi näyttää tältä:

Vaihda vain yllä olevat kyselyt muilta tietokonelaitteilta tai ohjelmistoilta, joista haluat tietoja, ja saat koko järjestelmäraportti Kuinka luoda automaattinen tietokoneen terveysraportointijärjestelmäOlet lounastamassa, kun matkapuhelimesi ilmoittaa tärkeästä tekstistä. Tekstiviestin sanoma on: "Kotitietokoneen hälytys: 3 hakkerointiyritystä." Tämä ei ole fiktio! Anna meidän näyttää sinulle, miten tämä tehdään! Lue lisää milloin haluat vain hiiren napsautuksella.

2. Pysäytä ja aloita palvelut

Joskus tietyissä palveluissa on ongelmia, ja ne vaativat vain nopean uudelleenkäynnistyksen, jotta ne toimivat uudelleen kunnolla. Tämä on erityisen totta IT Ennen kuin opiskelet IT: tä, tiedä mitä olet tekemässäTietotekniikasta (IT) on tullut niin laajalle levinnyt uravalinta. Mutta harvat ihmiset todella tietävät, mitä IT on ja mitä sen kurinalaisuus edellyttää. Lue lisää kun pakotat ajamaan palvelinohjelmistoa, joka on joskus vähän viallinen.

Jos haluat ajaa noin minuutin pois palvelun uudelleenkäynnistysprosessista, tallenna vain seuraava komentosarja paikoilleen kätevästi. Se kehottaa kirjoittamaan uudelleenkäynnistettävän palvelun nimen, ja sitten se tekee juuri sen.

Koska palveluiden lopettaminen ja käynnistäminen vaatii järjestelmänvalvojan oikeuksia, sinun on asetettava seuraava koodi komentosarjan alkuun, jotta annat komentosarjan kohonneet etuoikeudet:

Jos ei WScript. Argumentteja. Nimetty. On olemassa ("kohottaa"). Sitten CreateObject ("Kuori. Sovellus "). ShellExecute WScript. FullName _, ja ​​WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Lopettaa. Loppu Jos

Kun tämä on tehty, lisää loput koodi suorittaaksesi käyttäjän syöttöruudun, avaa komentoikkuna, ja lähetä sille “net stop” ja “net start Komento”:

Aseta cmdShell = CreateObject (". Kuori") strServiceName = Syöttölaatikko ("Inter Service to Stop", "Input Required") cmdShell. Suorita "cmd.exe" Wscript. Sleep 1000 cmdhell. SendKeys "net stop" + strServiceName. cmdShell. SendKeys "{Enter}" Wscript. Sleep 1000 cmdhell. SendKeys "net start" + strServiceName. cmdShell. SendKeys "{Enter}" Wscript. Sleep 1000 cmdhell. SendKeys "Poistu" cmdShell. SendKeys "{Enter}"

Siinä kaikki on siinä. Palveluvälineitä ei tarvitse metsästää. Suorita vain tämä komentojono ja pysäytä ja aloita palvelu sekunneissa.

3. Muuta rekisteriasetuksia, järjestelmänvalvojan oletussalasana

Seuraavan käsikirjoituksen avulla aiomme tappaa kaksi lintua yhdellä kivillä. Tämä käsikirjoitus näyttää sinulle kuinka muokkaa rekisteriä 5 Windows 10 -rekisterin parannuksia ominaisuuksien parantamiseksi ja avaamiseksiRekisterieditori on ainoa tapa ottaa käyttöön jotkut Windows 10: n piilotetut ominaisuudet. Tässä näytämme sinulle helppoja parannuksia, kuten tumman teeman käyttöönotto tai kansioiden piilottaminen. Lue lisää VB-skriptillä. Se antaa sinulle myös komentosarjan, jonka avulla voit asettaa Windowsin oletus käyttäjänimen ja salasanan muokkaamalla näitä rekisteriasetuksia.

Näin se toimii. Ensinnäkin, koska rekisterin muokkaaminen vaatii järjestelmänvalvojan oikeuksia, sinun on määritettävä komentosarjan kohotetut käyttöoikeudet:

Jos ei WScript. Argumentteja. Nimetty. On olemassa ("kohottaa"). Sitten CreateObject ("Kuori. Sovellus "). ShellExecute WScript. FullName _, ja ​​WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Lopettaa. Loppu Jos

Suorita ensin kaksi syöttöruutua kysyäksesi käyttäjältä, mitä käyttäjänimeä ja salasanaa käytetään:

strUserName = Syötelaatikko ("Syötä oletuskäyttäjänimi", "Syöttö vaaditaan") strPassword = Syöttölaatikko ("Syötä oletussalasana", "Syöttö vaaditaan")

Asenna seuraavaksi shell-objekti ja kirjoita nämä arvot asianmukaisiin rekisteriavaimiin:

Aseta wshShell = CreateObject (". Kuori ") 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" Aseta wshShell = Ei mitään

Ja siinä kaikki on siinä. ”RegWrite” -menetelmä antaa sinun kirjoittaa mikä tahansa arvo mihin tahansa rekisteriavaimeen VB Windows -komentosarjan avulla. Ainoa mitä sinun on tiedettävä, on oikea polku.

Suorita komentosarja ja vastaa kehotuksiin.

Antamasi arvot lisätään suoraan komentosarjassa asettamiin rekisteriasetuksiin.

Pelaa ympäri käsikirjoitusta ja säädä se makusi mukaan. Voit muokata haluamiasi rekisteriavaimia, joten ole luova!

4. Palauta verkkoyhteys

Verkkoyhteyden palauttaminen VB-komentosarjoilla Kuinka kirjoittaa Windows-skripti verkkoasetusten muuttamiseksi lennossaMonissa toimistoissa tai työympäristöissä saatat joutua määrittelemään verkkoasetukset uudelleen, jotta voit muodostaa yhteyden eri verkkoihin. Löysin tilanteen tarpeeksi usein ja kyllästyin selaamaan ... Lue lisää on jotain, jota olemme käsittäneet aiemmin täällä MakeUseOfissa. Seuraava versio tästä on todella pienennetty ja paljon yksinkertaisempi toteuttaa. Yksittäisten verkkokorttien pyytämisen sijasta se nollaa kaikki aktiiviset yhteydet, jotka toivottavasti ratkaisevat mahdolliset verkkoongelmat.

Kuten muutkin komentosarjat, jotka tarvitsevat järjestelmänvalvojan oikeuksia, sinun on lisättävä osio alussa korotettujen oikeuksien saamiseksi. Kopioi koodi yllä olevasta komentosarjasta.

Luo seuraavaksi WMI-objekti ja hae sitä järjestelmäsi sallittujen verkkosovittimien luettelosta:

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

Lopuksi käy läpi kaikki käytössä olevat sovittimet ja nollaa ne:

Jokaisesta koljidi objItem -kohdasta. Poista WScript käytöstä. Nuku 1000 objItem. Ota käyttöön. Seuraava

Tämä nollaa kaikki sinun aktiiviset verkkosovittimet 8 CMD-komentoa langattomien verkkojen hallintaan WindowsissaHallitse Wi-Fi-verkkoasi komentorivillä. Tässä on hyödyllisimmät komennot kotiverkon vianmääritykseen. Lue lisää , joka on usein nopein tapa ratkaista ärsyttävät verkkoongelmat. Pidä tämä komentosarja kätevänä ja kokeile sitä ensin, kun sinulla on hidas verkko tai muita outoja verkkoongelmia.

5. Ping-laitteet tai verkkosivustot

Olen tallentanut suosikki VB-Windows-skriptini viimeksi. Tämä on yksi, jonka olen itse asettanut aikataulutehtäväksi kotitietokoneelleni ja saan sen suorittaa useita kertoja päivässä vain tarkista onko verkkosivustoni aktiivinen 3 tapaa selvittää, onko suosikkisivustosi alhaallaSiellä on muutama verkkosivusto, joka on omistettu yksinkertaisesti vastaamaan siihen peruskysymykseen kysyt lopulta: "Onko tämä verkkosivusto alhaalla?" Täällä meitä on kolme näistä verkkosivustoista, ja he ovat kaikki... Lue lisää . Minulla on skripti sähköpostitse minulle, jos sivusto ei ole käytössä. Voit käyttää tätä samaa skriptiä verkon tärkeiden palvelimien tai tietokoneiden seuraamiseen ja sähköpostin lähettämiseen itsellesi aina, kun skripti ei voi laittaa laitteeseen.

Aluksi määritä komentosarja kohteelle, jonka haluat pingittää, luo shell-objekti ja suorita sitten ping-komento.

strTarget = "topsecretwriters.com" Aseta WshShell = WScript. CreateObject ( "wscript. Kuori") Ping = WshShell. Suorita ("ping -n 1" & strTarget, 0, True)

Käytä Valitse tapaus -lausetta suorittaaksesi Ping-tulokset ja vastataksesi vastaavasti. Jos tulokset palautuvat nollaksi, tiedät, että sivusto (tai palvelin) on verkossa, eikä sinun tarvitse tehdä mitään. Jos se palauttaa arvon 1, ping epäonnistui ja sinun on tehtävä jotain. Minun tapauksessani lähetän sähköpostin Windows CDO -objektilla:

Valitse tapaus Ping-tapaus 0 Tapaus 1 Aseta objMessage = CreateObject ("CDO.Message") Aseta objConfig = CreateObject ("CDO.Configuration") objConfig. Lataa -1 Aseta Flds = objConfig. Kentät lentävät .Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Totta .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. Päivitä loppu loppuun kohdalla kanssa objMessage Set .Configuration = objConfig .Subject = "Sivustosi on offline" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hei, verkkosivustosi on offline-tilassa." .Lähetä loppu Kanssa. Lopeta valinta

Kun skripti suoritetaan, et voi ping laitteeseen tai verkkosivustoon, saat pikaviestin.

Se on nopeaa, helppoa ja tehokasta!

VB Windows -komentosarjojen käyttäminen tietokoneen hallintaan

Nämä ovat vain muutamia esimerkkejä hienoista asioista, jotka voit tehdä VB-komentosarjoilla tietokoneesi käytön virtaviivaistamiseksi. Voit tehdä paljon muitakin asioita automatisoidut varmuuskopiot VB: n ja Synctoyn kanssa Kuinka luoda varmuuskopiointityökalu SyncToy & VB-komentosarjan avullaOlemme käsitellyt paljon varmuuskopioratkaisuja täällä MUO: ssa, ja kaikki nämä ratkaisut ovat hienoja, mutta jos työskentelet ympäristössä, joka on varovainen ilmaisten kolmannen osapuolen ohjelmistopakettien tai yritysten ... Lue lisää , telnet-komentojen automatisointi Kuinka automatisoida Telnet-komennot VB-komentosarjan avullaErätyötekijöiden ja viime aikoina Windows-skriptien kirjoittaminen on toimintaa, joka todella muodostaa suurimman osan kuinka suurin osa verkko- ja järjestelmänvalvojista tekee työnsä nopeammin ja mitä yksinkertaistaa olisi ... Lue lisää , tai jopa avaa ja hallitse sovellusikkunoita 3 tapaa avata sovelluksia ja Windows, joka on maksimoitu VB-komentosarjalla [Windows]Jos on yksi asia, jota rakastan tehdä, se kirjoittaa VB-skriptit. Olipa kyseessä Windows Script-tiedosto tai sovelluksen sisällä oleva VBA-skripti, komentosarjojen avulla voidaan lisätä toimintoja sovelluksiin ... Lue lisää .

Mitkä ovat asiat, jotka olet automatisoinut tietokoneellasi Windows-komentosarjan avulla? Kirjoitatko omasi VB: llä vai jotain muuta työkalua kuten PowerShell Powershell-lomakkeet, jotka parantavat Windows-järjestelmänvalvojataitojasiPowershell on yhtä suuret osat komentorivityökalu ja komentosarjojen kieli. Se antaa sinulle mahdollisuuden automatisoida tietokoneesi samojen komentojen avulla, joita käytät sen hallitsemiseen. Lue lisää ?