5 korisnih skripti za VB Windows za automatizaciju korištenja računala

Bez obzira jeste li informatički analitičar ili obični korisnik računala, na vašem računalu ćete trebati obavljati puno zadataka. Smanjiti VB skripte smanjuju Visual Basic programe koji služe kao skripte za Windows koji mogu učiniti bilo što, od podizanja važnih informacija o hardveru vašeg računala, do zaustavljanja i pokretanja usluga ili resetiranja vaše mrežne kartice.

Moguće je naučiti kako sve te pojedinačne stvari raditi na normalan način ili ih raditi pomoću batch datoteka. Ali VB skripte su bolje od batch skripti Bolje od skupa: Vodič za Windows skripte za skripte bolji od serije: Vodič za hostove skriptiranja za Windows jer su fleksibilniji. Ako sljedeće skripte pohranite na zajedničko mjesto do kojeg se brzo može doći kad vam zatreba, ove ćete zadatke moći ispuniti u djeliću vremena. Samo dvokliknite skriptu, odgovorite na brzinu i zadatak je obavljen.

Pogledajte sljedeće skripte VB Windows-a i ako vidite bilo koju koju biste željeli koristiti, samo kopirajte i zalijepite skriptu u Notepad ili drugi alat za kodiranje bilješki. 7 najboljih aplikacija za bilješke za programere i kodre Uzimanje aplikacija za programere i kodiste Ostajanje organizirano kao programer može biti naporno! Ovdje su najbolje aplikacije za bilješke dizajnirane s koderima i programerima na umu. i spremite ga kao WSF datoteku.

Pripremite svoje skripte za Windows

Svaka dolje opisana skripta pokrenut će se s dvostrukim klikom sve dok datoteku imenujete .WSF ekstenzijom, a kôd ste u početku dodali i s:

I zatvorite kod sa:

WScript.Quit  

To osigurava da će Windows prepoznati jezik na kojem je napisana vaša skripta i pravilno obraditi.

1. Koristite Windows skripte za informacije o računalu

Windows nudi nešto što se naziva WMI ili Windows Management Instrumentation koji vašoj skripti nudi sučelje za pristup komponentama operativnog sustava. Zapravo možete pokrenuti upite protiv WMI-a da biste dobili trenutne žive informacije o vašem sustavu. Microsoft nudi potpuni popis svih kategorija upita koje možete postaviti protiv sustava.

Otkrili smo kako pomoću VBA koristiti podatke za dobivanje računalnih podataka u Excelu. Kako vidjeti sve podatke na računalu pomoću jednostavne skripte VBA u Excelu Kako vidjeti sve podatke na računalu pomoću jednostavnog Excela VBA Script Excel i 10 minuta rada pružit će vam više detaljne informacije o vašem računalu nego što ste ikada mislili da je moguće. Zvuči previše dobro da bi bilo istinito? To je Windows, ako ga znate koristiti. , ali to možete učiniti pomoću jednostavne VB skripte izvan programa Excel.

U ovom ćemo primjeru upitati sustav za informacije o procesoru (obitelj, proizvođač i broj jezgara), podatke o bateriji Kako uštedjeti život baterije u sustavu Windows 10 Power Throttling Kako uštedjeti život baterije u sustavu Windows 10 pomoću Power Throttling Microsofta uveo je ugađanje napajanja što Windows korisnicima daje veću kontrolu nad načinom na koji pojedine aplikacije upravljaju potrošnjom baterije dok rade u pozadini. (opis i status) i informacije o logičkom disku Kako uštedjeti prostor na disku u sustavu Windows 10 Kako uštedjeti prostor na disku u sustavu Windows 10 U pogledu zahtjeva za diskovnim prostorom, Windows 10 je u potpunosti nezgodan. Trošenje 20 GB na malom SSD disku može biti frustrirajuće. Srećom, možete smanjiti trag sustava Windows 10 i ponovo prikupiti dio tog prostora. (ime, preostali slobodni prostor i ukupna veličina). Zatim ćemo sve ove podatke poslati u CSV datoteku radi lakšeg pregleda.

Prvi korak je postavljanje FileSystemObject koji ćete koristiti za izlaz u CSV datoteku i stvaranje datoteke:

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

Sljedeći je korak postaviti WMI upit i izvršiti ga:

strQuery = "SELECT obitelj, proizvođač, NumberOfCores OD Win32_Processor" postavi colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Na kraju, sortirajte rezultate i podatke iznesite u CSV datoteku. Ako želite maštoviti, predgovorite to s nekoliko redaka kako biste poboljšali izgled izlazne datoteke:

oFile1.WriteLine "Informacije o procesoru" oFile1.WriteLine "------" Za svaki objResult u colResults strResults = "Obitelj:," + CStr (objResult.Family) oFile1.WriteLine strResults strResults = "Proizvođač:, + CStr (objResult.Manufacturer) oFile1.WriteLine strResults strResults = "Broj jezgara:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Next

Ako sada pokrenete svoj kod, izgleda izgled vašeg rezultata:

Za sljedeća dva odjeljka koda samo ćete ponoviti i promijeniti upit da biste potražili dodatne informacije. Evo upita o podacima o bateriji:

oFile1.WriteLine "" strQuery = "ODABIR Opis, status IZ Win32_Battery" Postavi colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informacije o bateriji" oFile1.WriteLine " ---- "Za svaki objResult u colResults strResults =" Status:, "+ CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Opis:, "+ CStr (objResult.Status) oFile1.WriteLine strResults Next

A evo sljedećeg odjeljka za upit logičkog diska:

oFile1.WriteLine "" strQuery = "Odaberite naziv, slobodni prostor, veličinu iz Win32_LogicalDisk" Postavi colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informacije o disku" oFile1.WriteLine "Informacije o disku" oFile1.WriteL ------ "'Identificirajte prostor logičkog diska za svaki objResult u colResults strResults =" Ime:, "+ CStr (objResult.Name) oFile1.WriteLine strResults strResults =" Slobodni prostor:, "+ CStr (objResult.FreeSpace ) oFile1.WriteLine strResults strResults = "Veličina diska:," + CStr (objResult.Size) oFile1.WriteLine strResults Next

Na kraju, ne zaboravite zatvoriti datoteku tako da zatvorite datoteku i postavite predmete na “Ništa”:

oFile1.Zatvori skup oFile1 = Ništa nije postavljeno colResults = Ništa strResults = ""

Stavite sav taj kôd u novu .WSF datoteku, pokrenite je, a evo kako će izgledati vaš izlaz:

Jednostavno zamijenite gore upite za sve druge računalne uređaje ili softver o kojem želite dobiti informacije i možete dobiti cjelovito izvješće o sustavu Kako stvoriti automatizirani sustav za izvješćivanje o zdravlju računala Kako stvoriti automatizirani sustav za izvješćivanje o zdravlju računala ručak kao vaš mobilni upozorava na važan tekst. SMS glasi: "Upozorenje kućnog računala: 3 pokušaja hakiranja." Ovo nije fikcija! Dopustite da vam pokažemo kako se to radi! bilo kada želite samo jednim klikom miša.

2. Zaustavite i pokrenite usluge

Doći će trenuci kada određene usluge imaju problema i zahtijevaju samo brzo ponovno pokretanje da bi se ponovo pravilno pokrenulo. To se posebno odnosi na informatičku tehnologiju Prije nego što studirate IT, znajte u što se upuštate prije nego što studirate IT, znajte što se uvodi u informatičku tehnologiju (IT) postala je tako rasprostranjen izbor karijere. Ali malo ljudi zapravo zna što je to IT i što uključuje njegova disciplina. kada ste prisiljeni pokrenuti poslužiteljski softver koji je ponekad pomalo ispravan.

Ako želite obrijati minutu ili nešto dalje od postupka ponovnog pokretanja usluge, samo pohranite sljedeću skriptu na neko prikladno mjesto. Zatražit će vas da upišete ime usluge koju želite ponovo pokrenuti i tada će to učiniti točno.

Budući da zaustavljanje i pokretanje usluga zahtijeva administrativne privilegije, na početak skripte morate staviti sljedeći kôd da biste skriptu povećali privilegije:

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

Nakon što je to učinjeno, dodajte ostatak koda za pokretanje okvira za unos za korisnički unos, pokrenite naredbeni prozor i pošaljite ga “neto zaustavljanje” i “naredbe neto starta”:

Postavite cmdShell = CreateObject ("WScript.Shell") strServiceName = Inputbox ("Inter servis za zaustavljanje", "Potreban unos") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "net stop" + strServiceName cmdShell SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "neto start" + strServiceName cmdShell.SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "Izlaz" cmdShell.SendKeys "Enter"

To je sve. Nema potrebe za lovom za alatom za usluge. Samo pokrenite ovu skriptu i zaustavite se i započnite bilo koju uslugu u sekundi.

3. Promijenite postavke registra, zadanu lozinku administratora

Sljedećom skriptu uništit ćemo dvije ptice jednim kamenom. Ova skripta pokazat će vam kako urediti registar 5 Windows 10 registra podešavanja za poboljšanje i otključavanje značajki 5 Windows 10 podešavanja registra za poboljšanje i otključavanje značajki Uređivač registra jedini je način da omogućite neke skrivene značajke sustava Windows 10. Ovdje ćemo vam pokazati jednostavne popravke poput omogućavanja mračne teme ili skrivanja mapa. s VB skriptu. Također će vam dati i skriptu koja će vam omogućiti postavljanje zadanih korisničkih imena i zaporki za Windows uređivanjem tih postavki registra.

Evo kako to radi. Prvo, kako uređivanje registra zahtijeva administratorska prava, morat ćete postaviti povećane privilegije za svoju skriptu:

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

Prvo pokrenite dva polja za unos da biste upitali korisnika koje korisničko ime i lozinku treba koristiti:

strUserName = Inputbox ("Unesite zadano korisničko ime", "Potreban unos") strPassword = Inputbox ("Unesite zadanu lozinku", "Unos je potreban")

Zatim postavite objekt ljuske i zapišite te vrijednosti u odgovarajuće ključeve registra:

Postavite wshShell = CreateObject ("WScript.Shell") wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" wshShell.RegWrite "HKLM \ SOFTWARE NOK \ Winlogon \ DefaultPassword ", strPassword," REG_SZ "Postavi wshShell = Ništa

I to je sve. “RegWrite” metoda omogućuje vam pisanje bilo koje vrijednosti u bilo koji registarski ključ pomoću VB Windows skripte. Sve što morate znati je odgovarajući put.

Pokrenite skriptu i odgovorite na upute.

Vrijednosti koje unesete bit će umetnute pravo u postavke registra koje ste postavili u skripti.

Poigrajte se sa skriptu i prilagodite je svom ukusu. Možete urediti sve ključeve registra koji vam se sviđaju, pa budite kreativni!

4. Ponovno postavite mrežnu vezu

Poništavanje mrežne veze pomoću skripta VB Kako napisati skriptu za Windows za promjenu mrežnih postavki u pokretu Kako napisati skriptu za Windows kako biste promijenili mrežne postavke u letu U mnogim uredima ili radnim okruženjima možda ćete trebati redefinirati mrežne postavke da biste se povezali na različite mreže. Dolazio sam se u ovoj situaciji dovoljno često i toliko sam se umorio od pregledavanja ... nešto što smo već prije pokrivali ovdje, na MakeUseOf-u. Sljedeća verzija toga je zapravo smanjena i mnogo jednostavnija za implementaciju. Umjesto da zatražite pojedinačne mrežne kartice, resetira sve vaše aktivne veze koje bi, nadamo se, riješile sve mrežne probleme koje možda imate..

Kao i kod ostalih skripti koje trebaju administratorska prava, morat ćete dodati odjeljak na početku za povišene privilegije. Kopirajte taj kôd iz gornje skripte.

Zatim stvorite WMI objekt i zatražite ga na popisu omogućenih mrežnih adaptera na vašem sustavu:

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

Na kraju, prođite kroz sve omogućene adaptere i resetirajte ih:

Za svaki objekat u kolumnama objItem.Disable WScript.Sleep 1000 objItem.Enable Next

Ovo će resetirati sve vaše aktivne mrežne adaptere 8 CMD naredbe za upravljanje (bežičnim) mrežama u sustavu Windows 8 CMD naredbe za upravljanje (bežičnim) mrežama u sustavu Windows Ako želite potpunu i apsolutnu kontrolu nad mrežom, morat ćete početi koristiti Komandni redak. Evo najkorisnijih naredbi za upravljanje i rješavanje problema s kućnom mrežom. , što je često najbrži način za rješavanje dosadnih problema s mrežom. Ovu skriptu držite pri ruci i isprobajte je prvo kad imate sporu mrežu ili druge čudne mrežne probleme.

5. Ping uređaji ili web stranice

Zadnji put sam spremio svoju omiljenu skriptu VB prozora. Ovo sam zapravo postavio kao zadani zadatak na svom kućnom računalu i pokrenuo ga nekoliko puta dnevno samo da provjerim je li moja web lokacija aktivna 3 načina kako shvatiti je li vaša omiljena web stranica 3 načina kako shvatiti ako vaš Omiljena web stranica je oborena Postoji nekoliko web stranica koje su posvećene jednostavno odgovoriti na osnovno pitanje koje ćete na kraju postaviti: "Je li ovo web mjesto dolje?" Ovdje imamo tri ove web stranice, a sve su…. Imam skriptu e-poštom ako je web mjesto manje. Možete koristiti istu skriptu za nadgledanje važnih poslužitelja ili računala na vašoj mreži i slanje e-pošte svaki put kad vam skripta ne može poslati ping uređaj.

Prvo postavite skriptu za cilj koji želite pingirati, stvorite objekt ljuske, a zatim pokrenite naredbu ping.

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

Upotrijebite izjavu Select Case za pokretanje rezultata Pinga i reagiranje u skladu s tim. Ako se rezultati vrate na nulu, tada znate da je web mjesto (ili poslužitelj) na mreži i ne morate ništa raditi. Ako se vrati a “1” tada ping nije uspio i morate nešto poduzeti. U mom slučaju šaljem e-poštu pomoću Windows CDO predmeta:

Odaberite Case Ping Case 0 Case 1 Postavi objMessage = CreateObject ("CDO.Message") Postavi objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Postavi Flds = objConfig.Fields s Flds .Item ("http: // schemas.microsoft.com/cdo/configuration/smtpusessl ") = Istina .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 .Ažuriraj kraj s objMessage setom .Configuration = objConfig .Subject = "Vaša je web lokacija offline" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hej, vaša web stranica je offline." .Prenesite kraj s odabirom kraja

Nakon što se skripta pokrene i ne može se pingati uređaj ili web stranica, dobivate trenutnu poruku.

To je brzo i jednostavno, a svako učinkovito!

Korištenje VB Windows skripti za kontrolu vašeg računala

Ovo je samo nekoliko primjera nekih cool stvari koje možete učiniti pomoću VB skripta za pojednostavljenje upotrebe računala. Puno je stvari koje možete napraviti poput automatiziranih sigurnosnih kopija s VB i Synctoy Kako stvoriti alat za sigurnosnu kopiju podataka pomoću SyncToy i VB skripte Kako stvoriti alat za sigurnosnu kopiju podataka pomoću SyncToy i VB skripte Ovdje smo pokrili mnoštvo sigurnosnih rješenja na MUO-u, i sva su ta rješenja sjajna, ali ako radite u okruženju koje je oprezno oko besplatnih softverskih paketa trećih strana ili kompanija ..., automatiziranje naredbi telnet Kako automatizirati naredbe Telnet koristeći VB skriptu Kako automatizirati naredbe Telnet Korištenje serijskih zadataka VB Script Writing i novije Windows skripte aktivnost je koja doista čini većinu načina na koji velika većina mrežnih i sistemskih administratora brže obavlja svoj posao i pojednostavljuje ono što bi bilo ... ili čak otvara i kontrolira prozore aplikacija 3 načina Otvaranje aplikacija i Windowsa maksimizirano pomoću VB skripte [Windows] 3 načina za otvaranje aplikacija i operacijskog sustava maksimiziran VB skriptu [Windows] Ako postoji jedna stvar koju volim raditi, to je pisanje VB skripte. Bilo da se radi o datoteci Windows Script ili VBA skriptu unutar aplikacije, skriptiranje pruža mogućnost dodavanja funkcionalnosti aplikacijama ... .

Koje su neke stvari koje ste automatizirali na računalu pomoću skripte za Windows? Pišete li svoje pomoću VB ili upotrebljavate neki drugi alat poput PowerShell Powershell Cmdlets koji će poboljšati vaše Windows Admin Skills Powershell Cmdlets koji će poboljšati vaše Windows Admin Skills Powershell je jednaki dijelovi alata naredbenog retka i jezika skriptiranja. Pruža vam mogućnost automatizacije vašeg računala pomoću istih naredbi koje koristite za njegovo upravljanje. ?