5 Корисних ВБ скрипти за аутоматизацију употребе рачунара

Реклама

Без обзира да ли сте ИТ аналитичар или обични корисник рачунара, на рачунару ћете можда требати пуно задатака које ћете морати често да радите. ВБ скрипте се смањују на Висуал Басиц програмима који служе као Виндовс скрипте које могу да ураде било шта од повлачења важне информације о хардверу вашег рачунара, заустављање и покретање услуга или ресетовање мреже картица.

Могуће је научити како све те појединачне ствари радити на нормалан начин или их радити помоћу батцх датотека. Али ВБ скрипте су боље од батцх скрипти Боље од шарже: Водич за хост скрипта за Виндовс Опширније јер су флексибилнији Ако следеће скрипте чувате на заједничком месту до којег се брзо може доћи када вам затреба, ове задатке можете извршити у делићу времена. Само двапут кликните на скрипту, одговорите на брзину и задатак је завршен.

Погледајте следеће ВБ Виндовс скрипте и ако видите било коју желите да употребите, само копирајте и залепите скрипту у Бележница или други алат за кодирање белешки 7 најбољих апликација за белешке за програмере и кодре

Организовати се као програмер може бити тешко! Овде су најбоље апликације за прављење белешки дизајниране за кодрере и програмере. Опширније и сачувајте га као ВСФ датотеку.

Припремите своје Виндовс скрипте

Свака доленаведена скрипта ће се покренути само двоструким кликом све док сте датотеку именовали .ВСФ екстензијом, а код сте такође у почетку додали:

Ово осигурава да ће Виндовс препознати језик на којем је написан ваш скрипт и правилно га обрадити.

1. Користите Виндовс скрипте за информације о рачунару

Виндовс нуди нешто што се назива ВМИ или Виндовс Манагемент Инструментатион, који вашој скрипти даје интерфејс за приступ компонентама оперативног система. Заправо можете покренути упите против ВМИ-а да бисте добили тренутне тренутне информације о вашем систему. Мицрософт нуди потпуну листу свих категорије упита што можете да учините против система.

Открили смо како се користи ВБА повуците рачунарске информације у Екцел Како видети све информације на рачунару користећи једноставну ВБА скрипту ЕкцелаЕкцел и 10 минута рада пружиће вам детаљније информације о рачунару него што сте икада сматрали могућим. Звучи превише добро да би било истинито? То је Виндовс, ако га знате користити. Опширније , али то можете учинити помоћу једноставне ВБ скрипте изван програма Екцел.

У овом примеру ћемо упитати систем за информације о процесору (породица, произвођач и број језгара), информације о батерији Како уштедјети трајање батерије у суставу Виндовс 10 помоћу пребацивања напајањаМицрософт је представио искључивање напајања што Виндовс корисницима даје већу контролу над начином на који поједине апликације управљају потрошњом батерије док раде у позадини. Опширније (опис и статус), и информације о логичком диску Како уштедјети простор на диску у оперативном систему Виндовс 10У погледу потребе за дисковним простором, Виндовс 10 је у потпуности безобразан. Трошење 20 ГБ на малом ССД диску може бити фрустрирајуће. Срећом, можете да смањите отисак отпада на Виндовс 10 и вратите део тог простора. Опширније (име, преостали слободни простор и укупна величина). Затим ћемо све те податке послати у ЦСВ датотеку ради лакшег прегледа.

Први корак је постављање ФилеСистемОбјецт-а који ћете користити за излаз у ЦСВ датотеку и креирање датотеке:

Подесите оФСО = ЦреатеОбјецт ("Скрипта. ФилеСистемОбјецт ") сФиле1 = "МиЦомпутерИнфо.цсв" Подесите оФиле1 = оФСО.ЦреатеТектФиле (сФиле1, 1)

Следећи корак је постављање ВМИ упита и његово извршавање:

стрКуери = "СЕЛЕЦТ породица, произвођач, бројОфЦорес од Вин32_Процессор" Постави цолРесултс = ГетОбјецт ("винмгмтс: //./роот/цимв2") .ЕкецКуери (стрКуери)

На крају, сортирајте резултате и изнесите информације у ЦСВ датотеку. Ако желите да будете маштовити, предговорите то с неколико линија да бисте побољшали изглед излазне датотеке:

оФиле1.ВритеЛине "Информације о процесору" оФиле1.ВритеЛине "" За сваки објРесулт у цолРесултс стрРесултс = "Породица:," + ЦСтр (објРесулт. Породични) оФиле1.ВритеЛине стрРесултс стрРесултс = "Произвођач:," + ЦСтр (објРесулт. Произвођач) оФиле1.ВритеЛине стрРесултс стрРесултс = "Број језгара:," + ЦСтр (објРесулт. НумберОфЦорес) оФиле1.ВритеЛине стрРесултс. Следећи

Ако сада покренете свој код, изгледаће ваш излаз:

За наредна два одељка кода само ћете поновити и променити упит да бисте потражили додатне информације. Ево упита за податке о батерији:

оФиле1.ВритеЛине "" стрКуери = "ОДАБИР Опис, статус ИЗ Вин32_Баттери" Постави цолРесултс = ГетОбјецт ("винмгмтс: //./роот/цимв2") .ЕкецКуери (стрКуери) оФиле1.ВритеЛине "Информације о батерији" оФиле1.ВритеЛине "" За сваки објРесулт у цолРесултс стрРесултс = "Статус:," + ЦСтр (објРесулт. Опис) оФиле1.ВритеЛине стрРесултс стрРесултс = "Опис:," + ЦСтр (објРесулт. Статус) оФиле1.ВритеЛине стрРесултс. Следећи

И ево следећег одељка за упит логичког диска:

оФиле1.ВритеЛине "" стрКуери = "Изаберите Име, ФрееСпаце, Величина из Вин32_ЛогицалДиск" Постави цолРесултс = ГетОбјецт ("винмгмтс: //./роот/цимв2") .ЕкецКуери (стрКуери) оФиле1.ВритеЛине "Информације о диску" оФиле1.ВритеЛине "" "Препознајте простор за логички диск. За сваки објРесулт Ин цолРесултс стрРесултс = "Име:," + ЦСтр (објРесулт. Име) оФиле1.ВритеЛине стрРесултс стрРесултс = "Слободни простор:," + ЦСтр (објРесулт. ФрееСпаце) оФиле1.ВритеЛине стрРесултс стрРесултс = "Величина диска:," + ЦСтр (објРесулт. Величина) оФиле1.ВритеЛине стрРесултс. Следећи

На крају, не заборавите да затворите код затварањем датотеке и постављањем објеката на „Ништа“:

оФиле1.Затворите Сет оФиле1 = Ништа. сет цолРесултс = Ништа. стрРесултс = ""

Ставите сав тај код у нову .ВСФ датотеку, покрените је, а ево како ће изгледати ваш излаз:

Једноставно подесите горе наведене упите за било које друге рачунарске уређаје или софтвер о коме желите да добијете информације, а можете да добијете потпуни извештај о систему Како направити аутоматски систем за извештавање о здрављу рачунараИдете на ручак јер вас мобилни упозорава на важан текст. СМС гласи: "Упозорење кућног рачунара: 3 покушаја хаковања." Ово није фикција! Дозволите да вам покажемо како то да урадите! Опширније кад год желите само једним кликом миша.

2. Зауставите и покрените услуге

Доћи ће тренуци када одређени сервиси имају проблема и потребно је само брзо поновно покретање да би се поново правилно покренуло. Ово је посебно тачно у ИТ-у Пре него што га студирате, знате у шта се упуштатеИнформациона технологија (ИТ) постала је тако распрострањен избор каријере. Али мало људи заправо зна шта је то ИТ и шта подразумева њена дисциплина. Опширније када сте приморани да покренете софтвер за сервер који је понекад помало грешан.

Ако желите обријати минуту или нешто даље од поступка поновног покретања услуге, само похраните следећу скрипту на неко згодно место. Од вас ће се затражити да унесете име услуге коју желите да поново покренете и тада ћете урадити управо то.

Будући да заустављање и покретање услуга захтева административне привилегије, морате да поставите следећи код на почетак скрипте да бисте дали скрипту повећане привилегије:

Ако није ВСцрипт. Аргументи. Назван. Постоји ("елевате"), а затим ЦреатеОбјецт ("Схелл"). Апликација "). СхеллЕкецуте ВСцрипт. ФуллНаме _ и ВСцрипт. СцриптФуллНаме & / елевате "," "," рунас ", 1 ВСцрипт. Одустати. Енд Иф

Једном када то учините, додајте остатак кода да бисте покренули оквир за унос за кориснички унос, покрените командни прозор, и пошаљите му „нет стоп“ и „нет старт команде“:

Поставите цмдСхелл = ЦреатеОбјецт ("ВСцрипт. Шкољка") стрСервицеНаме = Инпутбок ("Интер сервис за заустављање", "Унос је потребан") цмдСхелл. Покрените "цмд.еке" ВСцрипт Спавање 1000 цмдСхелл. СендКеис "нет стоп" + стрСервицеНаме. цмдСхелл. СендКеис "{Ентер}" ВСцрипт Спавање 1000 цмдСхелл. СендКеис „нето старт“ + стрСервицеНаме. цмдСхелл. СендКеис "{Ентер}" ВСцрипт Спавање 1000 цмдСхелл. СендКеис "Екит" цмдСхелл. СендКеис "{Ентер}"

То је све. Нема потребе за потрагом за алатом за услуге. Само покрените ову скрипту и зауставите се и започните било коју услугу у секунди.

3. Промените подешавања регистра, подразумевану лозинку администратора

Следећом скрипту уништићемо две птице једним каменом. Ова скрипта ће вам показати како то уреди регистар 5 Подешавање регистра Виндовс 10 за побољшање и откључавање функцијаУређивач регистра је једини начин да се омогуће неке скривене функције за Виндовс 10. Овде ћемо вам показати једноставне промене попут омогућавања мрачне теме или скривања мапа. Опширније са ВБ скриптом. Такође ће вам дати скрипту која ће вам омогућити да подесите подразумевано корисничко име и лозинку за Виндовс уређивањем тих поставки регистратора.

Ево како то функционише. Прво, пошто уређивање регистра захтева администраторска права, мораћете да поставите повећане привилегије за свој скрипт:

Ако није ВСцрипт. Аргументи. Назван. Постоји ("елевате"), а затим ЦреатеОбјецт ("Схелл"). Апликација "). СхеллЕкецуте ВСцрипт. ФуллНаме _ и ВСцрипт. СцриптФуллНаме & / елевате "," "," рунас ", 1 ВСцрипт. Одустати. Енд Иф

Прво покрените два поља за унос да бисте упитали корисника које корисничко име и лозинку треба да користи:

стрУсерНаме = Инпутбок ("Унесите подразумевано корисничко име", "Обавезно унос") стрПассворд = Инпутбок ("Унесите подразумевану лозинку", "Потребан је унос")

Затим поставите објект љуске и запишите те вриједности у одговарајуће кључеве регистра:

Поставите всхСхелл = ЦреатеОбјецт ("ВСцрипт. Шкољка" ) всхСхелл РегВрите "ХКЛМ \ СОФТВАРЕ \ Мицрософт \ Виндовс НТ \ ЦуррентВерсион \ Винлогон \ ДефаултУсерНаме", стрУсерНаме, "РЕГ_СЗ" всхСхелл РегВрите "ХКЛМ \ СОФТВАРЕ \ Мицрософт \ Виндовс НТ \ ЦуррентВерсион \ Винлогон \ ДефаултПассворд", стрПассворд, "РЕГ_СЗ" Подеси всхСхелл = Ништа

И то је све. Метода „РегВрите“ омогућава вам да пишете било коју вредност у било који регистарски кључ користећи ВБ Виндовс скрипту. Све што треба да знате је одговарајући пут.

Покрените скрипту и одговорите на упите.

Вредности које унесете биће убачене директно у подешавања регистра која сте поставили у скрипти.

Играјте се са скрипту и прилагодите је свом укусу. Можете да уређујете све кључеве регистра који вам се свиђају, зато будите креативни!

4. Ресетујте своју мрежну везу

Поништавање мрежне везе помоћу ВБ скрипта Како написати скрипту за Виндовс да бисте променили мрежне поставке у летуУ многим канцеларијама или радним окружењима можда ћете морати да редефинишете мрежне поставке да бисте се повезали са различитим мрежама. У тој сам се ситуацији нашао довољно често и толико сам се уморио од гледања ... Опширније је нешто о чему смо овде раније говорили у МакеУсеОф-у. Следећа верзија тога је заправо смањена и много је једноставнија за имплементацију. Уместо да тражи појединачне мрежне картице, ресетује све ваше активне везе које би, надамо се, решавале све мрежне проблеме који можда постоје.

Као и код других скрипти које требају администраторска права, морат ћете додати одељак на почетку за повећане привилегије. Копирајте тај код из горње скрипте.

Затим креирајте ВМИ објект и затражите га на списку омогућених мрежних адаптера на вашем систему:

стрЦомпутер = "." Поставите објВМИСервице = ГетОбјецт ("винмгмтс: \\" & стрЦомпутер & "\ роот \ ЦИМВ2") Подесите цолИтемс = објВМИСервице. ЕкецКуери (_ "СЕЛЕЦТ * ФРОМ Вин32_НетворкАдаптер Вхере НетЕнаблед = 'Труе'")

На крају, прођите кроз све омогућене адаптере и ресетујте их:

За сваки објекат у колумнама објИтем. Онемогући ВСцрипт. Слееп 1000 објИтем. Омогући. Следећи

Ово ће ресетовати све ваше активни мрежни адаптери 8 ЦМД наредби за управљање бежичним мрежама у Виндовс-уКористите командни редак да бисте управљали Ви-Фи мрежом. Ево најкориснијих команди за решавање проблема са кућном мрежом. Опширније , што је често најбржи начин за решавање досадних проблема са мрежом. Држите ову скрипту при руци и испробајте је први пут када имате спору мрежу или друге чудне мрежне проблеме.

5. Пинг уређаји или веб локације

Задњи пут сам сачувао своју омиљену скрипту ВБ прозора. Ово сам заправо поставио као заказани задатак на свом кућном рачунару и покренуо га неколико пута на дан проверите да ли је моја веб локација активна 3 начина да схватите да ли је ваша омиљена веб локација у падуПостоји неколико веб локација које су посвећене да одговоре на основно питање које на крају ћете се запитати: "Да ли је ова веб локација оборена?" Ево, имамо три ове веб странице, а оне јесу све... Опширније . Имам скрипту за слање е-поште ако веб локација није у реду. Можете користити исту скрипту за надгледање важних сервера или рачунара у вашој мрежи и слање е-поште сваки пут када ваш скрипт не може да пингује уређај.

Прво подесите скрипту за циљ који желите да пингујете, креирајте објект љуске, а затим покрените наредбу пинг.

стрТаргет = "топсецретвритерс.цом" Подесите ВсхСхелл = ВСцрипт. ЦреатеОбјецт ("ВСцрипт. Шкољка") Пинг = ВсхСхелл Покрени („пинг -н 1“ & стрТаргет, 0, тачно)

Употријебите изјаву Селецт Цасе да бисте покренули резултате Пинг-а и реаговали у складу с тим. Ако се резултати врате на нулу, тада знате да је веб локација (или сервер) на мрежи и не морате ништа да радите. Ако врати „1“, пинг није успео и морате нешто да урадите. У мом случају, шаљем е-пошту користећи Виндовс ЦДО објект:

Одаберите Цасе Пинг Цасе 0 Цасе 1 Постави објМессаге = ЦреатеОбјецт ("ЦДО.Мессаге") Постави објЦонфиг = ЦреатеОбјецт ("ЦДО.Цонфигуратион") објЦонфиг. Учитај -1 постави Флдс = објЦонфиг. Поља са Флдс .Итем (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Тачно. Итем (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Итем (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]" .Итем (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx" .Итем (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com" .Итем (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Итем (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Ажурирајте крај помоћу објМессаге Сет-а .Цонфигуратион = објЦонфиг .Субјецт = "Ваша веб локација није офлајн" .Фром = "ме@мицомпутер.цом" .То = "кккккк@гмаил.цом" .ТектБоди = "Хеј, ваша веб локација је офлајн." .Сенд Енд Са. Енд Селецт

Једном када се скрипта покрене и не може пинг уређај или веб локација, добијате тренутну поруку.

То је брзо и лако, и свако ефикасно!

Коришћење ВБ Виндовс скрипти за контролу рачунара

Ово је само неколико примера неких кул ствари које можете да урадите помоћу ВБ скрипта да бисте рационализовали употребу рачунара. Постоји пуно других ствари које можете да радите аутоматизоване резервне копије са ВБ и Синцтои Како креирати алатку за сигурносно копирање података помоћу СинцТои & ВБ скриптеОвде смо покренули мноштво резервних решења на МУО-у, и сва ова решења су одлична, али ако радите у окружењу које је опрезно око бесплатних софтверских пакета треће стране или компанија ... Опширније , аутоматизација телнет команди Како аутоматизирати наредбе Телнет користећи ВБ скриптуПисање групних послова и новијих Виндовс скрипти је активност која чини највећи део како велика већина мрежних и системских администратора брже обављају свој посао и поједностављују шта би ... Опширније , или чак отварање и контрола прозора апликација 3 начина за отварање апликација и оперативног система Виндовс максимално помоћу ВБ скрипте [Виндовс]Ако постоји једна ствар коју волим радити, то је писање ВБ скрипти. Било да се ради о Виндовс Сцрипт датотеци или ВБА скрипти унутар неке апликације, скрипта пружа могућност додавања функционалности апликацијама ... Опширније .

Које су неке ствари које сте аутоматизовали на рачунару помоћу Виндовс скрипте? Пишете ли своје помоћу ВБ или користите неки други алат попут ПоверСхелл-а Поверсхелл Цмдлетс који ће побољшати ваше Виндовс Админ СкиллсПоверсхелл је алат за командну линију једнаких делова и језик скрипта. Омогућава вам аутоматизацију рачунара помоћу истих команди које користите за његово управљање. Опширније ?