Ievads VB skriptā: ceļvedis iesācējiem: 2. daļa: Darbs ar failiem: 13 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 11:00

Nu, savā pēdējā VBScript pamācībā es apskatīju, kā izveidot skriptu, lai izslēgtu internetu, lai spēlētu Xbox360. Šodien man ir cita problēma. Mans dators ir izslēgts nejauši, un es vēlos reģistrēties katru reizi, kad dators tiek restartēts failā. Man ir sajūta, ka problēma ir videokartē, bet es vēlos pārliecināties. Es visu laiku atstāju datoru ieslēgtu, bet nevaru to uzraudzīt visu diennakti, tāpēc mans vienkāršākais risinājums ir uzrakstīt failam laika zīmogu katru reizi, kad tas tiek restartēts. Tā kā tas man katru reizi dod BSOD, reģistrēties, kad tas tiek izslēgts, būs grūti, tāpēc man tas ir jāiegūst, kad tas atkal ieslēdzas. Tā ir vieglā daļa. Sakarā ar to, ka tas ir tikai pagaidu laiks, līdz es izdomāju, kas ar datoru nav kārtībā, es negrasos rakstīt reģistram vai padarīt to par pakalpojumu, lai tas sāktos sāknēšanas laikā. Un, lai to atsāknētu katru reizi, kad tas tiek izslēgts, man būs jārediģē BIOS.

1. darbība: BIOS rediģēšana, lai to varētu atsāknēt, ja tiek pārtraukta strāvas padeve

Es neesmu pārliecināts, vai mana problēma ir saistīta ar strāvas padeves pārtraukumu vai ar manu videokarti vai kāda tā ir. Bet es zinu, ka dators tiek atsāknēts tik bieži. Tāpēc, lai pārliecinātos, ka tas tiek atsāknēts pēc strāvas padeves pārtraukuma (IE: barošanas avots kļūst brūns), es vēlos rediģēt BIOS. Tā kā tur ir tik daudz dažādu BIOS veidotāju, būtu pārāk grūti uzskaitīt visus dažādos veidus, kā to izdarīt visos dažādos BIOS ekrānos, tāpēc es tikai sniegšu jums pamatus un ļaus jums saprast specifiku pats. Būtībā, lai iekļūtu savā bios, jums būs jānospiež poga sāknēšanas laikā. Parasti tas saka kaut ko līdzīgu "nospiediet Del, lai ievadītu iestatīšanu" vai "F2". Dažādi ražotāji piedāvā dažādus veidus, bet parasti taustiņi ir "F2" vai "Del". Jebkurā gadījumā vērojiet to un nospiediet taustiņu, kurā tas jums saka. Tagad jūs nonāksit ekrānā, kas parasti ir pelēks vai zils, bet atkal tas ir atkarīgs no jūsu BIOS markas. Jūs meklēsit jaudas iestatījumu iespēju. Tas būs vai nu uz katra loga, piemēram, AMIBIOS ekrānuzņēmumā (aizgūts no Toms aparatūras rokasgrāmatas), vai dažos gadījumos tas var būt uzlaboto BIOS funkciju logā. Jebkurā gadījumā jūs meklējat iestatījumu "atjaunot maiņstrāvu/strāvas zudumu". To var nosaukt citādi, bet tas būs tuvu tam. Vienkārši meklējiet to. Tam parasti ir trīs iespējas (pēdējais stāvoklis, ieslēgts pēc strāvas zuduma, izslēgts pēc strāvas zuduma). Jūs vēlaties to ieslēgt pēc strāvas zuduma. Noteikti saglabājiet iestatījumus un izejiet no BIOS. Tagad, kad pārtrūkst strāvas padeve vai atvienojat ierīci no strāvas, tā tiks atsāknēta, tiklīdz tā atkal saņems strāvu. Jāāāāā !!!!!!!!!!!!!!!!

2. darbība: skripta rakstīšana 1. daļa: plāna sastādīšana

Pirmā lieta, ko mēs vēlamies darīt, ir izveidot plānu. Ko tieši mēs vēlamies, lai skripts darītu. A.) Kad strāvas padeve neizdodas vai parādās BSOD, mēs vēlamies, lai tā tiktu atsāknēta. (Par to rūpējās 1. darbība. BiosB rediģēšana.) Tiklīdz tas tiek atsāknēts, mēs vēlamies ierakstīt failā precīzu datumu un laiku, kad tas tika atsāknēts. C.) Mēs vēlamies, lai mēs varētu grozīt šo lietu. Ja tas tiek atsāknēts vairāk nekā vienu reizi, mēs nekad to neuzzinātu. D.) Mēs vēlamies, lai tai tiktu labota kļūda, lai tā netiktu ieskrūvēta, un mēs pārliecināmies, ka visas mūsu atsāknēšanas reizes tiek palaistas, nepalaižot to garām nepareizas kodēšanas dēļ. E.) Mēs to vēlamies lai parādītu ziņojumu, kurā teikts, ka tas ir atsāknēts. F.) Mēs vēlamies, lai tas atver failu, uz kuru mēs rakstījām, lai mēs varētu redzēt visu atsāknēšanu sarakstu, kad uznirstošajā ziņojumā noklikšķinām uz Labi.

3. darbība: skripta rakstīšana 2. daļa: skripta izveide un mainīgo piešķiršana

Vispirms vispirms izveidojiet teksta dokumentu un pārdēvējiet to par any_name.vbs. Es izmantoju shutdown_catcher.vbs, bet jūs varat izmantot jebko. Tagad ar peles labo pogu noklikšķiniet uz vbs faila un nospiediet rediģēt. Ja tagad izmantojat piezīmju grāmatiņu ++, tas būtu īstais laiks to atvērt, ja to nedarīsit, bet plānojat vajadzētu izpētīt, kā to iegūt. Labi, pirmā lieta, ko mēs vēlamies darīt, ir izveidot mainīgos. Mainīgie lielākoties ir tikai vietas turētāji, tāpēc mums nav vairākas reizes jāraksta viss ķekars. piemērs: mums ir teikums, kas saka: "ātrā brūnā lapsa lec pāri slinkiem suņiem". bet tas ir mūsu kodā 20 reizes. mēs varam vai nu ierakstīt visu teikumu 20 reizes, vai arī izveidot mainīgo un piešķirt šim teikumam teikumu. Tātad šajā piemērā mēs izveidojam mainīgo strSentence un pēc tam šim mainīgajam piešķiram "ātro brūno lapsu lec pāri slinkajiem suņiem". Tagad viss, kas mums jādara, ir ierakstīt strSentence katru reizi, kad mums ir vajadzīgs teikums, un tā zina, kā ierakstīt “ātrā brūnā lapsa pārlec pār slinkiem suņiem”, kā mēs to darām: Ja mums ir vairāki viena veida mainīgie, mēs varam ievietot tos vienā rindā un atdaliet mainīgos ar komatiem. Lai izveidotu mainīgo, mums jādara tā sauktā mainīgā lieluma noteikšana. Lai to izdarītu, mēs pirms mainīgā ierakstām Dim, pēc tam mainīgajam ievietojam prefiksu, lai mēs zinātu, ko šis mainīgais attēlo. Piemēri ir str virknes mainīgajam obj objekta mainīgajam konstantam konstanti…. Saraksts turpinās un turpinās. tie ir tie, kurus mēs izmantosim šajā skriptā, tāpēc es tos nedaudz paskaidrošu. virkne parasti ir teksts kā teikums. Objekts parasti ir kaut kas fizisks, piemēram, fails vai programma. un konstante ir kaut kas tāds, kam vienmēr būs tāda pati nozīme visā scenārijā. PIEZĪME. Jebkurā reizē, kad līnijai ir viens vienums, pirms tā tiek uzrakstīta pēc skripta. Tās sauc par piezīmēm, un tās parasti ievieto programmētājs VIŅI VAR ATGĀDINĀT, KO VĒLĀK PĀRSKATĪJA KODU. Es tos izmantošu, lai sniegtu komentārus par kodu, lai jūs varētu redzēt, kāpēc es to darīju tā, kā es to darīju. UN VIŅI BŪS PĒC LĪDZES, KO VINI KOMENTĒ. Faktiskais lietojums: "šī rinda liek jums definēt visus mainīgos. Bez tā jebkurš nenoteikts mainīgais tiks uzskatīts par objektu. Izvēlēts skaidrojums "Tagad mēs izveidojam 5 mainīgos mapēm un failiem, kas mums būs nepieciešami" nosauciet tos, kā vēlaties, bet vienošanās ir preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile izveidot virknes mainīgos direktorijam, failam un faila nosaukumam teksta dokuments un tā nosaukums strFile = "\ Shutdown_catcher.txt" 'strfile nosaukums ir tāds, ka mums ir faila nosaukums, ko izmantot pop upsstrFileName = "Shutdown_catcher.txt" ", tālāk mums jāpiešķir konstante, lai piekļūtu failam mums ir trīs iespējas "mēs izmantosim tikai šī koda papildinājumus, bet ir patīkami tos visus zināt. Conons forReading = 1, forWriting = 2, ForAppending = 8" visbeidzot, mums ir jāiestata mainīgais failu sistēmā objektu, lai mēs varētu to izsaukt vēlāk, kad tas ir nepieciešamsIestatiet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

4. solis: paskaidrojumi starp

Tagad, kad mūsu mainīgie ir izmērīti, viss, kas mums jādara, ir katru reizi atcerēties šo konkrēto mainīgo. Tas ne tikai samazina mūsu rakstīšanas apjomu, bet arī rada mazāk kļūdu pareizrakstības kļūdu dēļ. Tagad tehniski viss, kas mums jādara, ir jāievada šāds kods, un mēs esam pabeiguši. "Iestatiet failu pievienošanai & strFile, ForAppending, True) "uzrakstiet jauno rindu failā fileobjTextFile. WriteLine (" Jūsu dators tiek izslēgts uz "& datums &" plkst. " dators Izslēgt uz "& datums &" plkst. " Problēma ir tā, ka tajā netiks labota kļūda, un jebkura vienkārša kļūda, piemēram, fails, kas nepastāv, vai jau piešķirtais mainīgais, sabojās skriptu.

5. solis: skripta rakstīšana 3. daļa: ja tad paziņojumi kā kļūdu labošana

Vienkāršākais veids, kā labot kļūdas, ir izmantot paziņojumus if/then. Būtībā, ja paziņojums saka, ja kaut kas notiek, dariet to citādi. Ligzdojot if/then paziņojumus, jūs varat izveidot virkni lietu, kurām jānotiek. Ja notiek a un b un c, tad rīkojieties šādi. Piemērs: mēs vēlamies pārliecināties, vai fails, uz kuru vēlamies rakstīt, ir tur, ja mēs to atrodam, mēs vēlamies neko nedarīt, ja mēs to neatrodam, mēs vēlamies to izveidot vai mēs vēlaties pārbaudīt, vai mape ir tur, un, ja ne, izveidojiet to, un pēc tam pārbaudiet, vai fails ir tur, tiklīdz mēs atradām mapi, un, ja ne, izveidojiet šeit. mēs to darām: paziņojumam if tad ir četras daļas, ja/tad elseend, ja būtībā tā ir, ja tā ir taisnība, tad dariet to citādi, dariet to, tad izbeidziet paziņojumu pareizi kodēts, ja tad paziņojums būtu: Ja kaut kas = kaut kas kas jums jādara Vēl jādara kaut kas cits Beigas mēs ievietojam "end if", bet, ja esam ievietojuši if paziņojumus, mums ir jābeidz katrs if. Tas beigs tos no bērna uz vecāku, tāpēc pirmais “beigas” beidz vecāku iekšā esošo if, kur otrais beidz sākotnējo (vecāku) if paziņojumu. Lai izveidotu uznirstošo logu, mēs vienkārši ierakstām Wscript. Echo ("neatkarīgi mēs vēlamies teikt ziņojumā "), lai tajā pievienotu mainīgo vērtību, mēs to ievietojam ārpus pēdiņām vai starp tām, izmantojot atdalītāju zīmi" & ", lai skripts zinātu, ka tas ir mainīgs, nevis teksts. līdzīgi šim: Wscript. blah blah blah. Faktiskais lietojums: 'ja mape C; / pastāv Ja objFiSyOb. FolderExists (strDir) Then'get mape Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'izveidojiet mapi c; / catcher Set objSysFoldO objFi CreateFolder (strDir)”un pārbaudiet, vai fails un mape pastāv. Ja objFiSyOb. FileExists (strDir & strFile), tad, ja tā saņem mapi c: jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'izveidojiet teksta dokumentu shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)', pēc tam parādiet ziņojumu, ka esat izveidojis abas Wscript. Echo ("Mums ir ar nosaukumu "& strDir &" un failu ar nosaukumu "& strFilename &" un ievietojis to direktorijā "& strDir & strFile &". ") 'beigas ligzdotas, ja paziņojumsEnd If'end oriģināls, ja paziņojumsEnd If'now pirmajā if paziņojumā mēs jau pārbaudījām mapi un to atradām, tāpēc tagad mēs meklējam failuIf objFiSyOb. FileExists (strDir & strFile) Tad'ja atrasts iegūt mapi Set objSysFold = objFiSyOb. GetFolder (strDir) 'citādi Else'izveidojiet teksta dokumentu Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) "izveidojiet uznirstošo logu, kurā teikts, ka esam izveidojuši teksta dokumentu Wscript. Echo (" Mēs esam izveidojuši failu ar nosaukumu "& strFileName &" mapē "& strDir &" ") Beigas Ja

6. darbība. Paskaidrojumi starp

Ja rūpīgi ieskatīsities iepriekšējā soļa kodā, jūs redzēsiet gan ligzdotu, gan atceltu paziņojumu, ja tad. Pirmais ir ligzdots paziņojums. Tā pārbauda mapi un failu un, ja tos neatrod, izveido abus. Otrais meklē tikai failu un, ja tas netiek atrasts, tas izveido tikai failu. Varētu teikt, kāpēc abi. Kas notiek, ja fails tiek izdzēsts, bet mape nav. Pirmais, ja paziņojums izlaistu tieši faila izveidi, jo tas atrada mapi un nekad neaktivizēs citu paziņojuma daļu. Tātad, kad jūs devāties rakstīt uz failu, tas radīs kļūdu, jo faila trūkst. Tātad, turot otro, tas atrisina šo problēmu. Tehniski jūs varētu izņemt ligzdoto paziņojumu, jo tas ir gandrīz tāds pats kā otrais, ja tad paziņojums, bet tad jums būtu tikai viens uznirstošais logs, un tas nebūtu tik pievilcīgs. Turklāt tas deva man iespēju parādīt jums ligzdotu, nevis -nožēlojami, ja paziņojumi.

7. darbība. Vairāk kļūdu labošanas

Tagad, kad esam pabeiguši lielāko daļu kļūdu labojumu, mēs vēlamies rakstīt failā un parādīt uznirstošos logus. Problēma ir tāda, ka mēs saņemsim atļauju kļūdas, ja neatbrīvosim mainīgā saglabātā iepriekšējā objekta atsauci. Tāpēc mēs vēlamies ievietot nelielu koda fragmentu, kurā teikts, ka iestatiet mainīgos uz neko. Izskatās šādi: set objFile = nothingset objSysFold = nothing out): Opcija ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "Shutdown_catcher.txt" strFileName = "Shutdown_", Shutdown_ ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ja objFiSyOb. FolderExists (strDir) Tad iestatiet objSysFold = objFiSyOb. GetFolder (strDir) Cits Iestatīt objSysFold = objIf Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Mēs esam izveidojuši mapi ar nosaukumu" & strDir & "un failu ar nosaukumu" & strFilename & "un ievietojuši to direktoriju "& strDir & strFile &". ") I beigas fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pēc tam iestatiet objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. File failā ar nosaukumu "& ir" "& strDir &" failu mape. ") Beigas Ifset objFile = nothingset objSysFold = nekas

8. solis: Skripta rakstīšana 4. daļa: Atribūtu iestatīšana

Tagad mums ir jāiestata faila atribūti, lai mēs varētu to grozīt. Iepriekš mēs iestatījām trīs nemainīgus mainīgos: forReading = 1forWriting = 2 forAppending = 8ja iestatot to forReading, jūs varēsit to izlasīt, bet ne rakstīt tajā. Ja iestatīsit to for. Ja iestatāt to uz Pievieno, jūs pievienosit jaunu rindu ikreiz, kad skripts tiks izpildīts dokumentā. Tā kā mēs vēlamies žurnālu par katru reizi, kad tas tiek restartēts, mēs vēlamies, lai tas tiktu pievienots, nevis pārrakstīts, tāpēc mēs izmantojam forAppending. Kā mēs to darām: jums ir jānosauc objekts, kuram vēlaties iestatīt atribūtus. Tā kā lielāko daļu darba mēs jau esam paveikuši iepriekšējos soļos, mums vienkārši jāatceras mainīgie šajā brīdī. Tad vienkārši iestatiet to uz true. Faktiskais lietojums: 'objekts set = filesystemobject.action (direktorijs+faila nosaukums, atribūts, patiess vai nepatiess) Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9. darbība: skripta rakstīšana 5. daļa: rakstīšana failā

Rakstīšana failā ir līdzīga uznirstošā loga rakstīšanai. Jūs vienkārši ievietojāt: objTextFile. WriteLine ("Ko vēlaties teikt" un mainīgo, lai ievilktu rindas rakstīšanai) Vienīgā atšķirība ir pirmā daļa. Uznirstošajā logā ievietojat: Wscript.echoin rakstīto rindiņu, kuru ievietojat: objTextFile. WriteLineA Un rakstīšanas rindā jums ir jāaizver rakstīšanas līnija, lai tā zinātu, ka jāpārtrauc rakstīšana, un tāpēc jūs izmantojat: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Jūsu dators tiek izslēgts uz" & date & "at" & time ") objTextFile.close'now pievienojiet uznirstošo logu, lai teiktu, ka esat rakstījis failā, lai persona zinātu, ka tas noticis, un viņam tas ir jāaizver, lai atvērtu failu un viewWscript. Echo ("Jūsu dators tiek izslēgts uz" & date & "at" & laiks)

10. darbība: skripta rakstīšana 5. daļa: faila atvēršana apskatei

Šajā brīdī skripts apstāsies, līdz kāds noklikšķinās uz uznirstošā loga. Kad esat nokļuvis uznirstošajā logā, varat ievietot rindu, kas atver failu. Izmantojot kādu kļūdu labojumu, tas palīdz programmai labi darboties. Izveidojot kļūdu vbscript, tā pievieno vērtību mainīgajam "err.number", kas ir iepriekš definēts mainīgais vbscript. Jums tas nav jādefinē un varat to izmantot tāpat kā jebkuru citu mainīgo, ja vien nepārkāpjat tā noteikumus. Mainīgajam err.number piešķirtā vērtība ir radušās kļūdas kods. Tagad varat vai nu pārbaudīt katru vbscript datu bāzē zināmo kļūdas kodu, un pārliecināties, vai tas nav noticis. Vai vienkāršāk, vienkārši pārbaudiet, vai mainīgais err.number ir tukšs. ja tas ir tukšs, kļūdas nav notikušas. Lai to izdarītu, mēs vienkārši pārbaudām, vai mainīgais ir vienāds ar vbEmpty. Tātad mūsu skriptā mēs vēlamies izmantot citu, ja tad paziņojumu. Un pārbaudiet, vai nav radusies kļūda un vai tas neatvēra failu apskatei, bet, ja tas notika, tad parādījās ziņojums ar kļūdas numuru, lai mēs varētu atkļūdot. Tad, kad mēs visi esam pabeiguši savu skriptu, mēs ierakstiet Wscript. Aiziet. Tas liek skriptam izbeigt sevi. Tas palīdz samazināt atmiņas noplūdes un nevēlamus procesus. Kā to izmantot: ja err.number ir vienāds ar vb kļūdasJa err.number = vbEmpty tad'ja neviens neveido apvalku Set objShell = CreateObject ("WScript. Shell") ', tad atveriet failu no šīs čaulas, izmantojot pārlūkprogrammu. tas faktiski tiks atvērts IE, lai gan objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") "pretējā gadījumā parādīsies ziņojums ar kļūdas numuruElse WScript.echo" VBScript kļūda: "& err.numberEnd If 'end scriptWscript.quit

11. darbība. Skripta palaišana startēšanas laikā

Sākuma izvēlnē ir failu mape ar nosaukumu Startup. Viss, kas ievietots šajā mapē, sāks darboties, tiklīdz tiks palaists dators. Ievietojot skripta failu startēšanas mapē, tas tiks izpildīts katru reizi, kad dators tiek restartēts neatkarīgi no tā, vai tas ir apzināti vai nē. Tā kā es to izmantoju tikai kā diagnostikas rīku, tas nav jāveido par pakalpojumu, lai to sāktu, un man tas nav jāievada reģistrā, lai to sāktu, tāpēc tas būs labi. Kad esmu salabojis datoru, es varu izdzēst failu no startēšanas mapes, un nav nepieciešama cita tīrīšana.

12. solis: programmas palaišana

Izpildot vbscript failu, tas tagad būs A.) Pārbaudiet, vai mape C: / Catcher pastāv un, ja ne, izveidojiet to.) Ja tas izveidoja mapi vai failu vai abus, tas parādīs ziņojumu, kurā teikts, ka tas tos ir izveidojis (Piezīme: tam vajadzētu to darīt tikai pirmajā palaišanas reizē, pēc tam tam jau vajadzētu būt tur, ja vien tas nav izdzēsts, tāpēc šo ziņojumu vajadzētu redzēt tikai vienu reizi). Varētu būt laba ideja vienu reizi palaist šo skriptu, veicot kontrolētu atsāknēšanu, lai jūs varētu apiet šos uznirstošos logus vai arī neko nerakstīt failā, jo tas nepaies garām izveidotajiem uznirstošajiem logiem.) D:) Ierakstiet rindiņu teksta dokuments Shutdown_Catcher.txt, kurā teikts, ka dators tiek izslēgts tādā un šādā datumā šādā un tādā laikā. jūs redzēsit kodu kā rakstīts. Tagad viss, kas man jādara, ir sēdēt un gaidīt. Katru reizi, kad dators tiks restartēts, man būs tā ieraksts. Tad es varu pārskatīt ierakstu un noskaidrot, vai tam ir kāda konsekvence. Piemērs varētu būt tas, ka tas tiek atsāknēts ik pēc pusstundas vai tiek atsāknēts jebkurā laikā, kad pulkstenī ir palielinājums vai 45. Tas nekādā ziņā nav vienīgais veids, kā es pārbaudu datoru, tikai lai jūs zinātu. Man arī darbojas etalonuzdevumu programma, lai pārbaudītu temperatūru, lai es zinātu, cik tas ir karsts, kad tas izslēdzas, spriegumu, lai es zinātu, vai strāvas padeve neizdodas, un dažas citas noderīgas lietas. Nu es ceru, ka šis bija noderīgs. Es zinu, ka man tas patīk, varbūt arī citiem patiks. Ja jums ir kādi jautājumi, jautājiet. Es, iespējams, nenonākšu pie viņiem uzreiz, bet mazliet, un es jums atbildēšu. Atkarīgs no manas dienas/nedēļas laika.

13. darbība: kods

Šis ir kods, kas uzrakstīts bez visiem mājieniem un piezīmēm. Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ja objFiSyOb. FolderExists (strDir) Pēc tam iestatiet objSysFold = objFiSyOb. GetFolder (strDrj) objFiSyOb. FileExists (strDir & strFile) Pēc tam iestatiet objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Mēs esam izveidojuši mapi ar nosaukumu" "& strFilename &" un ievietojiet to direktorijā "& strDir & strFile &". ") Beigt IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pēc tam iestatiet objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objreFile strDir & strFile) Wscript. Echo ("Mums ir "& strDir &" failu mapē izveidoja failu ar nosaukumu "& strFileName &".)) Beigas Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) Izslēgt "& date &" at "& time" objTextFile. CloseWscript. Echo ("Jūsu dators tiek izslēgts uz" & date & "at" & time ") Ja err.number = vbEmpty tad Set objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Cits WScript.echo" VBScript kļūda: "& err.numberEnd IfWScript. Quit