5 Przydatnych skryptów Windows VB do automatyzacji korzystania z komputera

Reklama

Niezależnie od tego, czy jesteś analitykiem IT, czy zwykłym użytkownikiem komputera, na Twoim komputerze często musisz wykonywać wiele zadań. Skrypty VB są pomniejszone o programy Visual Basic, które służą jako skrypty systemu Windows, które mogą wykonać wszystko od podciągnięcia ważne informacje na temat sprzętu komputerowego, zatrzymywania i uruchamiania usług lub resetowania sieci karta.

Można nauczyć się robić te wszystkie indywidualne czynności w normalny sposób lub wykonywać je przy użyciu plików wsadowych. Ale Skrypty VB są lepsze niż skrypty wsadowe Lepsza niż partia: samouczek hosta skryptów Windows Czytaj więcej ponieważ są bardziej elastyczne. Jeśli przechowujesz poniższe skrypty we wspólnym miejscu, do którego można szybko dotrzeć, gdy jest to potrzebne, możesz wykonać te zadania w ułamku czasu. Wystarczy dwukrotnie kliknąć skrypt, odpowiedzieć na monit i zadanie zostanie wykonane.

Spójrz na następujące skrypty VB dla systemu Windows, a jeśli widzisz jakiś, którego chcesz użyć, po prostu skopiuj i wklej skrypt do

Notatnik lub inne narzędzie do kodowania notatek 7 najlepszych aplikacji do robienia notatek dla programistów i programistówUtrzymywanie porządku jako programista może być trudne! Oto najlepsze aplikacje do robienia notatek zaprojektowane z myślą o programistach i programistach. Czytaj więcej i zapisz go jako plik WSF.

Przygotuj skrypty systemu Windows

Każdy ze opisanych poniżej skryptów będzie działał za pomocą podwójnego kliknięcia, pod warunkiem, że nadasz plikowi rozszerzenie .WSF, a kod załączasz na początku:

I zamknij kod za pomocą:

  WScript. Porzucić. 

Dzięki temu system Windows rozpozna język, w którym napisany jest skrypt, i odpowiednio go przetworzy.

1. Użyj skryptu systemu Windows do uzyskania informacji o komputerze

Windows oferuje coś o nazwie WMI lub Windows Management Instrumentation, które zapewnia skryptowi interfejs umożliwiający dostęp do komponentów systemu operacyjnego. W rzeczywistości można uruchamiać zapytania dotyczące WMI, aby uzyskać bieżące informacje na temat systemu. Microsoft oferuje pełną listę wszystkich kategorie zapytań możesz zrobić przeciwko systemowi.

Omówiliśmy, jak używać VBA do pobierz informacje o komputerze do Excela Jak wyświetlić wszystkie informacje o komputerze za pomocą prostego skryptu VBA programu ExcelExcel i 10 minut pracy dostarczy Ci bardziej szczegółowych informacji o twoim komputerze, niż kiedykolwiek myślałeś, że to możliwe. Brzmi zbyt dobrze, aby mogło być prawdziwe? To Windows, jeśli wiesz, jak go używać. Czytaj więcej , ale możesz zrobić to samo za pomocą prostego skryptu VB poza programem Excel.

W tym przykładzie zapytamy system o informacje o procesorze (rodzina, producent i liczba rdzeni), informacje o baterii Jak zaoszczędzić czas pracy baterii w systemie Windows 10 dzięki funkcji ograniczania mocyFirma Microsoft wprowadziła funkcję ograniczania mocy, która daje użytkownikom systemu Windows większą kontrolę nad sposobem, w jaki poszczególne aplikacje radzą sobie z zużyciem baterii podczas działania w tle. Czytaj więcej (opis i status) oraz informacje o dysku logicznym Jak zaoszczędzić miejsce na dysku w systemie Windows 10Jeśli chodzi o wymagania dotyczące miejsca na dysku, Windows 10 jest wręcz żarłoczny. Marnowanie 20 GB na mały dysk SSD może być frustrujące. Na szczęście możesz zmniejszyć powierzchnię systemu Windows 10 i odzyskać trochę tego miejsca. Czytaj więcej (nazwa, pozostała wolna przestrzeń i całkowity rozmiar). Następnie wyślemy wszystkie te informacje do pliku CSV w celu łatwego przeglądania.

Pierwszym krokiem jest skonfigurowanie obiektu FileSystemObject, którego użyjesz do wyjścia do pliku CSV, i utwórz plik:

Ustaw oFSO = CreateObject („Skrypty. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Ustaw oFile1 = oFSO.CreateTextFile (sFile1, 1)

Następnym krokiem jest skonfigurowanie zapytania WMI i wykonanie go:

strQuery = "WYBIERZ rodzinę, producenta, NumberOfCores FROM Win32_Processor" Ustaw colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Na koniec posortuj wyniki i wyślij informacje do pliku CSV. Jeśli chcesz być fantazyjny, poprzedz go kilkoma liniami, aby poprawić wygląd pliku wyjściowego:

oFile1.WriteLine „Informacje o procesorze” oFile1.WriteLine "" For Each objResult In colResults strResults = "Family:," + CStr (objResult. Rodzina) oFile1.WriteLine strResults strResults = "Producent:," + CStr (objResult. Producent) oFile1.WriteLine strResults strResults = "Liczba rdzeni:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. Kolejny

Jeśli uruchomisz teraz swój kod, to będzie wyglądać twój wynik:

W kolejnych dwóch sekcjach kodu powtórzysz i zmienisz zapytanie, aby wyszukać dodatkowe informacje. Oto zapytanie o baterię:

oFile1.WriteLine „” strQuery = "WYBIERZ Opis, status Z Win32_Battery" Ustaw colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine „Informacje o baterii” oFile1.WriteLine "" For Each objResult In colResults strResults = "Status:," + CStr (objResult. Opis) oFile1.WriteLine strResults strResults = "Opis:," + CStr (objResult. Status) oFile1.WriteLine strResults. Kolejny

A oto następna sekcja zapytania o dysk logiczny:

oFile1.WriteLine „” strQuery = "Wybierz nazwę, FreeSpace, rozmiar z Win32_LogicalDisk" Ustaw colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine „Informacje o dysku” oFile1.WriteLine „” Zidentyfikuj miejsce na dysku logicznym. For Each objResult In colResults strResults = "Nazwa:," + CStr (objResult. Nazwa) oFile1.WriteLine strResults strResults = "Wolne miejsce:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Rozmiar dysku:," + CStr (objResult. Rozmiar) oFile1.WriteLine strResults. Kolejny

Na koniec pamiętaj, aby zamknąć kod, zamykając plik i ustawiając obiekty na „Nic”:

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

Umieść cały ten kod w nowym pliku .WSF, uruchom go, a oto, jak będzie wyglądać twój wynik:

Po prostu zamień powyższe zapytania na inne urządzenia komputerowe lub oprogramowanie, o których chcesz uzyskać informacje, a otrzymasz je pełny raport systemu Jak utworzyć zautomatyzowany system raportowania stanu komputeraNie jesz lunchu, ponieważ telefon komórkowy ostrzega Cię o ważnym SMS-ie. Wiadomość SMS brzmi: „Alert komputera domowego: 3 próby włamania”. To nie jest fikcja! Pozwól nam pokazać, jak to zrobić! Czytaj więcej w dowolnym momencie jednym kliknięciem myszy.

2. Zatrzymaj i uruchom usługi

Będą chwile, gdy niektóre usługi będą miały problemy i będą wymagały tylko szybkiego ponownego uruchomienia, aby ponownie uruchomić poprawnie. To jest szczególnie prawdziwe w IT Zanim zaczniesz studiować IT, dowiedz się, w co się pakujeszTechnologia informacyjna (IT) stała się tak powszechnym wyborem kariery. Ale niewiele osób faktycznie wie, czym jest IT i co pociąga za sobą jej dyscyplina. Czytaj więcej gdy jesteś zmuszony uruchamiać oprogramowanie serwera, które czasami jest trochę wadliwe.

Jeśli chcesz zaoszczędzić około minuty procesu ponownego uruchamiania usługi, po prostu zapisz poniższy skrypt w dogodnym miejscu. Poprosi Cię o wpisanie nazwy usługi, którą chcesz zrestartować, a następnie zrobi to dokładnie.

Ponieważ zatrzymywanie i uruchamianie usług wymaga uprawnień administracyjnych, musisz umieścić następujący kod na początku skryptu, aby dać skryptowi podwyższone uprawnienia:

Jeśli nie WScript. Argumenty. O imieniu. Istnieje („Elevate”), a następnie CreateObject („Shell. Aplikacja ”). ShellExecute WScript. Pełna nazwa _ i WScript. ScriptFullName & / elevate ”,„ ”,„ runas ”, 1 WScript. Porzucić. End If

Po wykonaniu tej czynności dodaj resztę kodu, aby uruchomić pole wprowadzania danych wejściowych użytkownika, uruchom okno poleceńi wyślij mu „net stop” i „net start polecenia”:

Ustaw cmdShell = CreateObject („WScript. Muszla") strServiceName = Inputbox („Inter Service to Stop”, „Input Input Required”) cmdShell. Uruchom „cmd.exe” WScript. Spać 1000 cmdShell. SendKeys „net stop” + strServiceName. cmdShell. SendKeys „{Enter}” WScript. Spać 1000 cmdShell. SendKeys „net start” + strServiceName. cmdShell. SendKeys „{Enter}” WScript. Spać 1000 cmdShell. SendKeys „Wyjdź” cmdShell. SendKeys „{Enter}”

To wszystko. Nie ma potrzeby szukania narzędzia serwisowego. Wystarczy uruchomić ten skrypt i zatrzymać i uruchomić dowolną usługę w kilka sekund.

3. Zmień ustawienia rejestru, domyślne hasło administratora

W poniższym skrypcie zabijemy dwa ptaki jednym kamieniem. Ten skrypt pokaże Ci, jak to zrobić edytować rejestr 5 Ulepszeń rejestru systemu Windows 10 w celu poprawy i odblokowania funkcjiEdytor rejestru to jedyny sposób włączenia niektórych ukrytych funkcji systemu Windows 10. Tutaj pokażemy Ci proste poprawki, takie jak włączenie ciemnego motywu lub ukrywanie folderów. Czytaj więcej ze skryptem VB. Otrzymasz również skrypt, który pozwoli Ci ustawić domyślną nazwę użytkownika i hasło systemu Windows, edytując te ustawienia rejestru.

Oto jak to działa. Po pierwsze, ponieważ edycja rejestru wymaga uprawnień administratora, musisz ustawić podwyższone uprawnienia dla skryptu:

Jeśli nie WScript. Argumenty. O imieniu. Istnieje („Elevate”), a następnie CreateObject („Shell. Aplikacja ”). ShellExecute WScript. Pełna nazwa _ i WScript. ScriptFullName & / elevate ”,„ ”,„ runas ”, 1 WScript. Porzucić. End If

Najpierw uruchom dwa pola wprowadzania, aby zapytać użytkownika, jakiej nazwy użytkownika i hasła użyć:

strUserName = Inputbox („Wprowadź domyślną nazwę użytkownika”, „Wymagane dane wejściowe”) strPassword = Inputbox („Wprowadź domyślne hasło”, „Wymagane dane wejściowe”)

Następnie skonfiguruj obiekt powłoki i zapisz te wartości w odpowiednich kluczach rejestru:

Ustaw wshShell = CreateObject („WScript. Muszla" ) 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” Ustaw wshShell = Nic

I to wszystko. Metoda „RegWrite” umożliwia zapisanie dowolnej wartości do dowolnego klucza rejestru za pomocą skryptu VB Windows. Wszystko, co musisz wiedzieć, to właściwa ścieżka.

Uruchom skrypt i odpowiedz na pytania.

Podane wartości zostaną wstawione bezpośrednio do ustawień rejestru skonfigurowanych w skrypcie.

Pobaw się scenariuszem i dostosuj go do własnych upodobań. Możesz edytować dowolne klucze rejestru, więc bądź kreatywny!

4. Zresetuj połączenie sieciowe

Resetowanie połączenia sieciowego za pomocą skryptów VB Jak napisać skrypt systemu Windows, aby zmienić ustawienia sieciowe w locieW wielu biurach lub środowiskach pracy może być konieczne przedefiniowanie ustawień sieciowych, aby połączyć się z różnymi sieciami. Wystarczająco często znajdowałem się w takiej sytuacji i miałem dość przeglądania stron ... Czytaj więcej to coś, co omówiliśmy wcześniej tutaj w MakeUseOf. Następująca wersja tego jest w rzeczywistości zmniejszona i znacznie prostsza do wdrożenia. Zamiast monitowania o pojedyncze karty sieciowe, resetuje wszystkie aktywne połączenia, co, mam nadzieję, rozwiązałoby wszelkie problemy z siecią.

Podobnie jak w przypadku innych skryptów wymagających uprawnień administratora, musisz dodać tę sekcję na początku, aby uzyskać podwyższone uprawnienia. Skopiuj ten kod ze skryptu powyżej.

Następnie utwórz obiekt WMI i zapytaj go o listę włączonych kart sieciowych w systemie:

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

Na koniec obejrzyj wszystkie włączone karty i zresetuj je:

Dla każdego objItem w colItems objItem. Wyłącz WScript. Sleep 1000 objItem. Włączyć. Kolejny

Spowoduje to zresetowanie wszystkich aktywne karty sieciowe 8 poleceń CMD do zarządzania sieciami bezprzewodowymi w systemie WindowsUżyj wiersza polecenia, aby kontrolować swoją sieć Wi-Fi. Oto najbardziej przydatne polecenia do rozwiązywania problemów z siecią domową. Czytaj więcej , co często jest najszybszym sposobem rozwiązania irytujących problemów z siecią. Trzymaj ten skrypt pod ręką i wypróbuj go najpierw, gdy masz powolną sieć lub inne dziwne problemy z siecią.

5. Urządzenia ping lub strony internetowe

Na koniec zapisałem mój ulubiony skrypt Windows VB. To właśnie skonfigurowałem jako zaplanowane zadanie na moim komputerze domowym i uruchamiam je kilka razy dziennie tylko po to sprawdź, czy moja strona jest aktywna 3 sposoby, aby dowiedzieć się, czy twoja ulubiona strona internetowa nie działaIstnieje kilka stron internetowych, które poświęcone są po prostu odpowiedzi na podstawowe pytanie w końcu zapytasz: „Czy ta witryna jest wyłączona?” Tutaj mamy trzy takie strony internetowe, i są wszystko... Czytaj więcej . Skrypt wysłał mi wiadomość e-mail, jeśli witryna nie działa. Możesz użyć tego samego skryptu, aby monitorować ważne serwery lub komputery w sieci i wysyłać e-maile za każdym razem, gdy skrypt nie może pingować urządzenia.

Najpierw skonfiguruj skrypt dla celu, który chcesz pingować, utwórz obiekt powłoki, a następnie uruchom polecenie ping.

strTarget = "topsecretwriters.com" Ustaw WshShell = WScript. CreateObject („WScript. Muszla") Ping = WshShell. Uruchom („ping -n 1” i strTarget, 0, prawda)

Użyj instrukcji Select Case, aby przejrzeć wyniki Ping i odpowiednio zareagować. Jeśli wyniki powrócą do zera, oznacza to, że witryna (lub serwer) jest online i nie musisz nic robić. Jeśli zwraca „1”, ping nie powiódł się i musisz coś zrobić. W moim przypadku wysyłam wiadomość e-mail za pomocą obiektu CDO systemu Windows:

Wybierz przypadek Ping Przypadek 0 Przypadek 1 Ustaw objMessage = CreateObject („CDO.Message”) Ustaw objConfig = CreateObject („CDO.Configuration”) objConfig. Załaduj -1 Ustaw 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 .Update End With With objMessage Set .Configuration = objConfig .Subject = "Twoja strona jest offline". = „[email protected]” .To = „[email protected]” .TextBody = „Hej, Twoja witryna jest offline.”. Wyślij koniec Z. End Wybierz

Gdy skrypt uruchomi się i nie będzie mógł pingować urządzenie lub stronę internetową, otrzymasz natychmiastową wiadomość.

Jest szybki i łatwy, a każdy wydajny!

Używanie skryptów Windows VB do sterowania komputerem

To tylko kilka przykładów fajnych rzeczy, które możesz zrobić ze skryptami VB, aby usprawnić korzystanie z komputera. Istnieje wiele innych rzeczy, które możesz zrobić zautomatyzowane kopie zapasowe z VB i Synctoy Jak utworzyć narzędzie do tworzenia kopii zapasowych danych za pomocą SyncToy & VB ScriptW MUO omówiliśmy wiele rozwiązań do tworzenia kopii zapasowych, a wszystkie te rozwiązania są świetne, ale jeśli pracujesz w środowisku, które obawia się bezpłatnych pakietów oprogramowania innych firm lub firm ... Czytaj więcej , automatyzacja poleceń telnet Jak zautomatyzować polecenia Telnet za pomocą skryptu VBPisanie zadań wsadowych i ostatnio skryptów systemu Windows jest działaniem, które naprawdę stanowi większość jak znaczna większość administratorów sieci i systemów wykonuje swoje zadania szybciej i co upraszcza by... Czytaj więcej , lub nawet otwieraj i kontroluj okna aplikacji 3 sposoby otwierania aplikacji i Windows zmaksymalizowane za pomocą skryptu VB [Windows]Jeśli jest jedna rzecz, którą uwielbiam robić, to pisać skrypty VB. Niezależnie od tego, czy jest to plik skryptu Windows, czy skrypt VBA wewnątrz aplikacji, skrypty umożliwiają dodanie funkcji do aplikacji ... Czytaj więcej .

Jakie rzeczy zautomatyzowałeś na komputerze za pomocą skryptu Windows? Czy piszesz za pomocą VB, czy używasz innego narzędzia? jak PowerShell Polecenia cmdlet programu PowerShell, które poprawią Twoje umiejętności administracyjne w systemie WindowsPowershell to narzędzie wiersza polecenia i język skryptowy równych części. Daje to możliwość zautomatyzowania komputera za pomocą tych samych poleceń, których używasz do administrowania nim. Czytaj więcej ?