5 Uporabni skripti VB za avtomatizacijo uporabe računalnika

Oglas

Ne glede na to, ali ste IT analitik ali običajen uporabnik računalnika, boste morda morali v svojem računalniku pogosto opraviti številne naloge. Skripti VB so pomanjšani po programih Visual Basic, ki služijo kot skripti sistema Windows, ki lahko naredijo karkoli od naleta pomembne informacije o strojni opremi vašega računalnika, zaustavitev in zagon storitev ali ponastavitev omrežja kartica.

Lahko se naučite, kako vse te posamezne stvari narediti na običajen način ali pa jih uporabite s pomočjo paketnih datotek. Ampak VB skripti so boljši od paketnih skript Bolje kot šarža: Vadnica za gostitelja skripta za Windows Preberi več ker so bolj prilagodljivi Če shranite naslednje skripte na skupno mesto, do katerega hitro pridete, ko ga potrebujete, lahko te naloge opravite v delčku časa. Samo dvokliknete skript, odgovorite na poziv in naloga je končana.

Oglejte si naslednje skripte VB Windows in če vidite, ki bi jih radi uporabili, preprosto kopirajte in prilepite skript v Beležnica ali drugo orodje za kodiranje beležk

7 najboljših aplikacij za programatorje in kodirnikeOstati organiziran kot programer je lahko težko! Tu so najboljše aplikacije za zapisovanje, oblikovane s kodirniki in razvijalci. Preberi več in ga shranite kot datoteko WSF.

Pripravite svoje skripte za Windows

Vsak spodaj opisan skript se bo izvajal z dvojnim klikom, dokler datoteko poimenujete z razširitvijo .WSF, in na začetku kodo priložite tudi:

In kodo zaprite z:

  WScript. Prenehati. 

To zagotavlja, da bo Windows prepoznal jezik, v katerega je napisan vaš skript, in ga pravilno obdelal.

1. Uporabite skripte Windows za informacije o računalniku

Windows ponuja nekaj, kar imenujemo WMI ali Windows Management Instrumentation, ki omogoča vašemu skriptu vmesnik za dostop do komponent operacijskega sistema. Dejansko lahko poženete poizvedbe proti WMI, da pridobite trenutne informacije v živo o vašem sistemu. Microsoft ponuja celoten seznam vseh kategorije poizvedb lahko proti sistemu.

Razkrili smo, kako uporabljati VBA podatke računalnika potegnite v Excel Kako videti vse podatke o računalniku z uporabo skripta VBA Simple ExcelExcel in 10 minut dela vam bodo dali podrobnejše informacije o vašem računalniku, kot ste se kdaj zdeli možni. Sliši se predobro, da bi bilo resnično? To je Windows, če ga znate uporabljati. Preberi več , vendar lahko to isto storite s preprostim skriptom VB zunaj Excela.

V tem primeru bomo poizvedovali sistem o podatkih o procesorju (družina, proizvajalec in število jeder), informacije o bateriji Kako rešiti življenjsko dobo baterije v operacijskem sistemu Windows 10 z napajanjemMicrosoft je predstavil dušenje moči, ki uporabnikom sistema Windows omogoča boljši nadzor nad tem, kako posamezne aplikacije ravnajo s porabo baterije med delovanjem v ozadju. Preberi več (opis in status), in informacije o logičnem disku Kako prihranite prostor na disku v operacijskem sistemu Windows 10Glede na potrebe po diskovnem prostoru je Windows 10 naravnost brezsrčen. Zapravljanje 20 GB na majhnem SSD disku je lahko moteče. Na srečo lahko zmanjšate odtis sistema Windows 10 in si povrnete del tega prostora. Preberi več (ime, preostali prosti prostor in skupna velikost). Nato bomo vse te podatke poslali v datoteko CSV za enostavno ogled.

Prvi korak je, da nastavite FileSystemObject, ki ga boste uporabili za izhod v datoteko CSV, in ustvarite datoteko:

Nastavite oFSO = CreateObject ("Skriptiranje. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Nastavi oFile1 = oFSO.CreateTextFile (sFile1, 1)

Naslednji korak je nastavitev poizvedbe WMI in izvedba:

strQuery = "SELECT družina, proizvajalec, številoOfCores od Win32_Processor" Nastavite colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Na koncu razvrstite rezultate in podatke iznesite v datoteko CSV. Če želite biti domišljiji, to predgovorite z nekaj vrsticami, da bo vaša izhodna datoteka videti lepša:

oFile1.WriteLine "Informacije o procesorju" oFile1.WriteLine "" Za vsak objResult v colResults strResults = "Družina:," + CStr (objResult. Družina) oFile1.WriteLine strResults strResults = "Proizvajalec:," + CStr (objResult. Proizvajalec) oFile1.WriteLine strResults strResults = "Število jeder:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResultati. Naslednji

Če zdaj zaženete kodo, bo izgledal vaš izhod:

V naslednjih dveh razdelkih kode boste ponovili in spremenili poizvedbo in poiskali dodatne informacije. Tu je naslednja poizvedba o bateriji:

oFile1.WriteLine "" strQuery = "IZBERI opis, stanje IZ Win32_Battery" Nastavite colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informacije o bateriji" oFile1.WriteLine "" Za vsak objResult v colResults strResults = "Status:," + CStr (objResult. Opis) oFile1.WriteLine strResults strResults = "Opis:," + CStr (objResult. Stanje) oFile1.WriteLine strResultati. Naslednji

In tukaj je naslednji razdelek za poizvedbo o logičnem disku:

oFile1.WriteLine "" strQuery = "Izberite ime, FreeSpace, velikost iz Win32_LogicalDisk" Nastavite colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informacije o disku" oFile1.WriteLine "" "Prepoznajte prostor za logični disk. Za vsak objResult In colResults strResults = "Ime:," + CStr (objResult. Ime) oFile1.WriteLine strResults strResults = "Prosti prostor:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Velikost diska:," + CStr (objResult. Velikost) oFile1.WriteLine strResults. Naslednji

Na koncu ne pozabite zapreti kode, tako da zaprete datoteko in predmete nastavite na "Nič":

oFile1.Zaprite nastavitev oFile1 = Nič. set colResults = Nič. strResults = ""

Vso to kodo vstavite v novo datoteko .WSF, zaženite jo in tukaj bo videti vaš izhod:

Samo zamenjajte zgornja vprašanja za katere koli druge računalniške naprave ali programsko opremo, o kateri želite pridobiti informacije, in lahko dobite popolno sistemsko poročilo Kako ustvariti samodejni sistem poročanja o zdravju računalnikaKosilo ste, ko vas mobilni telefon opozori na pomembno besedilo. SMS sporočilo se glasi: "Opozorilo domačega računalnika: 3 poskusi taksista." To ni fikcija! Naj vam pokažemo, kako to storiti! Preberi več kadarkoli želite s samo klikom miške.

2. Ustavite in začnite storitve

Prišli bodo časi, ko bodo nekatere težave imele težave in zahtevajo samo hiter ponovni zagon, da se spet pravilno začne izvajati. To je še posebej res v IT Preden študirate IT, vedite, kaj se vanje zapeljeteInformacijska tehnologija (IT) je postala tako razširjena izbira kariere. Toda le malo ljudi dejansko ve, kaj je to IT in kaj vključuje njegova disciplina. Preberi več ko boste prisiljeni zagnati strežniško programsko opremo, ki je včasih malo hrošča.

Če želite obrisati minuto ali tako izven postopka ponovnega zagona storitve, shranite naslednji skript na neko mesto. Pozvani boste, da vtipkate ime storitve, ki jo želite znova zagnati, nato pa boste naredili točno to.

Ker zaustavitev in zagon storitev zahteva skrbniške pravice, morate na začetek skripta postaviti naslednjo kodo, če želite dati svoj skript povišane privilegije:

Če ni WScript. Argumenti. Imenovana. Obstaja ("povzdigni") Nato ustvariObject ("Shell." ShellExecute WScript. FullName _ in WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Prenehati. Konec Če

Ko to storite, dodajte preostalo kodo, da zaženete polje za vnos za uporabnikov vnos, zaženite ukazno okno, in mu pošljite "neto stop" in "neto start ukazi":

Nastavite cmdShell = CreateObject ("WScript. Lupina ") strServiceName = Inputbox ("Inter Service to Stop", "Vnos potreben") cmdShell Zaženite "cmd.exe" WScript Spanje 1000 cmdShell. SendKeys "neto stop" + strServiceName. cmdShell SendKeys "{Enter}" WScript Spanje 1000 cmdShell. SendKeys "neto start" + strServiceName. cmdShell SendKeys "{Enter}" WScript Spanje 1000 cmdShell. SendKeys "Exit" cmdShell SendKeys "{Enter}"

To je vse. Ni treba loviti za orodjem storitev. Samo zaženite ta skript in se v nekaj sekundah ustavite in začnite katero koli storitev.

3. Spremenite nastavitve registra, privzeto geslo skrbnika

Z naslednjim scenarijem bomo z enim kamnom ubili dve ptici. Ta skript vam bo pokazal, kako to storiti uredite register 5 Popravljanje registra sistema Windows 10 za izboljšanje & odklepanje funkcijEditor urejevalnika registra lahko omogoči nekatere skrite funkcije sistema Windows 10. Tukaj vam bomo prikazali preproste nastavitve, kot je omogočanje temne teme ali skrivanje map. Preberi več s skriptom VB. Prav tako vam bo dal skript, ki vam bo omogočil, da z urejanjem teh nastavitev registra nastavite privzeto uporabniško ime in geslo za Windows.

Tukaj je opisano, kako deluje Prvič, ker urejanje registra zahteva skrbniške pravice, boste morali za svoj skript nastaviti višje privilegije:

Če ni WScript. Argumenti. Imenovana. Obstaja ("povzdigni") Nato ustvariObject ("Shell." ShellExecute WScript. FullName _ in WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Prenehati. Konec Če

Najprej zaženite dva polja za vnos, da uporabnika vprašate, katero uporabniško ime in geslo naj uporablja:

strUserName = Inputbox ("Vnesite privzeto uporabniško ime", "Vnos potreben") strPassword = Inputbox ("Vnesite privzeto geslo", "Vnos potreben")

Nato nastavite objekt lupine in te vrednosti zapišite v ustrezne registrske ključe:

Nastavite wshShell = CreateObject ("WScript. Lupina ") 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" Nastavi wshShell = Nič

In to je vse. Metoda »RegWrite« omogoča pisanje poljubne vrednosti v kateri koli registrski ključ s pomočjo skripta VB Windows. Vse kar morate vedeti je ustrezna pot.

Zaženite skript in odgovorite na pozive.

Vnesene vrednosti bodo vstavljene neposredno v nastavitve registra, ki ste jih nastavili v skriptu.

Poigrajte se s skriptom in jo prilagodite po svojih željah. Lahko uredite poljubne registrske ključe, ki so vam všeč, zato bodite kreativni!

4. Ponastavite omrežno povezavo

Ponastavitev omrežne povezave s skriptom VB Kako napisati skript za Windows, da spremenite omrežne nastavitve v letuV mnogih pisarnah ali delovnih okoljih boste morda morali na novo določiti omrežne nastavitve, da se povežete z različnimi omrežji. V tej situaciji sem se znašel dovolj pogosto in se tako naveličal brskati po ... Preberi več je nekaj, kar smo že zajemali tukaj v MakeUseOf. Naslednja različica tega je dejansko zmanjšana in veliko enostavnejša za izvedbo. Namesto da bi zahteval posamezne omrežne kartice, ponastavi vse vaše aktivne povezave, ki bi upale rešiti vse težave z omrežjem.

Kot pri drugih skriptah, ki potrebujejo skrbniške pravice, boste tudi pri povišanih privilegijih morali na začetku dodati razdelek. Kopirajte to kodo iz zgornjega skripta.

Nato ustvarite objekt WMI in ga poiščite za seznam omogočenih omrežnih adapterjev v vašem sistemu:

strComputer = "." Nastavite objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Nastavite colItems = objWMIService. ExecQuery (_ "IZBERI * IZ Win32_NetworkAdapter, kjer je NetEnabled = 'True'")

Na koncu preglejte vse omogočene adapterje in jih ponastavite:

Za vsak objekt v stolpcih objItem. Onemogoči WScript. Spanje 1000 objItem. Omogoči Naslednji

To bo ponastavilo vse vaše aktivni omrežni adapterji 8 ukazov CMD za upravljanje brezžičnih omrežij v sistemu WindowsZa nadzor vašega omrežja Wi-Fi uporabite ukazni poziv. Tu so najbolj uporabni ukazi za odpravljanje težav z domačim omrežjem. Preberi več , ki je pogosto najhitrejši način za reševanje nadležnih težav z omrežjem. Naj bo ta scenarij priročen in ga najprej preizkusite, kadar imate počasno omrežje ali druge čudne težave z omrežjem.

5. Ping naprave ali spletne strani

Zadnjič sem shranil svoj najljubši skript VB Windows. To sem dejansko postavil kot načrtovano nalogo na domačem računalniku in jo sprožil večkrat na dan preverite, ali je moje spletno mesto aktivno 3 načine, kako ugotoviti, ali je vaše najljubše spletno mesto okvarjenoObstaja nekaj spletnih strani, ki so namenjene preprosto odgovoru na osnovno vprašanje boste na koncu vprašali: "Ali je to spletno mesto propadlo?" Tu imamo tri od teh spletnih strani, in to so vse ... Preberi več . Imam scenarij, ki mi ga pošlje po e-pošti. Ta isti skript lahko uporabite za spremljanje pomembnih strežnikov ali računalnikov v vašem omrežju in pošiljanje e-pošte, kadar vaš skript ne more shraniti naprave.

Najprej nastavite skript za cilj, ki ga želite pingirati, ustvarite objekt lupine in nato zaženite ukaz ping.

strTarget = "topsecretwriters.com" Nastavite WshShell = WScript. CreateObject ("WScript. Lupina ") Ping = WshShell Zaženi ("ping -n 1" & strTarget, 0, res)

Uporabite stavek Izberi primer, če želite zagnati rezultate Ping in se ustrezno odzvati. Če se rezultati vrnejo na nič, potem veste, da je spletno mesto (ali strežnik) na spletu in vam ni treba ničesar storiti. Če vrne "1", ping ni uspel in morate nekaj storiti. V mojem primeru pošljem e-pošto z objektom Windows CDO:

Izberite Case Ping Case 0 Case 1 Set objMessage = CreateObject ("CDO.Message") Nastavi objConfig = CreateObject ("CDO.Configuration") objConfig. Naloži -1 nastavi Flds = objConfig. Polja s Flds .Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Res. .Tem (" 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 .Posodobite konec s setom objMessage .Configuration = objConfig .Subject = "Vaše spletno mesto ni vklopljeno". Od = "[email protected]" .To = "[email protected]" .TextBody = "Hej, vaše spletno mesto je brez povezave." .Prekinite konec Z. Izberite konec

Ko se skript zažene in ne more, ping naprave ali spletnega mesta, dobite takojšnje sporočilo.

Hitro in enostavno je in učinkovito!

Uporaba skriptov VB Windows za nadzor računalnika

To je le nekaj primerov nekaterih kul stvari, ki jih lahko naredite s skripta VB za racionalizacijo uporabe računalnika. Obstaja veliko drugih stvari, ki jih lahko počnete samodejne varnostne kopije z VB in Synctoy Kako ustvariti orodje za varnostno kopiranje podatkov s SyncToy & VB ScriptNa MUO smo zajeli veliko rezervnih rešitev in vse te rešitve so odlične, vendar če delate v okolju, ki je previdno glede brezplačnih programskih paketov tretjih strank ali podjetij ... Preberi več , avtomatizacija telnet ukazov Kako avtomatizirati ukaze Telnet z uporabo skripta VBPisanje paketnih opravil in v zadnjem času skripte Windows je dejavnost, ki resnično predstavlja večino kako velika večina skrbnikov omrežij in sistemov hitreje opravlja svoja dela in kaj poenostavlja bi ... Preberi več , ali celo odpiranje in nadzor oken aplikacij 3 načine za odpiranje aplikacij in operacijskega sistema Windows, maksimiziranega s skriptom VB [Windows]Če imam eno stvar, ki jo rada počnem, je to pisanje VB skript. Ne glede na to, ali gre za datoteko Windows Script ali skript VBA znotraj aplikacije, skriptnost omogoča dodajanje funkcionalnosti v aplikacije ... Preberi več .

Katere so nekatere stvari, ki ste jih v računalniku avtomatizirali s skriptom Windows? Ali pišete svoje s pomočjo VB ali uporabite kakšno drugo orodje kot PowerShell Powershell Cmdlets, ki bodo izboljšali vaše Windows Admin SkillsPowershell je orodje za ukazne vrstice in jezik skript za enake dele. Omogoča vam avtomatizacijo računalnika prek istih ukazov, ki jih uporabljate za njegovo upravljanje. Preberi več ?