5 Noderīgi VB Windows skripti datora automatizēšanai

Reklāma

Neatkarīgi no tā, vai esat IT analītiķis vai parasts datora lietotājs, ir daudz uzdevumu, kas jums, iespējams, būs jāveic bieži datorā. VB skripti ir samazināti Visual Basic programmas, kas kalpo kā Windows skripti, kas var darīt jebko, sākot no uzvilkšanas svarīga informācija par datora aparatūru, lai pārtrauktu un sāktu pakalpojumus vai atiestatītu tīklu karti.

Ir iespējams iemācīties darīt visas šīs atsevišķās lietas parastajā veidā vai arī darīt tās, izmantojot pakešfailus. Bet VB skripti ir labāki nekā sērijveida skripti Labāka nekā sērija: Windows skriptu resursdatora apmācība Lasīt vairāk jo tie ir elastīgāki. Ja šādus skriptus glabājat kopīgā vietā, kur ātri nokļūstat, kad tas ir nepieciešams, varat veikt šos uzdevumus īsā laika posmā. Jūs vienkārši veiciet dubultklikšķi uz skripta, atbildiet uz uzvedni un uzdevums ir paveikts.

Apskatiet šādus VB Windows skriptus un, ja redzat kādu, kuru vēlaties izmantot, vienkārši nokopējiet un ielīmējiet skriptu Notepad vai cits kodēšanas piezīmju rīks

7 labākās piezīmjdatoru programmas programmētājiem un kodētājiemUzturēšanās organizēta kā programmētājs var būt grūts darbs! Šeit ir labākās piezīmju veikšanas lietotnes, kas izstrādātas, ņemot vērā kodētājus un izstrādātājus. Lasīt vairāk un saglabājiet to kā WSF failu.

Sagatavojiet Windows skriptus

Katrs no zemāk aprakstītajiem skriptiem darbosies tikai ar dubultklikšķi, ja vien failam būsit piešķīris paplašinājumu .WSF un koda sākumā esat pievienojis arī:

Un aizveriet kodu ar:

  WScript. Aiziet. 

Tas nodrošina, ka Windows atpazīs valodu, kurā rakstīts skripts, un pareizi to apstrādā.

1. Izmantojiet Windows skriptus informācijai par datoru

Windows piedāvā kaut ko sauc par WMI vai Windows pārvaldības instrumentāciju, kas nodrošina jūsu skriptu ar interfeisu, lai piekļūtu operētājsistēmas komponentiem. Jūs faktiski varat veikt vaicājumus pret WMI, lai iegūtu pašreizējo tiešsaistes informāciju par savu sistēmu. Microsoft piedāvā pilnu visu vaicājumu kategorijas jūs varat veikt pret sistēmu.

Mēs esam apskatījuši, kā izmantot VBA ievelciet datora informāciju programmā Excel Kā redzēt visu datora informāciju, izmantojot vienkāršu Excel VBA skriptuExcel un 10 minūtes darba sniegs jums sīkāku informāciju par datoru, nekā jūs jebkad domājāt. Izklausās pārāk labi, lai būtu patiesība? Tas ir Windows, ja jūs zināt, kā to izmantot. Lasīt vairāk , bet jūs varat darīt to pašu, izmantojot vienkāršu VB skriptu ārpus Excel.

Šajā piemērā mēs meklēsim sistēmu, lai iegūtu informāciju par procesoru (saimi, ražotāju un kodolu skaitu), informācija par akumulatoriem Kā ietaupīt akumulatora enerģiju operētājsistēmā Windows 10 ar jauduMicrosoft ieviesa jaudas samazināšanu, kas Windows lietotājiem dod lielāku kontroli pār to, kā atsevišķas lietotnes rīkojas ar akumulatora patēriņu, darbojoties fonā. Lasīt vairāk (apraksts un statuss) un loģiskā diska informācija Kā ietaupīt diska vietu sistēmā Windows 10Runājot par diska vietas prasībām, Windows 10 ir pilnīgi krāšņs. Nopelnīt 20 GB uz mazu SSD var būt nepatīkami. Par laimi, jūs varat samazināt Windows 10 nospiedumu un atgūt daļu no šīs vietas. Lasīt vairāk (nosaukums, atlikušā vieta un kopējais lielums). Pēc tam mēs visu šo informāciju izvadīsim CSV failā, lai to ērti skatītu.

Pirmais solis ir iestatīt FileSystemObject, kuru izmantosit, lai izvadītu uz CSV failu, un izveidot failu:

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

Nākamais solis ir iestatīt WMI vaicājumu un to izpildīt:

strQuery = "SELECT saime, ražotājs, NumberOfCores no Win32_Processor" Iestatīt colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Visbeidzot, kārtojiet rezultātus un izvadiet informāciju CSV failā. Ja vēlaties būt iedomātā, ievadiet to pāris rindās, lai palīdzētu izvades failam izskatīties labāk:

oFile1.WriteLine "Informācija par procesoru" oFile1.WriteLine "" katram objResult colResults strResults = "Family:," + CStr (objResult. Ģimene) oFile1.WriteLine strResults strResults = "Ražotājs:," + CStr (objResult. Ražotājs) oFile1.WriteLine strResults strResults = "Kodolu skaits:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. Nākamais

Ja jūs palaižat savu kodu tagad, tas izskatīsies šādi:

Nākamajās divās koda sadaļās jūs vienkārši atkārtosit un mainīsit vaicājumu, lai meklētu papildu informāciju. Tālāk ir norādīts akumulatora informācijas pieprasījums:

oFile1.WriteLine "" strQuery = "SELECT apraksts, statuss no Win32_Battery" Iestatīt colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Informācija par akumulatoriem" oFile1.WriteLine "" Katram objResult In colResults strResults = "Status::" + CStr (objResult. Apraksts) oFile1.WriteLine strResults strResults = "Apraksts:," + CStr (objResult. Statuss) oFile1.WriteLine strResults. Nākamais

Šeit ir nākamā loģiskā diska vaicājuma sadaļa:

oFile1.WriteLine "" strQuery = "Izvēlieties vārdu, FreeSpace, lielumu no Win32_LogicalDisk" Iestatīt colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Diska informācija" oFile1.WriteLine "" 'Identificējiet loģisko diska vietu. Katram objResult colResults strResults = "Name:", + CStr (objResult. Nosaukums) oFile1.WriteLine strResults strResults = "Brīva vieta:", + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Diska lielums:", + CStr (objResult. Izmērs) oFile1.WriteLine strResults. Nākamais

Visbeidzot, atcerieties aizvērt kodu, aizverot failu un iestatot objektus uz “Nothing”:

oFile1.Close Set oFile1 = Nekas. set colResults = Nekas. strResults = ""

Ievietojiet visu šo kodu savā jaunajā .WSF failā, palaidiet to, un šādi parādīsies jūsu izvade:

Vienkārši nomainiet iepriekš minētos jautājumus par visām citām datora ierīcēm vai programmatūru, par kuru vēlaties iegūt informāciju, un jūs varat arī iegūt pilns sistēmas pārskats Kā izveidot automatizētu datoru veselības atskaišu sistēmuJūs neesat paēduši pusdienas, jo mobilais tālrunis brīdina jūs par svarīgu tekstu. Īsziņā rakstīts: "Mājas datora brīdinājums: 3 hakeru mēģinājumi." Tas nav izdomājums! Ļaujiet mums parādīt, kā to izdarīt! Lasīt vairāk jebkurā laikā, izmantojot tikai peles klikšķi.

2. Stop un Start Services

Būs reizes, kad dažiem pakalpojumiem ir problēmas, un, lai atkal darbotos pareizi, būs nepieciešama tikai ātra restartēšana. Tas ir īpaši patiesība IT jomā Pirms studējat IT, zināt, ko jūs iedomājatiesInformācijas tehnoloģija (IT) ir kļuvusi par tik izplatītu karjeras izvēli. Bet tikai daži cilvēki patiesībā zina, kas ir IT un kāda ir tās disciplīna. Lasīt vairāk kad esat spiests palaist servera programmatūru, kas dažreiz ir mazliet kļūdaina.

Ja vēlaties aptuveni pēc minūtes noraustīties no pakalpojuma restartēšanas procesa, vienkārši glabājiet šo skriptu ērtā vietā. Jums tiks piedāvāts ievadīt restartējamā pakalpojuma nosaukumu, un tad tas tiks darīts tieši tā.

Tā kā pakalpojumu pārtraukšanai un sākšanai ir vajadzīgas administratīvas privilēģijas, skripta sākumā jums jāievieto šāds kods, lai dotu skriptu paaugstinātas privilēģijas:

Ja ne WScript. Argumenti. Nosaukts. Pastāv ("paaugstināt"), tad CreateObject ("Apvalks. Lietojumprogramma "). ShellExecute WScript. FullName _ un WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Aiziet. Beigt ja

Kad tas ir izdarīts, pievienojiet pārējo kodu, lai palaistu ievades lodziņu lietotāja ievadīšanai, palaidiet komandu loguun nosūtiet tai “tīkla apstāšanās” un “tīkla sākuma komandas”:

Iestatīt cmdShell = CreateObject (". Apvalks ") strServiceName = Ievades lodziņš ("Inter Service to Stop", "Required Input Required") cmdShell. Palaist “cmd.exe” WScript. Gulēt 1000 cmdhā. SendKeys "neto pietura" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. Gulēt 1000 cmdhā. SendKeys "neto sākums" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. Gulēt 1000 cmdhā. SendKeys "Iziet" cmdShell. SendKeys "{Enter}"

Tas ir viss, kas tam ir. Pakalpojumu rīks nav jāmeklē. Vienkārši palaidiet šo skriptu un apstājieties un sāciet jebkuru pakalpojumu dažu sekunžu laikā.

3. Mainiet reģistra iestatījumus, noklusējuma administratora paroli

Izmantojot šo skriptu, mēs nogalināsim divus putnus ar vienu akmeni. Šis skripts parādīs, kā to izdarīt rediģēt reģistru 5 Windows 10 reģistra uzlabojumi, lai uzlabotu un atbloķētu funkcijasReģistra redaktors ir vienīgais veids, kā iespējot dažas no Windows 10 slēptajām funkcijām. Šeit mēs parādīsim vieglus pielāgojumus, piemēram, tumšās tēmas iespējošanu vai mapju paslēpšanu. Lasīt vairāk ar VB skriptu. Tas jums arī dos skriptu, kas ļaus iestatīt noklusējuma Windows lietotājvārdu un paroli, rediģējot šos reģistra iestatījumus.

Lūk, kā tas darbojas. Pirmkārt, tā kā reģistra rediģēšanai ir vajadzīgas administratora tiesības, jums skriptam būs jāiestata paaugstinātas privilēģijas:

Ja ne WScript. Argumenti. Nosaukts. Pastāv ("paaugstināt"), tad CreateObject ("Apvalks. Lietojumprogramma "). ShellExecute WScript. FullName _ un WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Aiziet. Beigt ja

Vispirms izpildiet divus ievades lodziņus, lai jautātu lietotājam, kāds lietotājvārds un parole jāizmanto:

strUserName = Ievades lodziņš ("Ievadiet noklusējuma lietotāja vārdu", "Nepieciešama ievade") strPassword = Ievades lodziņš ("Ievadiet noklusējuma paroli", "Nepieciešama ievade")

Pēc tam iestatiet apvalka objektu un ierakstiet šīs vērtības attiecīgajās reģistra atslēgas:

Iestatīt wshShell = CreateObject (". Apvalks ") 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" Iestatīt wshShell = Nekas

Un tas ir viss, kas tam ir. Metode “RegWrite” ļauj rakstīt jebkuru vērtību jebkurai reģistra atslēgai, izmantojot VB Windows skriptu. Viss, kas jums jāzina, ir piemērots ceļš.

Palaidiet skriptu un atbildiet uz norādēm.

Ievadītās vērtības tiks ievietotas tieši reģistra iestatījumos, kurus iestatījāt skriptā.

Spēlējiet apkārt ar skriptu un pielāgojiet to pēc savas patikas. Varat rediģēt jebkuru reģistra atslēgu, kas jums patīk, tāpēc esiet radošs!

4. Atiestatiet tīkla savienojumu

Tīkla savienojuma atiestatīšana, izmantojot VB skriptu Kā uzrakstīt Windows skriptu, lai mainītu tīkla iestatījumusDaudzos birojos vai darba vidē, lai izveidotu savienojumu ar dažādiem tīkliem, jums, iespējams, būs jāpārdefinē tīkla iestatījumi. Es nonācu šādā situācijā pietiekami bieži un man tik apnika pārlūkot ... Lasīt vairāk ir kaut kas tāds, ko mēs esam apskatījuši jau šeit vietnē MakeUseOf. Nākamā šīs versijas versija faktiski ir samazināta un daudz vienkāršāka. Tā vietā, lai pieprasītu atsevišķas tīkla kartes, tā atiestata visus aktīvos savienojumus, kas, cerams, atrisinās visas iespējamās tīkla problēmas.

Tāpat kā citiem skriptiem, kuriem vajadzīgas administratora tiesības, sadaļa sākumā būs jāpievieno, lai iegūtu paaugstinātas privilēģijas. Nokopējiet šo kodu no augšējā skripta.

Pēc tam izveidojiet WMI objektu un meklējiet to savā sistēmā iespējoto tīkla adapteru sarakstam:

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

Visbeidzot, pārbaudiet visus iespējotos adapterus un atiestatiet tos:

Katrai objItem kolItems objItem. Atspējot WScript. Gulēt 1000 objItem. Iespējot. Nākamais

Tas atiestatīs visu jūsu aktīvie tīkla adapteri 8 CMD komandas bezvadu tīklu pārvaldībai operētājsistēmā WindowsIzmantojiet komandu uzvedni, lai kontrolētu savu Wi-Fi tīklu. Šeit ir visnoderīgākās komandas mājas tīkla problēmu novēršanai. Lasīt vairāk , kas bieži vien ir ātrākais veids, kā atrisināt kaitinošas tīkla problēmas. Saglabājiet šo skriptu parocīgu un vispirms izmēģiniet, kad rodas lēns tīkls vai rodas citas dīvainas tīkla problēmas.

5. Ping ierīces vai vietnes

Es pēdējo reizi esmu saglabājis savu iecienīto VB Windows skriptu. Tas ir tas, kuru es faktiski uzstādīju kā ieplānotu uzdevumu manā mājas datorā, un lieku tam darboties vairākas reizes dienā tikai līdz pārbaudiet, vai mana vietne ir aktīva 3 veidi, kā izdomāt, vai jūsu iecienītākā vietne nedarbojasIr dažas tīmekļa vietnes, kas ir paredzētas vienkārši atbildēšanai uz pamatjautājumu jūs galu galā jautāsit: "Vai šī vietne nav pieejama?" Mums ir trīs no šīm vietnēm, un tādas ir visi ... Lasīt vairāk . Ja vietne darbojas, man ir rakstīts pa e-pastu. Varat izmantot šo pašu skriptu, lai pārraudzītu svarīgus tīkla serverus vai datorus un nosūtītu sev e-pastu, kad skripts nevar piespiest ierīci.

Vispirms iestatiet skriptu mērķim, kuram vēlaties piespraust, izveidojiet apvalka objektu un pēc tam palaidiet komandu ping.

strTarget = "topsecretwriters.com" Iestatīt WshShell = WScript. IzveidotObjektu (". Apvalks ") Ping = WshShell. Palaist ("ping -n 1" & strTarget, 0, True)

Izmantojiet izlasi Izvēlēties gadījumu, lai palaistu cauri Ping rezultātiem un atbilstoši reaģētu. Ja rezultāti ir nulle, tad jūs zināt, ka vietne (vai serveris) ir tiešsaistē, un jums nekas nav jādara. Ja tas atgriež “1”, tad ping neizdevās un jums kaut kas jādara. Manā gadījumā es sūtu e-pastu, izmantojot Windows CDO objektu:

Atlasiet Case Ping Case 0 Case 1 Set objMessage = CreateObject ("CDO.Message") Set objConfig = CreateObject ("CDO.Configuration") objConfig. Slodze -1 Iestatiet Flds = objConfig. Lauki ar Flds .Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Lieta (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]" .Lieta (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx" .Lieta (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com" .Lieta (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Lieta (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Atjaunināšana beidzas ar ar objMessage Set .Configuration = objConfig .Subject = "Jūsu vietne ir bezsaistē" .No = "[email protected]" .To = "[email protected]" .TextBody = "Sveiki, jūsu vietne ir bezsaistē." .Sūtiet beigas Ar. Beigt atlasi

Kad skripts ir izpildīts, to nevar izdarīt piespraudiet ierīci vai vietni, jūs saņemat tūlītēju ziņojumu.

Tas ir ātrs, ērts un efektīvs!

VB Windows skriptu izmantošana datora kontrolei

Šie ir tikai daži piemēri dažām lieliskām lietām, kuras varat darīt ar VB skriptiem, lai racionalizētu datora lietošanu. Ir daudz citu lietu, kuras varat darīt automatizētas dublējumkopijas ar VB un Synctoy Kā izveidot datu dublēšanas rīku ar SyncToy un VB skriptuMēs MUO esam apskatījuši daudz rezerves risinājumu, un visi šie risinājumi ir lieliski, taču, ja jūs strādājat vidē, kas ir piesardzīga par bezmaksas trešo personu programmatūras pakotnēm vai uzņēmumiem ... Lasīt vairāk , telnet komandu automatizēšana Kā automatizēt Telnet komandas, izmantojot VB skriptuSērijveida darbu un nesen Windows skriptu rakstīšana ir darbība, kas patiešām veido lielāko daļu kā vairums tīkla un sistēmu administratoru savus darbus veic ātrāk un ko vienkāršo būtu ... Lasīt vairāk , vai pat atvērt un kontrolēt lietojumprogrammu logus 3 veidi, kā maksimāli izmantot lietojumprogrammas un Windows, izmantojot VB skriptu [Windows]Ja ir viena lieta, ko es mīlu darīt, tā ir VB skriptu rakstīšana. Neatkarīgi no tā, vai tas ir Windows skripta fails vai VBA skripts lietojumprogrammā, skriptēšana nodrošina iespēju programmām pievienot funkcionalitāti ... Lasīt vairāk .

Kādas ir lietas, kuras esat datorā automatizējis, izmantojot Windows skriptu? Vai jūs rakstāt savu, izmantojot VB, vai izmantojat kādu citu rīku piemēram, PowerShell Powershell kopas, kas uzlabos jūsu Windows administratora prasmesPowershell ir vienādās daļās komandrindas rīks un skriptu valoda. Tas dod jums iespēju automatizēt datoru, izmantojot tās pašas komandas, kuras izmantojat tā administrēšanai. Lasīt vairāk ?