VB -skriptin esittely: aloittelijan opas: Osa 2: Tiedostojen käsittely: 13 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

No, viimeisessä VBScript -ohjeessani kävin läpi kuinka tehdä komentosarja Internetin sammuttamiseksi Xbox360: n pelaamiseksi. Tänään minulla on erilainen ongelma. Tietokoneeni on sammunut satunnaisesti ja haluan kirjautua joka kerta, kun tietokone käynnistyy uudelleen tiedostoksi. Minusta tuntuu, että ongelma on näytönohjaimessa, mutta haluan varmistaa. Jätän tietokoneen aina päälle, mutta en voi valvoa sitä 24/7, joten helpoin ratkaisu on kirjoittaa aikaleima tiedostoon joka kerta, kun se käynnistyy uudelleen. Koska se antaa minulle BSOD: n joka kerta, kirjautuminen, kun se sammuu, on vaikeaa, joten minun on hankittava se, kun se palaa. Koska tämä on vain väliaikaista kunnes saan selville, mikä tietokoneessa on vialla, en aio kirjoittaa rekisteriin tai tehdä siitä palvelua, jotta se käynnistyy käynnistyksen yhteydessä. Ja jotta se käynnistyy uudelleen aina, kun se sammuu, minun on muokattava bios.

Vaihe 1: Biosin muokkaaminen, jotta se käynnistyy uudelleen virtakatkoksen aikana

En ole varma, onko ongelmani virtalähteen vika tai videokortti vai mikä se on. Mutta tiedän, että tietokone käynnistyy uudelleen aina silloin tällöin. Joten varmistaakseni, että se käynnistyy uudelleen sähkökatkon jälkeen (IE: virtalähde ruskeaa), haluan muokata biosia. Koska siellä on niin paljon erilaisia bios -valmistajia, olisi liian vaikeaa luetella kaikkia erilaisia tapoja tehdä tämä kaikissa bios -näytöissä, joten aion vain antaa sinulle perusasiat ja antaa sinun selvittää Periaatteessa päästäksesi biosiin sinun on painettava käynnistyspainiketta. Yleensä se sanoo jotain "paina Del päästäksesi asetuksiin" tai "F2". Eri valmistajat antavat sinulle erilaisia tapoja, mutta se on yleensä joko "F2" tai "Del" -näppäin. Kummassakin tapauksessa katso sitä ja paina näppäintä, jonka se kertoo lyödäsi. Nyt tulet näyttöön, joka on yleensä joko harmaa tai sininen, mutta taas se riippuu bios -merkistäsi. Etsit tehoasetuksia. Se on joko ikkunassa, kuten AMIBIOS -kuvakaappauksessa (lainattu toms -laitteisto -oppaasta), tai joissakin se voi olla kehittyneiden bios -ominaisuuksien ikkunassa. Joka tapauksessa etsit "palauta AC/tehohäviö" -asetusta. Sen nimi voi olla jokin muu, mutta se on lähellä sitä. Etsi sitä. Siinä on yleensä kolme vaihtoehtoa (viimeinen tila, päällä virran katkeamisen jälkeen, pois päältä virran katkeamisen jälkeen). Haluat ottaa sen käyttöön virran katkeamisen jälkeen. Muista tallentaa asetukset ja poistua biosista. Nyt kun sähköt katkeavat tai irrotat koneen pistorasiasta, se käynnistyy uudelleen heti, kun se saa virran takaisin. Joohhhhh !!!!!!!!!!!!!!!!!

Vaihe 2: Käsikirjoituksen kirjoittaminen Osa 1: Suunnitelman tekeminen

Ensimmäinen asia, jonka haluamme tehdä, on luoda suunnitelma. Mitä tarkalleen haluamme käsikirjoituksen tekevän A.) Kun virta katkeaa tai BSOD tulee näkyviin, haluamme sen käynnistyvän uudelleen. (Huolehdittu vaiheessa 1 BiosB: n muokkaaminen.) Heti kun se käynnistyy uudelleen, haluamme kirjoittaa tiedostoon tarkan päivämäärän ja kellonajan, jolloin se käynnistettiin uudelleen. C.) Haluamme pystyä muuttamaan tätä tiedostoa. Jos se käynnistyy uudelleen useammin kuin kerran, emme koskaan saisi tietää. F.) Haluamme sen avaavan kirjoittamamme tiedoston, jotta voimme nähdä luettelon kaikista uudelleenkäynnistyksistä, kun napsautamme viestin ponnahdusikkunassa ok.

Vaihe 3: Skriptin kirjoittaminen Osa 2: Skriptin luominen ja muuttujien määrittäminen

Ok ensin, luo tekstiasiakirja ja nimeä se uudelleen muotoon any_name.vbs. Käytin shutdown_catcher.vbs, mutta voit käyttää mitä tahansa. Napsauta nyt hiiren kakkospainikkeella vbs -tiedostoa ja napsauta Muokkaa. Ensimmäinen asia, jonka haluamme tehdä, on luoda muuttujia. Muuttujat ovat pohjimmiltaan vain paikkamerkki, joten meidän ei tarvitse kirjoittaa koko joukko juttuja monta kertaa. Esimerkki: meillä on lause, joka sanoo "nopea ruskea kettu hyppää laiskojen koirien taakse". mutta se on koodissamme 20 kertaa. Voimme joko kirjoittaa koko lauseen 20 kertaa tai luoda muuttujan ja määrittää lause sille muuttujalle. Niin tässä esimerkissä luomme muuttujan strSentence ja osoitamme sitten "nopea ruskea kettu hyppää laiska koirien yli" kyseiselle muuttujalle. Nyt meidän tarvitsee vain kirjoittaa strSentence aina, kun tarvitsemme lauseen, ja se osaa kirjoittaa "nopea ruskea kettu hyppää laiskojen koirien taakse", miten teemme sen: Jos meillä on useita samantyyppisiä muuttujia, voimme laittaa ne samalla rivillä ja erottele muuttujat pilkuilla. Muuttujan luomiseksi meidän on tehtävä niin kutsuttu muuttujan mitoitus. Tätä varten kirjoitamme Dim ennen muuttujaa ja asetamme muuttujalle etuliitteen, jotta tiedämme, mitä muuttuja edustaa. Esimerkkejä ovat str merkkijonomuuttujalle obj objektimuuttujalle const vakiolle…. Lista jatkuu ja jatkuu. näitä käytämme tässä käsikirjoituksessa, joten selitän niitä hieman. merkkijono on yleensä teksti kuin lause. Objekti on yleensä jotain fyysistä, kuten tiedosto tai ohjelma. ja vakio on asia, jolla on aina sama merkitys koko käsikirjoituksessa. He voivat muistaa, mitä he tekivät myöhemmin, kun tarkistivat koodia. KÄYTÄN KÄYTETTÄVÄT NE KOODISTA HUOMAUTUKSIA, ETTÄ NÄET NÄKYVÄT, MIKSI TASOIN TAVAN. JA NE OVAT YLI RIVIN YLLÄ, JOTKA KOMMENTOIVAT. Todellinen käyttö: 'Tämä rivi pakottaa sinut määrittämään kaikki muuttujat. Ilman sitä mitä tahansa määrittelemätöntä muuttujaa käsitellään objektinaOption Explicit'Nyt luomme 5 muuttujaa kansioille ja tiedostoille, joita tarvitsemme'nimitä ne haluamallasi tavalla, mutta käytäntö on preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile' nyt tarvitsemme luoda merkkijonomuuttujia hakemistolle, tiedostoille ja tiedostonimilleDim strDir, strFile, strFileName'now antaa arvot muuttujille'tstrDir on hakemistomme haluamme kansion strDir = "C: Catcher" 'strFile on haluamamme tekstiasiakirja ja sen nimistrFile = "\ Shutdown_catcher.txt" 'strfilen nimi on niin, että meillä on tiedoston nimi käytettäväksi pop upsstrFileName = "Shutdown_catcher.txt"' seuraavaksi meidän on määritettävä vakio pääsyä varten tiedostossa meillä on kolme vaihtoehtoa'käytämme vain tämän koodin liitetiedostoja, mutta on mukava tietää ne kaikki. Const forReading = 1, forWriting = 2, ForAppending = 8 ' objekti, jotta voimme kutsua sitä myöhemmin, kun sitä tarvitaanSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Vaihe 4: Selitykset välillä

Nyt kun muuttujamme on mitoitettu, meidän on vain muistettava kyseinen muuttuja joka kerta. Tämä ei ainoastaan vähennä kirjoittamistamme, vaan myös vähentää virheitä kirjoitusvirheiden vuoksi. Nyt teknisesti kaikki mitä meidän on tehtävä, on kirjoittaa seuraava koodi ja olemme valmiit 'aseta tiedosto liitettäväksiSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'kirjoita uusi rivi tiedostoonobjTextFile. WriteLine ("Tietokoneesi sammuu" & date & "at" & time ") sulje fileobjTextFile. Close'tehdä ponnahdusikkunaWscript. Echo (" Your tietokone Sammuta "& date &" at "& time) '' avaa tiedosto IESetissä objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Ongelmana on, että siinä ei ole virheenkorjausta, ja kaikki yksinkertaiset virheet, kuten tiedosto, jota ei ole, tai jo määritetty muuttuja, kaatavat komentosarjan.

Vaihe 5: Käsikirjoituksen kirjoittaminen Osa 3: Jos niin, lauseet virheenkorjauksena

Helpoin tapa tehdä virheen korjaus on käyttää if/then -lausekkeita. Periaatteessa if then -lauseke sanoo, jos jotain tapahtuu, tee tämä muuten. Sijoittamalla if/sitten -lausekkeet voit luoda merkkijonon asioita, joiden on tapahduttava. Jos a ja b ja c tapahtuvat, tee tämä muu. Esimerkki: haluamme varmistaa, että tiedosto, johon haluamme kirjoittaa, on olemassa, jos löydämme sen, haluamme tehdä mitään, jos emme löydä sitä, haluamme luoda sen tai me haluat tarkistaa, onko kansio siellä ja jos ei, luo se ja tarkista sitten, onko tiedosto siellä, kun löydämme kansion ja jos ei, luo tämä ensimmäinen esimerkki jos jos sitten -lauseesta, toinen on sisäkkäinen, jos sitten. me teemme sen: jos sitten lauseessa on neljä osaa if/sitten elseend jos se on periaatteessa jos tämä on totta, tee tämä muuten tee se sitten ja lopeta lause oikein koodattu jos sitten lause olisi: Jos jotain = jotain Sitten tee mitä sinun tarvitsee tehdä Muu tehdä jotain muuta Lopuksi Jos voit käyttää mitä tahansa argumenttia niin kauan kuin se on totta, se seuraa sitten osaa ja jättää huomiotta toisen osan, mutta jos se on epätosi, se ohittaa sitten ja siirtyy kohtaan Muu Sitten kun lopetamme if -lauseen laitamme "end if", mutta jos olemme laittaneet if -lauseet, meidän on lopetettava jokainen if -lause. Se lopettaa heidät lapselta vanhemmalle, joten ensimmäinen "end if" lopettaa if -lauseen vanhemman sisällä, jossa toinen lopettaa alkuperäisen (vanhemman) if -lauseen. Voit tehdä ponnahdusikkunan kirjoittamalla vain Wscript. Echo ("mitä tahansa haluamme sanoa viestissä ") lisätäksemme siihen muuttujien arvon, laitamme sen lainausmerkkien ulkopuolelle tai niiden väliin käyttämällä ampersand (&) -merkkiä erottimena, jotta komentosarja tietää sen olevan muuttuja eikä teksti. kuten tämä: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Tulos olisi ponnahdusikkuna, joka sanoi Blah blah blah C: / Catcher blah blah shutdown_catcher.txt blah blah blah. Todellinen käyttö: 'jos kansio C; / olemassa Jos objFiSyOb. FolderExists (strDir) Sitten'get kansio Aseta objSysFold = objFiSyOb. GetFolder (strDir)' muutenElse'luo kansio c; / sieppari Aseta objSysFoldObjFi CreateFolder (strDir) 'ja tarkista onko tiedosto ja kansio olemassa Jos objFiSyOb. FileExists (strDir & strFile) Sitten' jos se saa kansion c: / catcher Aseta ob jSysFold = objFiSyOb. nimeltä "& strDir &" ja tiedoston nimeltä "& strFilename &" ja sijoitti sen hakemistoon "& strDir & strFile &". ") 'end nested if utasítás tarkistimme jo kansion ja löysimme sen, joten nyt tarkistamme tiedostonIf objFiSyOb. FileExists (strDir & strFile) Sitten'Jos löytyi hanki kansio Aseta objSysFold = objFiSyOb. GetFolder (strDir) 'muuten Else'luoda teksti doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'luo ponnahdusikkunan sanomalla, että olemme luoneet tekstiasiakirjan Wscript. Echo ("Olemme luoneet tiedoston" & strFileName & "" & strDir & "-kansioon.") Lopeta

Vaihe 6: Selitykset välillä

Jos tarkastelet tarkasti edellisen vaiheen koodia, näet sekä sisäkkäisen että pesimättömän, jos sitten -lausekkeen. Ensimmäinen on sisäkkäinen lausunto. Se tarkistaa kansion ja tiedoston ja jos niitä ei löydy, luo molemmat. Toinen etsii vain tiedoston ja jos se ei löydä, se luo vain tiedoston. Voisi sanoa miksi molemmat. Mitä tapahtuu, jos tiedosto poistetaan, mutta kansio ei. Ensimmäinen if -lause ohittaisi tiedoston luomisen, koska se löysi kansion eikä koskaan aktivoi lauseen muuta osaa. Joten kun menit kirjoittamaan tiedostoon, se poistui virheestä, koska tiedosto puuttuu. Joten ottamalla toinen siellä se ratkaisee tämän ongelman. Teknisesti voit ottaa sisäkkäisen lausunnon pois, koska se on melkein sama kuin toinen, jos silloin -lauseke, mutta silloin sinulla olisi vain yksi ponnahdusikkuna eikä se olisi yhtä persoonallista. -armahti, jos lausunnot.

Vaihe 7: Lisää virheenkorjausta

Nyt kun olemme suorittaneet suurimman osan virheenkorjauksesta, jonka haluamme kirjoittaa tiedostoon ja näyttää ponnahdusikkunat. Joten haluamme laittaa pienen koodinpätkän, joka sanoo aseta muuttujat tyhjäksi. Näyttää tältä: set objFile = nothingset objSysFold = nothing Joten niille teistä, jotka seuraavat kotona, koodinne pitäisi olla (otin kommentin out): Vaihtoehto ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "for Shutdown_", ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Jos objFiSyOb. FolderExists (strDir) Määritä sitten objSysFold = objFiSyOb. GetFolder (strDir) Muu Aseta objSysFoldFr. OfBi Aseta objSysFold = objFiSyOb. GetFolder (strDir) Muu Aseta objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Olemme luoneet kansion nimeltä" & strDir & "ja tiedoston nimeltä" & strFilename & " "& strDir & strFile &" -hakemisto. ") Loppu I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Aseta sitten objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. File, jonka nimi on " "& strDir &" -kansio. ") Lopeta Ifset objFile = nothingset objSysFold = ei mitään

Vaihe 8: Käsikirjoituksen kirjoittaminen Osa 4: Määritteiden määrittäminen

Nyt meidän on asetettava tiedostolle määritteet, jotta voimme muuttaa sitä. Aikaisemmin asetimme kolme vakio muuttujaa: forReading = 1forWriting = 2 forAppending = 8 Jos asetat sen forReading, voit lukea sen, mutta et voi kirjoittaa siihen.. Jos asetat sen ForAppending, lisäät uuden rivin aina, kun komentosarja suoritetaan asiakirjaan.: sinun on nimettävä objekti, jolle haluat määrittää määritteet. Koska olemme tehneet suurimman osan töistä edellisissä vaiheissa, meidän on vain muistettava muuttujat tässä vaiheessa. Aseta sitten arvoksi true.

Vaihe 9: Skriptin kirjoittaminen Osa 5: Kirjoittaminen tiedostoon

Tiedostoon kirjoittaminen muistuttaa paljon ponnahdusikkunan kirjoittamista. Laitat vain: objTextFile. WriteLine ("Mitä haluat sanoa" ja muuttuja vetääksesi riville) Ainoa ero on ensimmäinen osa. Ponnahdusikkunassa laitat: Wscript.echoin kirjoittamasi rivin: objTextFile. WriteLineA Ja kirjoitusrivillä sinun on suljettava kirjoitusrivi, jotta se tietää lopettaa kirjoittamisen ja jota varten käytät: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Tietokoneesi sammutetaan" & date & "at" & time "objTextFile.close'now lisää ponnahdusikkuna, jossa sanot, että kirjoitit tiedostoon, jotta henkilö tietää sen tapahtuneen, ja hänen on suljettava se, jotta tiedosto avataan ja viewWscript. Echo ("Tietokoneesi sammutetaan" & date & "at" & aika)

Vaihe 10: Käsikirjoituksen kirjoittaminen Osa 5: Tiedoston avaaminen katseltavaksi

Käsikirjoitus pysähtyy tässä vaiheessa, kunnes joku napsauttaa ponnahdusikkunaa. Kun olet ohittanut ponnahdusikkunan, voit laittaa rivin, joka avaa tiedoston. Joidenkin virheenkorjausten käyttäminen auttaa pitämään ohjelman käynnissä hienosti. Kun luot virheen vbscriptissä, se lisää arvon "err.number" -muuttujalle, joka on ennalta määritetty muuttuja vbscriptissä. Sinun ei tarvitse määritellä sitä ja voit käyttää sitä aivan kuten mitä tahansa muuttujaa, kunhan et riko sen sääntöjä. Muuttujalle err.number annettu arvo on tapahtuneen virheen koodi. Nyt voit joko tarkistaa jokaisen vbscript -tietokannassa tunnetun virhekoodin ja varmistaa, ettei sitä tapahtunut. Tai helpompaa, on vain tarkistaa, että err.number -muuttuja on tyhjä. jos se on tyhjä, virheitä ei tapahtunut. Tätä varten tarkistamme vain, onko muuttuja sama kuin vbEmpty. Joten skriptissämme haluamme käyttää toista, jos sitten lausetta. Tarkista myös, tapahtuiko virhe ja jos se ei avannut tiedostoa katseltavaksi, mutta jos se tapahtui, ponnahdusviesti, jossa on virheen numero, jotta voimme korjata virheen. Kirjoita Wscript. Lopeta. Tämä käskee käsikirjoituksen lopettaa itsensä. Tämä auttaa pitämään muistivuodot ja ei -toivotut prosessit käynnissä. Kuinka sitä käytetään: jos err.number on yhtä suuri kuin vb errorIf err.number = vbEmpty''Jos kukaan ei luo kuorta Aseta objShell = CreateObject ("WScript. Shell") 'ja avaa sitten tiedosto kyseisestä kuorista explorerilla. se todella avautuu IE: ssä, vaikka objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'muutoin näyttää viestin, jossa on virhenumeroElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Vaihe 11: Käynnistä skripti käynnistyksen yhteydessä

Käynnistysvalikossa on tiedosto kansio nimeltä Käynnistys. Kaikki tähän kansioon sijoitetut asiat käynnistyvät heti, kun tietokone käynnistetään. Sijoittamalla komentotiedoston käynnistyskansioon se suoritetaan joka kerta, kun tietokone käynnistetään uudelleen tahallisesti tai ei. Koska käytän tätä vain diagnostiikkatyökaluna, siitä ei tarvitse tehdä palvelua käynnistyäkseen, eikä minun tarvitse laittaa sitä rekisteriin aloittaakseen sen, joten tämä on hyvä. Kun olen korjannut tietokoneen, voin poistaa tiedoston käynnistyskansiosta, eikä muita puhdistuksia tarvita.

Vaihe 12: Ohjelman suorittaminen

Kun suoritat vbscript -tiedoston, se tulee nyt A.) Tarkista, onko kansio C: / Catcher olemassa ja jos ei, luo se. B:) Tarkista, onko tiedosto Shutdown_catcher.txt olemassa ja jos ei, luo se.) Jos se loi joko kansion tai tiedoston tai molemmat, se näyttää viestin, jossa kerrotaan, että se on luonut ne (Huomautus: sen pitäisi tehdä tämä vain ensimmäisen käynnistyksen jälkeen, minkä jälkeen sen pitäisi olla siellä, ellei sitä poisteta, joten sinun pitäisi nähdä tämä viesti vain kerran. Saattaa olla hyvä ajaa tämä skripti kerran hallitun uudelleenkäynnistyksen aikana, jotta voit ohittaa nämä ponnahdusikkunat tai et voi kirjoittaa tiedostoon mitään, koska se ei ohita luotuja ponnahdusikkunoita.) D:) Kirjoita rivi tekstiasiakirja Shutdown_Catcher.txt, jossa sanotaan, että tietokone sammuu sellaisena päivänä tällaisena ja sellaisena ajankohtana. Näet koodin kirjoitettuna. Nyt minun tarvitsee vain istua alas ja odottaa. Joka kerta kun tietokone käynnistyy uudelleen, minulla on siitä kirjaa. Sitten voin tarkistaa tietueen ja nähdä, onko siinä johdonmukaisuutta. Esimerkki voi olla, että se käynnistyy uudelleen puolen tunnin välein tai se käynnistyy uudelleen aina, kun kellossa on lisäys tai 45. Tämä ei suinkaan ole ainoa tapa tarkistaa tietokonetta, tiedän vain. Minulla on myös käynnissä vertailuohjelma, joka tarkistaa lämpötilat, joten tiedän kuinka kuuma se on, kun se sammuu, jännite, joten tiedän, onko virtalähde viallinen, ja muutamia muita hyödyllisiä asioita. No toivottavasti tästä oli apua. Tiedän, että nautin siitä, joten ehkä muutkin. Jos sinulla on kysyttävää, kysy rohkeasti. En ehkä tavoita heitä heti, mutta hieman ja vastaan sinulle. Riippuu miten päivä/viikko menee.

Vaihe 13: Koodi

Tämä on koodi sellaisena kuin se on kirjoitettu ilman kaikkia vihjeitä ja huomautuksia Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Jos objFiSyOb. FolderExists (strDir) Määritä sitten objSysFold = objFiSyOb. GetFolderFool (strDb) objFiSyOb. FileExists (strDir & strFile) Aseta sitten objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Olemme luoneet kansion nimeltä" "& strFilename &" ja sijoitti sen "& strDir & strFile &" -hakemistoon. ") Lopeta IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Aseta sitten objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = obJreFile strDir & strFile) Wscript. Echo ("Meillä on loi tiedoston "& strFileName &" "& strDir &" -kansioon. ") Lopeta Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile.tietokoneesi Sammuta "& date &" at "& time" objTextFile. CloseWscript. Echo ("Tietokoneesi sammuttaa" & date & "at" & time) Jos err.number = vbEmpty sitten Set objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Muu WScript.echo" VBScript -virhe: "& err.numberEnd IfWScript. Quit