5 Scripturi utile Windows VB pentru automatizarea utilizării computerului

Indiferent dacă sunteți un analist IT sau un utilizator obișnuit al computerului, există multe sarcini pe care ar trebui să le faceți frecvent pe PC. Scripturile VB sunt scalate în programele Visual Basic care servesc ca script-uri Windows care pot face orice, de la extragerea informațiilor importante despre hardware-ul computerului, la oprirea și pornirea serviciilor sau resetarea cardului de rețea.

Este posibil să învățați cum să faceți toate aceste lucruri individuale în mod normal, sau să le faceți folosind fișiere batch. Dar scripturile VB sunt mai bune decât scripturile batch Better Than Batch: Un Tutorial Windows Scripting Host mai bun decât lot: Un Tutorial pentru Windows Scripting Host Citiți mai multe pentru că sunt mai flexibile. Dacă stocați următoarele scripturi într-un loc obișnuit la care ajungeți rapid când aveți nevoie, puteți realiza aceste sarcini într-o fracțiune de timp. Doar faceți dublu clic pe script, răspundeți la o solicitare și sarcina sa terminat.

Uitați-vă la următoarele scripturi VB Windows și, dacă vedeți vreunul pe care doriți să-l utilizați, copiați și lipiți script-ul în Notepad sau alte instrucțiuni de codificare 7 Cel mai bun instrument de luare a notițelor pentru programatori 7 Cele mai bune instrumente de luare a notei pentru programatori Abilitățile bune de luare de note sunt esențiale pentru a rămâne organizat în calitate de programator. Iată cele mai bune aplicații care iau notițe și care au în vedere coderii și dezvoltatorii. Citiți mai mult și salvați-l ca fișier WSF.

Pregătiți-vă scripturile Windows

Fiecare dintre scripturile detaliate mai jos va fi executat doar cu un dublu clic, atâta timp cât ați numit fișierul cu extensia .WSF și, de asemenea, ați închis codul la început cu:

Acest lucru asigură că Windows va recunoaște limba în care este scris scriptul dvs. și îl va procesa corect.

1. Utilizați Windows Scripts pentru informații despre computer

Windows oferă ceva numit WMI sau Windows Management Instrumentation, care oferă scriptului dvs. o interfață pentru a accesa componentele sistemului de operare. De fapt, puteți rula interogări împotriva WMI pentru a obține informații live despre sistemul dvs. Microsoft oferă o listă completă a tuturor categoriilor de interogări pe care le puteți face împotriva sistemului.

Ne-am acoperit cum să utilizați VBA pentru a trage informații de calculator în Excel Cum să vizualizați toate informațiile PC-ul dvs. Folosind un simplu Excel VBA Script Cum să vizualizați toate informațiile PC-ul dvs. Folosind un Excel Excel VBA Script Excel și 10 minute de lucru vă va oferi mai mult informații detaliate despre computerul dvs. decât ați crezut vreodată posibil. Sună prea bine pentru a fi adevărat? Asta e Windows, dacă știi cum să o folosești. Citiți mai multe, dar puteți face același lucru folosind un simplu script VB în afara Excel.

In acest exemplu vom interoga sistemul de informatii despre procesor (familie, producator si numar de nuclee), informatii despre baterii Cum sa economisim viata bateriei in Windows 10 cu puterea de stingere a puterii Cum sa economisim viata bateriei in Windows 10 cu putere de stingere a puterii Microsoft introduce presiunea de putere care oferă utilizatorilor Windows mai mult control asupra modului în care aplicațiile individuale gestionează consumul de baterii în timp ce rulează în fundal. Citește mai mult (descriere și stare) și informații despre discul logic Cum se salvează spațiul pe disc în Windows 10 Cum se salvează spațiul pe disc în Windows 10 În ceea ce privește cerințele privind spațiul de pe disc, Windows 10 este absolut lacom. Pierderea de 20 GB pe un SSD mic poate fi frustrant. Din fericire, puteți reduce amprenta Windows 10 și recupera o parte din acel spațiu. Citiți mai multe (nume, spațiu liber rămas și dimensiune globală). Apoi vom emite toate aceste informații într-un fișier CSV pentru o vizualizare ușoară.

Primul pas este să configurați FileSystemObject pe care îl veți utiliza pentru a ieși în fișierul CSV și pentru a crea fișierul:

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

Următorul pas este să configurați interogarea WMI și să o executați:

strQuery = "SELECT Familie, Producător, NumberOfCores FROM Win32_Processor" Setați colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

În cele din urmă, sortați rezultatele și extrageți informațiile în fișierul CSV. Dacă doriți să fiți fantezie, faceți acest lucru cu câteva linii pentru a vă ajuta să faceți fișierul de ieșire să arate mai bine:

oFile1.WriteLine "Informații procesor" oFile1.WriteLine "------" Pentru fiecare objResult În colResults strResults = "Familie:" + CStr (objResult.Family) oFile1.WriteLine strResultări strResults = "Producător: (objResult.Manufacturer) oFile1.WriteLine strResultări strResults = "Număr de miezuri:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Următorul

Dacă executați codul dvs. acum, acesta este aspectul dvs. de ieșire:

Pentru următoarele două secțiuni ale codului, veți repeta și modificați interogarea pentru a căuta informații suplimentare. Iată interogarea despre bateria:

oFile1.WriteLine "" strQuery = "SELECT Descriere, Stare FROM Win32_Battery" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informații despre baterie" oFile1.WriteLine "- ---- "pentru fiecare obiect în colResults strResults =" Status: ", + CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Descriere: "+ CStr (objResult.Status) oFile1.WriteLine strResults

Iată următoarea secțiune pentru interogarea logică a discului:

oFile1.WriteLine "" strQuery = "Selectați numele, FreeSpace, Dimensiunea din Win32_LogicalDisk" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine " ------ "" Identificați spațiul logic al discului pentru fiecare obieResult în colResults strResults = "Nume:," + CStr (objResult.Name) oFile1.WriteLine strResults strResults = "Spațiu liber:" + CStr (objResult.FreeSpace ) oFile1.WriteLine strResultări strResults = "Dimensiune disc:", + CStr (objResult.Size) oFile1.WriteLine strResults Următorul

În sfârșit, nu uitați să închideți codul închizând fișierul și setând obiectele la “Nimic”:

oFile1.Close Set oFile1 = Nimic setat colResults = Nimic strResults = ""

Puneți tot codul în fișierul dvs. nou .WSF, executați-l și iată ce va arăta ieșirea dvs.:

Doar swap până interogările de mai sus pentru orice alte dispozitive de calculator sau software-ul pe care doriți să obțineți informații despre, și puteți obține un raport complet de sistem Cum Pentru a crea un sistem automat de raportare a sănătății PC Cum de a crea un sistem automat de raportare a sănătății PC Sunteți afară având masa de prânz în timp ce telefonul dvs. mobil vă avertizează asupra unui text important. SMS-ul citește: "Alertă la domiciliu: 3 încercări de hacking." Aceasta nu este ficțiune! Să vă arătăm cum să faceți asta! Citește mai multe ori când îți place doar cu un clic al mouse-ului.

2. Opriți și porniți serviciile

Vor exista momente în care anumite servicii au probleme și necesită doar o repornire rapidă pentru a începe să ruleze din nou în mod corespunzător. Acest lucru este valabil mai ales în IT Înainte de a studia IT, știți ce intră în înainte de a studia IT, știți ce intri în tehnologia informației (IT) a devenit o alegere de carieră atât de răspândită. Dar puțini oameni știu de fapt ce este IT și ce disciplină implică. Citește mai mult când ești forțat să rulați un software de tip server care este uneori un pic buggy.

Dacă doriți să radeți un minut sau mai puțin de procesul de repornire a serviciului, stocați doar următorul script într-un loc convenabil. Acesta vă va cere să introduceți numele serviciului pe care doriți să-l reporniți și apoi veți face exact acest lucru.

Deoarece serviciile de oprire și de pornire necesită privilegii administrative, trebuie să plasați codul de mai jos la începutul scriptului pentru a oferi privilegii elevului dvs. scrise:

Dacă nu WScript.Arguments.Named.Exists ("ridica") Apoi CreateObject ("Shell.Application") ShellExecute WScript.FullName _, "" "& WScript.ScriptFullName &" "/ elevate", " runas ", 1 WScript.Quit End Dacă

Odată ce acest lucru este făcut, adăugați restul codului pentru a rula caseta de intrare pentru intrarea utilizatorului, lansați fereastra de comandă și trimiteți-o “net stop” și “comenzile de pornire netă”:

Setați cmdShell = CreateObject ("WScript.Shell") strServiceName = Căsuță de intrare ("Inter Service to Stop", "Input Required") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "stop net" + strServiceName cmdShell. SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "net start" + strServiceName cmdShell.SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "Exit" cmdShell.SendKeys "Enter"

Cam despre asta e. Nu este nevoie să vânați pentru instrumentul de servicii. Doar rulați acest script și opriți și începeți orice serviciu în câteva secunde.

3. Modificați setările registrului, parola de administrator implicită

Cu următorul scenariu, vom ucide două păsări cu o singură piatră. Acest script vă va arăta cum să editați registrul 5 Windows 10 Registry Tweaks pentru îmbunătățirea și deblocarea caracteristicilor 5 Windows 10 Registry Tweaks pentru îmbunătățirea și deblocarea Caracteristici Editorul de registru este singura modalitate de a activa unele dintre caracteristicile ascunse ale Windows 10. Aici vă vom arăta ușor de tweaks cum ar fi activarea temă întunecată sau ascunderea folderelor. Citiți mai multe cu un script VB. De asemenea, vă va oferi un script care vă va permite să setați numele de utilizator și parola implicite pentru Windows editând setările acelei regiștri.

Iată cum funcționează. În primul rând, deoarece editarea regiștrilor necesită drepturi de administrator, va trebui să configurați privilegii crescute pentru scriptul dvs.:

Dacă nu WScript.Arguments.Named.Exists ("ridica") Apoi CreateObject ("Shell.Application") ShellExecute WScript.FullName _, "" "& WScript.ScriptFullName &" "/ elevate", " runas ", 1 WScript.Quit End Dacă

Mai întâi rulați două casete de intrare pentru a întreba utilizatorul ce nume de utilizator și parola trebuie să folosească:

strUserName = Inputbox ("Introduceți numele de utilizator implicit", "Input Required") strPassword = Inputbox ("Introduceți parola implicită", "Input Required")

Apoi, configurați obiectul shell și scrieți aceste valori la cheile de registry corespunzătoare:

Setați 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 "Set wshShell = Nimic

Și asta e totul pentru asta. “RegWrite” vă permite să scrieți orice valoare pentru orice cheie de registry utilizând un script VB Windows. Tot ce trebuie să știți este calea potrivită.

Rulați scriptul și răspundeți la solicitări.

Valorile pe care le introduceți vor fi inserate direct în setările de registry pe care le-ați configurat în script.

Joacă-te cu scenariul și optimizați-l după preferințele dvs. Puteți edita oricare dintre cheile de registry dorite, astfel încât să fii creativă!

4. Resetați conexiunea la rețea

Resetarea conexiunii la rețea utilizând script-uri VB Cum se scrie un script Windows pentru a modifica setările de rețea pe zbor Cum să scrieți un script Windows pentru a modifica setările de rețea pe zbor În multe birouri sau medii de lucru, poate fi necesar să redefiniți setările de rețea pentru a vă conecta la rețele diferite. M-am trezit destul de des în această situație și m-am săturat să navighez la ... Citește mai mult este ceva pe care l-am acoperit până acum aici la MakeUseOf. Următoarea versiune a acestui lucru este de fapt redusă și mult mai simplă de implementat. În loc de a solicita carduri de rețea individuale, aceasta resetează toate conexiunile active, care, sperăm, ar rezolva orice probleme de rețea pe care le aveți.

Ca și în cazul altor scripturi care au nevoie de drepturi de administrator, va trebui să adăugați secțiunea la început pentru privilegii ridicate. Copiați codul din scriptul de mai sus.

Apoi, creați obiectul WMI și căutați-l pentru o listă de adaptoare de rețea activate pe sistemul dvs.:

strComputer = "." Setați objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Setați colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapter Unde NetEnabled =

În cele din urmă, treceți prin toate adaptoarele activate și resetați-le:

Pentru fiecare obiect în colitems objItem.Disable WScript.Sleep 1000 objItem.Enable Next

Aceasta va reseta toate adaptoarele de rețea active 8 Comenzi CMD pentru administrarea rețelelor (wireless) în Windows 8 Comenzi CMD pentru administrarea rețelelor (wireless) în Windows Dacă doriți un control complet și absolut asupra rețelei dvs., atunci va trebui să începeți să utilizați Comandă de comandă. Iată cele mai utile comenzi pentru gestionarea și depanarea rețelei de domiciliu. Citiți mai multe, care este adesea cel mai rapid mod de a rezolva problemele de rețea enervante. Păstrați acest script la îndemână și încercați mai întâi de fiecare dată când aveți o rețea lentă sau alte probleme ciudate de rețea.

5. dispozitive ping sau site-uri web

Mi-am salvat ultimul script de Windows VB preferat. Aceasta este una pe care am stabilit de fapt ca o sarcină programată pe computerul meu de acasă și l-am rula de mai multe ori pe zi doar pentru a verifica dacă site-ul meu este activ 3 moduri de a concepe dacă site-ul dvs. preferat este în jos 3 moduri de a afla dacă dvs. Site-ul favorit este jos Există câteva site-uri care sunt dedicate pur și simplu pentru a răspunde la întrebarea de bază pe care o veți întreba: "Este acest site în jos?" Aici, avem trei dintre aceste site-uri web, și toate sunt ... Citește mai mult. Am scriptul meu de e-mail dacă site-ul este în jos. Puteți utiliza același script pentru a monitoriza servere sau computere importante din rețeaua dvs. și trimiteți-vă e-mailuri oricând scriptul dvs. nu poate pinge dispozitivul.

Mai întâi, setați scriptul pentru țintă pe care doriți să îl pingați, creați obiectul shell și executați comanda ping.

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

Utilizați o instrucțiune Select Case pentru a rula prin rezultatele Ping și a răspunde corespunzător. Dacă rezultatele revin ca zero, atunci știți că site-ul (sau serverul) este online și nu trebuie să faceți nimic. Dacă returnează a “1” ping-ul a eșuat și trebuie să faceți ceva. În cazul meu, trimit un e-mail utilizând obiectul Windows CDO:

Selectați cazul Case Ping 0 Cazul 1 Setați objMessage = CreateObject ("CDO.Message") Setați objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Setați 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 .Închidere definitivă cu setul de obiecte objMessage .Configuration = objConfig .Subject = "Site-ul dvs. este offline" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hei, site-ul dvs. este offline." .Send End to End Selectați

Odată ce scriptul rulează și nu poate pinge dispozitivul sau site-ul web, primiți un mesaj instant.

Este rapid și ușor și eficient!

Folosind Scripturi Windows VB pentru a controla computerul

Acestea sunt doar câteva exemple ale unor lucruri interesante pe care le puteți face cu scriptingul VB pentru a eficientiza utilizarea computerului. Există o mulțime de alte lucruri pe care le puteți face ca backup-uri automate cu VB și Synctoy Cum Pentru a crea un instrument de backup de date Cu SyncToy & VB Script Cum de a crea un instrument de backup de date cu SyncToy & VB Script Am acoperit o mulțime de soluții de backup aici la MUO, iar toate aceste soluții sunt minunate, dar dacă lucrați într-un mediu care este precaut cu privire la pachetele gratuite de software terță parte sau la companii ... Citiți mai multe, automatizarea comenzilor telnet Cum să automatizați comenzile Telnet utilizând Scriptul VB Cum se automatizează Comenzi Telnet Folosind Script Script Writing work batch și mai recent Script-uri Windows este o activitate care face într-adevăr cea mai mare parte a modului în care marea majoritate a administratorilor de rețea și de sistem își fac mai rapid locurile de muncă și simplifică ceea ce ... Citește mai mult sau chiar deschide și controla Windows 3 Moduri de deschidere a aplicațiilor și Windows maximizate cu VB Script [Windows] 3 moduri de a deschide aplicații și Windows maximizate cu VB Script [Windows] Dacă există un lucru care îmi place pentru a face, este scris scripturi VB. Fie că este vorba de un fișier Windows Script sau de un script VBA în cadrul unei aplicații, scripting-ul oferă posibilitatea de a adăuga funcționalitate aplicațiilor ... Citește mai mult .

Care sunt câteva dintre lucrurile pe care le-ați automatizat pe computer cu un script Windows? Vrei să scriu a ta utilizând VB sau să folosești alt instrument cum ar fi PowerShell Powershell Cmdlets, care îți vor îmbunătăți abilitățile de administrare Windows Powershell Cmdlets, care îți vor îmbunătăți abilitățile de administrare Windows Powershell este un instrument de linie egal pentru părți de comandă și limbaj de scripting. Vă oferă posibilitatea de a automatiza computerul prin aceleași comenzi pe care le utilizați pentru a le administra. Citeste mai mult ?

Explorați mai multe despre: Automatizarea calculatoarelor, Scripting.