Wprowadzenie do skryptu VB: Przewodnik dla początkujących: Część 2: Praca z plikami: 13 kroków

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:34

Cóż, w moim ostatnim instruktażu VBScript omówiłem, jak stworzyć skrypt, który wyłączy Internet, aby grać w Xbox360. Dziś mam inny problem. Mój komputer wyłączał się losowo i chcę rejestrować za każdym razem, gdy komputer uruchamia się ponownie w pliku. Mam wrażenie, że problemem jest karta graficzna, ale chcę się upewnić. Pozostawiam komputer włączony przez cały czas, ale nie mogę go monitorować 24/7, więc moim najprostszym rozwiązaniem jest zapisanie znacznika czasu do pliku przy każdym ponownym uruchomieniu. Ponieważ za każdym razem daje mi BSOD, logowanie po wyłączeniu będzie trudne, więc muszę go uzyskać, gdy wróci. To łatwa część. Ponieważ jest to tylko tymczasowe, dopóki nie zorientuję się, co jest nie tak z komputerem, nie zamierzam pisać do rejestru ani robić z niego usługi, aby uruchomił się podczas rozruchu. I żeby go zrestartować za każdym razem, gdy się wyłączy, będę musiał edytować bios.

Krok 1: Edycja Biosu, aby uruchomić go ponownie po awarii zasilania

Nie jestem pewien, czy mój problem dotyczy awarii zasilania, mojej karty graficznej, czy co to jest. Ale wiem, że komputer co jakiś czas się restartuje. Tak więc, aby upewnić się, że uruchomi się ponownie po awarii zasilania (tzn. zasilacz zgaśnie), chcę edytować bios. Ze względu na fakt, że istnieje tak wielu różnych twórców biosów, byłoby zbyt trudno wymienić wszystkie sposoby na to na wszystkich różnych ekranach biosów, więc przedstawię wam tylko podstawy i pozwolę wam zrozumieć szczegóły na własną rękę. Zasadniczo, aby dostać się do swojego biosu, musisz nacisnąć przycisk na starcie. Zwykle powie coś w stylu „naciśnij Del, aby wejść do konfiguracji” lub „F2”. Różni producenci podają różne sposoby, ale zwykle jest to klawisz „F2” lub „Del”. Tak czy inaczej uważaj na to i naciśnij klawisz, który każe ci uderzyć. Teraz dojdziesz do ekranu, który jest zwykle szary lub niebieski, ale znowu zależy to od marki twojego biosu. Będziesz szukał opcji ustawień mocy. Będzie albo w oddzielnym oknie, jak na zrzucie ekranu AMIBIOS (zapożyczonym z przewodnika po sprzęcie toms) lub w niektórych może być w zaawansowanym oknie funkcji bios. W każdym razie szukasz ustawienia „przywróć po utracie prądu przemiennego/zasilania”. Może nosić inną nazwę, ale będzie to zbliżone. Po prostu go poszukaj. Zwykle ma trzy opcje (ostatni stan, włączony po utracie zasilania, wyłączony po utracie zasilania). Chcesz go włączyć po utracie zasilania. Upewnij się, że zapisałeś ustawienia i wyszedłeś z biosu. Teraz, gdy nastąpi awaria zasilania lub odłączysz urządzenie, uruchomi się ponownie, gdy tylko odzyska zasilanie. Yeahhhhhh!!!!!!!!!!!!!!!!!!!

Krok 2: Pisanie scenariusza Część 1: Tworzenie planu

Pierwszą rzeczą, którą chcemy zrobić, to stworzyć plan. Co dokładnie chcemy, aby skrypt zrobił. A.) Kiedy zasilanie zawiedzie lub pojawi się BSOD, chcemy, aby się zrestartował. (Zadbano o to w kroku 1 Edycja BiosB.) Gdy tylko zostanie ponownie uruchomiony, chcemy zapisać do pliku dokładną datę i godzinę ponownego uruchomienia. C.) Chcemy móc zmienić ten plik. Jeśli uruchomi się ponownie więcej niż raz, nigdy się nie dowiemy. aby wyświetlić komunikat z informacją, że został zrestartowany. F.) Chcemy, aby otworzył plik, do którego napisaliśmy, abyśmy mogli zobaczyć listę wszystkich ponownych uruchomień, gdy klikniemy OK w wyskakującym okienku wiadomości.

Krok 3: Pisanie skryptu Część 2: Tworzenie skryptu i przypisywanie zmiennych

Ok po pierwsze, utwórz dokument tekstowy i zmień jego nazwę na any_name.vbs. Użyłem shutdown_catcher.vbs, ale możesz użyć wszystkiego. Teraz po prostu kliknij prawym przyciskiem myszy plik vbs i naciśnij edytuj. Jeśli używasz teraz Notepad ++, byłby to dobry moment, aby go otworzyć, jeśli nie planujesz żadnego kodowania powinniśmy zastanowić się, jak to zrobić. Ok, teraz pierwszą rzeczą, którą chcemy zrobić, jest utworzenie zmiennych. Zmienne są w zasadzie tylko miejscami, więc nie musimy pisać wielu rzeczy kilka razy. przykład: mamy zdanie, które mówi „szybki brązowy lis przeskakuje z powrotem nad leniwymi psami”. ale jest w naszym kodzie 20 razy. możemy albo wpisać całe zdanie 20 razy, albo utworzyć zmienną i przypisać zdanie do tej zmiennej. Więc w tym przykładzie tworzymy zmienną strSentence, a następnie przypisujemy „szybki brązowy lis przeskakuje z powrotem nad leniwymi psami” do tej zmiennej. Teraz wszystko, co musimy zrobić, to wpisać strSentence za każdym razem, gdy potrzebujemy zdania, a on wie, że należy wpisać „szybki brązowy lis przeskakuje z powrotem nad leniwymi psami”jak to zrobimy:Jeśli mamy wiele zmiennych tego samego typu, możemy wstawić je w tym samym wierszu i oddziel zmienne przecinkami. Aby utworzyć zmienną, musimy zrobić to, co nazywamy wymiarowaniem zmiennej. Aby to zrobić, wpisujemy Dim przed zmienną, a następnie wstawiamy przed zmienną prefiks, aby wiedzieć, co reprezentuje zmienna. Przykładami są str dla zmiennej łańcuchowej obj dla zmiennej obiektowej const dla stałej… Lista jest długa. są to te, których użyjemy w tym skrypcie, więc wyjaśnię je trochę. ciąg jest zwykle tekstem jak zdanie. Obiekt jest zwykle czymś fizycznym, takim jak plik lub program. a stała to coś, co zawsze będzie miało to samo znaczenie w całym skrypcie. UWAGA: ZA KAŻDYM RAZEM W LINII MA POJEDYNCZY ' PRZED NIĄ, WIERS ZOSTANIE ZIGNOROWANY PRZEZ SKRYPTY. MOGĄ PAMIĘTAĆ, CO ZROBILI PÓŹNIEJ PODCZAS PRZEGLĄDANIA KODEKSU. WYKORZYSTUJĘ ICH DO KOMENTARZÓW DOTYCZĄCYCH KODU, Abyś mógł zobaczyć, DLACZEGO ZROBIŁEM TAK, JAK ZROBIŁEM. I BĘDĄ POWYŻEJ LINII, O KTÓREJ KOMENTUJĄ. Aktualne użycie:'ta linia wymusza zdefiniowanie wszystkich zmiennych. Bez niego każda niezdefiniowana zmienna będzie traktowana jako objectOption Explicit'teraz tworzymy 5 zmiennych dla potrzebnych nam folderów i plików'nazwij je jak chcesz, ale konwencja to preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'teraz potrzebujemy aby utworzyć zmienne łańcuchowe dla katalogu, pliku i nazwy pliku Dim strDir, strFile, strFileName'teraz przypisz wartości do zmiennych'strDir jest naszym katalogiem, chcemy folder w strDir = "C:\Catcher"'strFile jest tam, gdzie chcemy dokument tekstowy i jego nazwęstrFile = "\Shutdown_catcher.txt"'nazwa pliku strfile jest tak, że mamy nazwę pliku do użycia w pop upsstrFileName ="Shutdown_catcher.txt"'następnie musimy przypisać stałą dostęp do plik mamy trzy opcje"będziemy używać tylko dodawania w tym kodzie, ale fajnie jest znać je wszystkie. Const forReading=1, forWriting = 2, ForAppending = 8"na koniec musimy ustawić zmienną do systemu plików obiekt, dzięki czemu możemy go później wywołać, gdy będziemy go potrzebowaćSet objFiS yOb = CreateObject("Skrypty. FileSystemObject")

Krok 4: Wyjaśnienia pomiędzy

Teraz, gdy mamy już zwymiarowane zmienne, wszystko, co musimy zrobić, to przywołać tę konkretną zmienną za każdym razem. To nie tylko zmniejsza ilość pisania, ale także tworzy mniej błędów z powodu błędów ortograficznych. Teraz technicznie wszystko, co musimy zrobić, to wpisać następujący kod i gotowe. & strFile, ForAppending, True)'napisz nowy wiersz do fileobjTextFile. WriteLine("Wyłącz komputer w dniu " & data & " o " i godzina)'zamknij fileobjTextFile. Close'utwórz wyskakujące okienkoWscript. Echo ("Twój Wyłącz komputer w dniu „ & data i „ o godzinie „ i godzina)'otwórz plik w IESet objShell = CreateObject("WScript. Shell")objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") Problem polega na tym, że nie będzie miał korekcji błędów, a każdy prosty błąd, taki jak nieistniejący plik lub już przypisana zmienna, spowoduje zawieszenie skryptu.

Krok 5: Pisanie skryptu Część 3: Instrukcje If Then jako korekcja błędów

Najłatwiejszym sposobem korekcji błędów jest użycie instrukcji if/then. Zasadniczo instrukcja if then mówi, że jeśli coś się stanie, zrób to, w przeciwnym razie zrób to. Zagnieżdżając instrukcje if/then, możesz stworzyć ciąg rzeczy, które muszą się wydarzyć. Jeśli wystąpią a, b i c, zrób to w przeciwnym razie zrób to. przykład: chcemy się upewnić, że plik, do którego chcemy pisać, jest tam, jeśli go znajdziemy, nie chcemy robić nic, jeśli go nie znajdziemy, chcemy go utworzyć lub chcesz sprawdzić, czy folder tam jest, a jeśli nie, utwórz go, a następnie sprawdź, czy plik jest tam, gdy znajdziemy folder, a jeśli nie utwórz go, pierwszy jest przykładem instrukcji if then drugi jest zagnieżdżony if then. robimy to: instrukcja if then składa się z czterech części if/then elseend jeśli jest to w zasadzie jeśli to prawda, zrób to w przeciwnym razie zrób to, a następnie zakończ instrukcję poprawnie zakodowaną instrukcją if then:If coś = coś Następnie wykonaj co trzeba zrobićW przeciwnym razie zrób coś innegoZakończ JeśliMożesz użyćdowolnego argumentu, o ile jest on prawdziwy, nastąpi po części then i zignorujesz część else ale jeśli jest fałszem pominie to i przejdzie do innego Następnie kiedy zakończymy instrukcję if wstawiamy "end if", ale jeśli mamy zagnieżdżone instrukcje if, musimy kończyć każdą instrukcję if. Zakończy je od dziecka do rodzica, więc pierwsze „end if” kończy instrukcję if wewnątrz rodzica, gdzie druga kończy oryginalną (rodzic) instrukcję if. Aby utworzyć wyskakujące okienko, po prostu wpisujemy Wscript. Echo („cokolwiek chcemy powiedzieć w wiadomości "), aby dodać do niej wartość zmiennej, umieściliśmy ją na zewnątrz lub między podwójnymi cudzysłowami, używając znaku ampersand (&) jako ogranicznika, aby skrypt wiedział, że jest to zmienna, a nie tekst.:Wscript. Echo ("Blah blah blah " & strDir & " blah blah blah "& strFilename & " blah blah blah.") Wynikiem będzie wyskakujące okienko z komunikatem Blah blah blah C:\Catcher blah blah blah shutdown_catcher.txt blah blah blah. Rzeczywiste użycie:'if folder C;\exist If objFiSyOb. FolderExists(strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwise'otherwise'create folder c;\catcher Set objSysFold = objSysFold = CreateFolder(strDir)'i sprawdź, czy plik i folder istnieje If objFiSyOb. FileExists(strDir & strFile) Then'jeśli otrzyma folder c:\catcher Ustaw ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'utwórz dokument tekstowy shutdown_catcher.txt Ustaw objFile = objFiSyOb. CreateTextFile(strDir & strFile)'następnie pojawi się komunikat z informacją, że utworzyłeś je obie Wscript. Echo („Utworzyliśmy folder nazwany " & strDir & " oraz plik o nazwie "& strFilename & " i umieszczony w katalogu " & strDir & strFile & ".")'end zagnieżdżony if statementEnd If'end oryginalny if statementEnd If'now w pierwszej instrukcji if już sprawdziliśmy folder i znaleźliśmy go, więc teraz sprawdzamy plikIf objFiSyOb. FileExists(strDir & strFile) Then'if znaleziony pobierz folder Set objSysFold = objFiSyOb. GetFolder(strDir)'inaczej Else'utwórz dokument tekstowy Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'utwórz wyskakujące okienko z informacją, że utworzyliśmy dokument tekstowy Wscript. Echo ("Utworzyliśmy plik o nazwie " & strFileName & " w folderze plików " & strDir & ".")End If

Krok 6: Wyjaśnienia pomiędzy

Jeśli przyjrzysz się uważnie kodowi z poprzedniego kroku, zobaczysz zarówno zagnieżdżoną, jak i niezagnieżdżoną instrukcję if then. Pierwsza z nich to instrukcja zagnieżdżona. Sprawdza folder i plik, a jeśli ich nie znajdzie, tworzy oba. Drugi szuka tylko pliku, a jeśli nie znajdzie, tworzy tylko plik. Można powiedzieć, dlaczego jedno i drugie. Co się stanie, jeśli plik zostanie usunięty, ale folder nie. Pierwsza instrukcja if pominęłaby bezpośrednio tworzenie pliku, ponieważ znalazła folder i nigdy nie uruchomiłaby innej części instrukcji. Więc kiedy poszedłeś do zapisu do pliku, wystąpiłby błąd, ponieważ pliku by brakowało. Więc mając tam drugi, rozwiązuje ten problem. Technicznie rzecz biorąc, można usunąć zagnieżdżoną instrukcję, ponieważ jest prawie taka sama jak druga instrukcja if, ale wtedy pojawi się tylko jedno wyskakujące okienko i nie będzie tak osobiste. -zagnieżdżone instrukcje if.

Krok 7: Więcej korekcji błędów

Teraz, gdy zakończyliśmy większość korekcji błędów, chcemy zapisać do pliku i wyświetlić wyskakujące okienka. Problem polega na tym, że otrzymamy błędy uprawnień, jeśli nie zwolnimy odniesienia do poprzedniego obiektu przechowywanego w zmiennej. Więc chcemy umieścić mały fragment kodu, który mówi ustaw zmienne na Nothing.wygląda tak:set objFile = Nothingset objSysFold = NothingTak więc dla tych z Was, którzy podążają w domu, Twój kod do tego momentu powinien być (wziąłem komentarz out):Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shutdown_catcher.txt = 2"Forst forRead ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Then Ustaw objSysFold = objFiSyOb. GetFolder(strDir)Else Ustaw objSysFold = objFiSyOb. CreateFirOb. Ustaw objSysFold = objFiSyOb. GetFolder(strDir)Else Ustaw objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Utworzyliśmy folder o nazwie " & strDir & " oraz plik o nazwie "& strFilename & " i umieściliśmy go w katalog " & strDir & strFile & ".")End I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo (" W strFile utworzyliśmy plik o nazwie & " & strDir & "folder plików.")End Ifset objFile = noneset objSysFold = nic

Krok 8: Pisanie skryptu Część 4: Ustawianie atrybutów

Teraz musimy ustawić atrybuty do pliku, abyśmy mogli go zmienić. Poprzednio ustawiliśmy trzy stałe zmienne:forReading=1forWriting=2 forAppending=8jeśli ustawisz ją na forReading, będziesz mógł ją czytać, ale nie będziesz mógł do niej zapisywać. Jeśli ustawisz ją na forWriting, nadpiszesz istniejący plik za każdym razem, gdy uruchomisz program. Jeśli ustawisz go na forAppending, dodasz nowy wiersz za każdym razem, gdy skrypt zostanie wykonany w dokumencie. Ponieważ chcemy, aby rejestr przy każdym ponownym uruchomieniu był dodawany, a nie nadpisywany, więc używamy forAppending. Jak to robimy:musisz nazwać obiekt, któremu chcesz przypisać atrybuty. Ponieważ większość pracy w poprzednich krokach wykonaliśmy już, wystarczy w tym momencie przywołać zmienne. Następnie ustaw go na true. Actual Usage:'object to set = filesystemobject.action(katalog+nazwa pliku, atrybut, true lub false)Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Krok 9: Pisanie skryptu Część 5: Pisanie do pliku

Pisanie do pliku przypomina pisanie wyskakującego okienka. Po prostu wstawiasz:objTextFile. WriteLine("Cokolwiek chcesz powiedzieć " & Zmienna do wciągnięcia do linii pisania)Jedyna różnica to pierwsza część. W wyskakującym okienku wstawiasz:Wscript.echoin linię zapisu, którą wpisałeś:objTextFile. WriteLineI w wierszu zapisu musisz zamknąć wiersz zapisu, aby wiedział, że ma przestać pisać, a do tego użyj:objTextFile. CloseRzeczywiste użycie:objTextFile. WriteLine("Twój komputer wyłącz w dniu " & date & " o " & time)objTextFile.close'teraz dodaj wyskakujące okienko, aby powiedzieć, że napisałeś do pliku, aby osoba wiedziała, że to się stało'i muszą go zamknąć, aby otworzyć plik i wyświetlićWscript. Echo („Twój komputer wyłącz w dniu” i data i „ o” & czas)

Krok 10: Pisanie skryptu Część 5: Otwieranie pliku do przeglądania

Skrypt zatrzyma się w tym momencie, dopóki ktoś nie kliknie wyskakującego okienka. Gdy miniesz wyskakujące okienko, możesz umieścić w nim linię, która otworzy plik. Użycie pewnej korekty błędów pomaga w utrzymaniu prawidłowego działania programu. Kiedy tworzysz błąd w vbscript, dodaje on wartość do zmiennej "err.number", która jest wstępnie zdefiniowaną zmienną w vbscript. Nie musisz jej definiować i możesz jej używać tak jak każdej innej zmiennej, o ile nie naruszasz jej zasad. Wartość przypisana do zmiennej err.number jest kodem błędu, który wystąpił. Teraz możesz sprawdzić każdy kod błędu znany w bazie danych vbscript i upewnić się, że nie wystąpił. Lub prościej jest po prostu sprawdzenie, czy zmienna err.number jest pusta. jeśli jest pusty, nie wystąpiły żadne błędy. Aby to zrobić, po prostu sprawdzamy, czy zmienna jest równa vbEmpty. Więc w naszym skrypcie chcemy użyć innej instrukcji if then. I sprawdź, czy wystąpił błąd i czy nie otworzył pliku do przeglądania, ale jeśli tak, to pojawi się komunikat z numerem błędu w nim, abyśmy mogli debugować. Następnie, gdy skończymy z naszym skryptem, wpisz Wscript. Zakończ. To mówi skryptowi, aby sam się zakończył. Pomaga to ograniczyć wycieki pamięci i działanie niechcianych procesów. Jak jest używany: jeśli err.number jest równy vbEmpty, utwórz powłokę, a następnie uruchom program z powłoki, w przeciwnym razie pojawi się komunikat z informacją, że wystąpił błąd, jeśli. errorIf err.number = vbEmpty then'jeśli żadna nie tworzy powłoki Set objShell = CreateObject("WScript. Shell")'następnie otwórz plik z tej powłoki za pomocą eksploratora. faktycznie otworzy się w IE, chociaż objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")'w przeciwnym razie pojawi się komunikat z numerem błęduElse WScript.echo "VBScript Error: " & err.numberEnd If 'zakończ skryptWscript.quit

Krok 11: Uzyskanie skryptu do uruchomienia podczas uruchamiania

W menu Start znajduje się folder plików o nazwie Uruchamianie. Wszystko umieszczone w tym folderze zostanie uruchomione zaraz po uruchomieniu komputera. Umieszczając plik skryptu w folderze startowym, będzie on wykonywany za każdym razem, gdy komputer zostanie ponownie uruchomiony, niezależnie od tego, czy jest to celowe, czy nie. Ponieważ używam tego tylko jako narzędzia diagnostycznego, nie trzeba go przekształcać w usługę, aby rozpocząć, i nie muszę umieszczać go w rejestrze, aby go uruchomić, więc będzie dobrze. Po naprawieniu komputera mogę usunąć plik z folderu startowego i nie jest wymagane żadne inne czyszczenie.

Krok 12: Uruchamianie programu

Kiedy wykonasz plik vbscript, będzie on teraz A.) Sprawdź, czy istnieje folder C:\Catcher, a jeśli nie, utwórz go. B:) Sprawdź, czy plik Shutdown_catcher.txt istnieje, a jeśli nie, utwórz go. C:) Jeśli utworzył folder lub plik lub oba, pojawi się komunikat informujący, że je utworzył (Uwaga: powinien to zrobić tylko przy pierwszym uruchomieniu, po czym powinien już tam być, chyba że zostanie usunięty, więc powinieneś zobaczyć tę wiadomość tylko raz. Dobrym pomysłem może być uruchomienie tego skryptu raz podczas kontrolowanego restartu, aby móc ominąć te wyskakujące okienka lub nie możesz nic zapisywać do pliku, ponieważ nie ominie on utworzonych wyskakujących okienek.) D:) Napisz linię w dokument tekstowy Shutdown_Catcher.txt mówiący o wyłączeniu komputera w taki a taki dzień o takiej a takiej godzinie. E:) Pojawia się komunikat mówiący, że nastąpiło ponowne uruchomienieF:) Otwórz plik do przeglądania. Jeśli spojrzysz w następnym kroku zobaczysz kod tak, jak został napisany. Teraz wszystko, co muszę zrobić, to usiąść i czekać. Za każdym razem, gdy komputer zostanie ponownie uruchomiony, będę miał o tym zapis. Następnie mogę przejrzeć zapis i sprawdzić, czy jest w nim jakaś spójność. Przykładem może być ponowne uruchamianie się co pół godziny lub ponowne uruchamianie za każdym razem, gdy na zegarze pojawi się przyrost lub 45. Nie jest to bynajmniej jedyny sposób, w jaki sprawdzam komputer. Mam też uruchomiony program do testów porównawczych, aby sprawdzić temperaturę, więc wiem, jak gorąco jest, gdy się wyłącza, napięcie, więc wiem, czy zasilacz nie działa, i kilka innych przydatnych rzeczy. Cóż, mam nadzieję, że to było pomocne. Wiem, że to lubię, więc może inni też. Jeśli masz jakieś pytania, nie wahaj się ich zapytać. Może nie dotrę do nich od razu, ale za chwilę i odpowiem. Zależy od tego, jak mija dzień/tydzień.

Krok 13: Kodeks

To jest kod napisany bez wszystkich wskazówek i uwag_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt="""txtdown_Name. Const forReading=1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Następnie ustaw objSysFold = objFiSyOb. GetFolder(strDir)Else Ustaw objSyFisFold objFiSyOb. FileExists(strDir & strFile) Następnie ustaw objSysFold = objFiSyOb. GetFolder(strDir)Else Ustaw objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Utworzyliśmy folder o nazwie " i plik o nazwie & strDir "& strFilename & " i umieścił go w katalogu " & strDir & strFile & ".")End IfEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objateFiSyOble. strDir & strFile) Wscript. Echo („Mamy utworzył plik o nazwie " & strFileName & " w folderze plików " & strDir & ".")End Ifset objFile = Nothingset objSysFold = NothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)objTextFile. WriteLine("Twój komputer Zamknij w dniu „ i data i „ o godzinie” i godzinie)objTextFile. CloseWscript. Echo („Wyłącz komputer w dniu „ i data i „ o godzinie „ i godzinie)If err.number = vbEmpty, a następnie Set objShell = CreateObject(„WScript. Shell") objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") W przeciwnym razie WScript.echo "Błąd VBScript: " & err.numberEnd IfWScript. Quit