Intro kwa VB Hati: Mwongozo wa Kompyuta: Sehemu ya 2: Kufanya Kazi na Faili: Hatua 13

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:56

Vizuri katika VBScript yangu ya mwisho inayoweza kufundishwa, nilikwenda juu ya jinsi ya kutengeneza hati ili kufunga mtandao wako ili kucheza Xbox360. Leo nina shida tofauti. Kompyuta yangu imekuwa ikizima wakati wa nasibu na ninataka kuingia kila wakati kompyuta inapoanza tena kwenye faili. Nina hisia kuwa shida ni kadi ya video lakini nataka kuhakikisha. Ninaacha kompyuta wakati wote lakini siwezi kuifuatilia 24/7, kwa hivyo suluhisho langu rahisi ni kuandika stempu ya wakati kwa faili kila wakati inapoanza upya. Kwa sababu inanipa BSOD kila wakati, kukata magogo wakati kuzima itakuwa ngumu kwa hivyo lazima nipate ikirudi. Hiyo ni sehemu rahisi. Kwa sababu ya ukweli kwamba hii ni ya muda mfupi tu hadi nitakapoona shida ya kompyuta, sitaandika kwa sajili au kuifanya huduma ili ianze wakati wa boot. Na kuipata ili kuwasha upya kila wakati inapozimika nitalazimika kuhariri bios.

Hatua ya 1: Kuhariri Bios ili kuiweka tena kwa Kufeli kwa Umeme

Sina hakika ikiwa shida yangu ni kwa usambazaji wa umeme kutofaulu au na kadi yangu ya video au ni nini. Lakini najua kwamba kompyuta huwasha tena kila mara. Kwa hivyo kuhakikisha inaanza tena baada ya umeme kukosa (IE: usambazaji wa umeme hudhurungi nje) Nataka kuhariri bios. Kwa sababu ya ukweli kwamba kuna watengenezaji wa bios tofauti huko nje, itakuwa ngumu sana kuorodhesha njia zote tofauti za kufanya hivyo katika skrini zote tofauti za bios kwa hivyo nitakupa misingi na kukuruhusu ujue Kimsingi kuingia kwenye bios zako utahitaji bonyeza kitufe kwenye buti. Kawaida itasema kitu kama "hit Del kuingia usanidi" au "F2". Watengenezaji tofauti hukupa njia tofauti lakini kawaida ni "F2" au "Del" ufunguo. Kwa vyovyote iangalie na ugonge ufunguo unaokuambia ugonge. Sasa utakuja kwenye skrini ambayo kawaida huwa kijivu au hudhurungi, lakini tena inategemea utengenezaji wako wa bios. Utakuwa unatafuta chaguo la mipangilio ya nguvu. Labda itakuwa kwenye dirisha yenyewe kama kwenye picha ya skrini ya AMIBIOS (iliyokopwa kutoka kwa mwongozo wa vifaa vya toms) au kwa zingine inaweza kuwa kwenye dirisha la vipengee vya hali ya juu. Kwa hivyo unatafuta mipangilio ya "rejeshea juu ya ac / upotezaji wa nguvu". Inaweza kuitwa jina lingine lakini itakuwa karibu na hiyo. Itafute tu. Kawaida itakuwa na chaguzi tatu (hali ya mwisho, baada ya kupoteza nguvu, mbali baada ya kupoteza nguvu). Unataka kuiweka baada ya kupoteza nguvu. Hakikisha unahifadhi mipangilio yako na utoke kwenye bios. Sasa wakati nguvu yako inashindwa au ukichomoa mashine yako itawasha upya mara tu itakaporudi nguvu. Yeahhhhhh !!!!!!!!!!!!!!!!

Hatua ya 2: Kuandika Hati Sehemu ya 1: Kufanya Mpango

Jambo la kwanza tunataka kufanya ni kuunda mpango. Tunataka script ifanye nini haswa. A. Wakati nguvu inashindwa au BSOD inakuja tunataka ianze upya. (Imetunzwa katika hatua ya 1 Kuhariri BiosB.) Mara tu itakapoanza upya tunataka kuandikia faili tarehe na wakati halisi ilipoanza upya. C.) Tunataka kuweza kurekebisha faili hiyo. Ikiwa itaanza tena zaidi ya mara moja hatuwezi kujua. kutoa ujumbe unaosema umefunguliwa upya. (F) Tunataka ifungue faili tuliyoandika ili tuweze kuona orodha ya reboots zote wakati tunabofya sawa kwenye ujumbe.

Hatua ya 3: Kuandika Hati Sehemu ya 2: Kuunda Hati Yako Kutoa Vigeuzi

Ok kwanza vitu kwanza, tengeneza hati ya maandishi na uipe jina tena kwa any_name.vbs. Nilitumia shutdown_catcher.vbs lakini unaweza kutumia chochote. Sasa bonyeza tu faili ya vbs na ubadilishe hariri. Ikiwa unatumia notepad ++ sasa itakuwa wakati mzuri wa kuifungua, ikiwa sio lakini unapanga kufanya idadi yoyote ya kukusimba Oya sasa jambo la kwanza tunataka kufanya ni kuunda vigeuzi. Vigeu kimsingi ni mmiliki wa mahali kwa hivyo sio lazima tuandike kikundi cha vitu mara kadhaa. mfano: tuna sentensi inayosema "mbweha wa hudhurungi haraka anaruka juu ya mbwa wavivu nyuma". lakini iko katika nambari yetu mara 20. tunaweza kuchapa sentensi nzima mara 20 au kuunda ubadilishaji na kupeana sentensi kwa ubadilishaji huo Kwa hivyo katika mfano huu tunaunda sentensi inayobadilika kisha tumpa "mbweha wa hudhurungi haraka juu ya mbwa wavivu nyuma" kwa ubadilishaji huo. Sasa tunachohitajika kufanya ni aina strSentence kila wakati tunahitaji sentensi na inajua kuchapa "mbweha wa hudhurungi haraka anaruka juu ya mbwa wavivu nyuma" tunafanyaje: Ikiwa tuna anuwai nyingi za aina ile ile tunaweza kuweka kwenye mstari huo huo na utenganishe anuwai kwa koma. Ili kuunda ubadilishaji tunahitaji kufanya kile kinachoitwa kupima upeo. Ili kufanya hivyo tunaandika Dim kabla ya kutofautisha kisha tunaweka kiambishi awali kwa kutofautisha ili tujue ni nini kinachowakilisha. Mifano ni str kwa kamba inayobadilika ya kitu kwa kutofautisha kwa kitu cha const kwa kila wakati …. Orodha inaendelea na kuendelea. hizi ndizo tutazotumia katika hati hii kwa hivyo nitawaelezea kidogo. kamba kawaida ni maandishi kama sentensi. Kitu kawaida ni kitu cha mwili kama faili au programu. na mara kwa mara ni kitu ambacho kitakuwa na maana sawa wakati wote wa hati. TAMBUA: WAKATI WOWOTE MSTARI UNA MOJA 'KABLA YAKE LINE ITAKUJALIWA NA HATI. HIYO INAITWA KUMBUKUMBU NA KWA KAWAIDI INAWEKWA NA MTANDAJI HIVYO WANAWEZA KUKUMBUKA WALICHOKUFANYA BAADAYE WAKATI WA KUPITIA KODI. NITAWATUMIA KUTOA MAONI KUHUSU CODE ILI UWEZE KUONA KWA NINI NILIIBA NJIA NILIYOFANYA. NA WATAKUWA HAPO JUU YA MSTARI WANAOTOA MAONI KUHUSU Matumizi Halisi: 'mstari huu unakulazimisha kufafanua vigeuzi vyote. Bila hiyo utaftaji wowote usiofafanuliwa utachukuliwa kama kitu Chaguo wazi wazi sasa tunaunda vigeuzi 5 kwa folda na faili tutahitaji kutaja jinsi unavyotaka lakini mkutano ni preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'sasa tunahitaji kuunda vigeuzi vya kamba kwa saraka, faili na jina la failiDim strDir, strFile, strFileName'now toa maadili kwa vitu hati ya maandishi na ni nini inaitwa strFile = "\ Shutdown_catcher.txt" 'jina la strfile ni hivyo tunayo jina la faili kwa matumizi katika pop upsstrFileName = "Shutdown_catcher.txt"' ijayo tunapaswa kupeana mara kwa mara kwa upatikanaji wa faili tunayo chaguzi tatu "tutatumia tu kuongeza kwa nambari hii lakini ni vizuri kuzijua zote. kitu ili tuweze kuipigia baadaye wakati tunaihitaji Weka objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Hatua ya 4: Maelezo kati ya

Sasa kwa kuwa tuna vigeugeu vyetu vilivyo na kipimo tunachohitaji kufanya ni kukumbuka ubadilishaji maalum kila wakati. Hii sio tu inapunguza kiwango cha kuandika tunachofanya lakini pia inaunda makosa kidogo kwa sababu ya upotoshaji wa maneno. Sasa kitaalam tunachohitajika kufanya ni kuchapa nambari ifuatayo na tumemaliza kuweka faili kwa kuongezeaSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'andika laini mpya kwa fileobjTextFile. WriteLine ("Kompyuta yako Zima" na tarehe & "saa" na "saa" funga failiobjTextFile. Close tengeneza pop upWscript. Echo ("Yako Kompyuta Zima kwenye "& date &" at "& time" 'fungua faili katika IESet objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") Shida haitakuwa na marekebisho ya makosa, na kosa lolote rahisi kama faili ambayo haipo au kutofautishwa tayari imepewa hati.

Hatua ya 5: Kuandika Hati Sehemu ya 3: Ikiwa basi Taarifa kama Sahihisho la Kosa

Njia rahisi ya kufanya marekebisho ya makosa ni kutumia ikiwa / kisha taarifa. Kimsingi taarifa ikiwa basi inasema ikiwa kitu kitatokea basi fanya hivi vinginevyo fanya hivyo. Kwa kuweka kiini ikiwa / kisha taarifa unaweza kuunda safu ya vitu ambavyo vinapaswa kutokea. Ikiwa a na b na c itatokea basi fanya hii nyingine fanya hiyo. Mfano: tunataka kuhakikisha faili tunayotaka kuiandikia iko ikiwa tutaipata hatutaki kufanya chochote ikiwa hatupati tunataka kuijenga au sisi nataka kuangalia ikiwa folda iko na ikiwa sio kuunda na angalia ikiwa faili iko mara moja tunapata folda na ikiwa sio kuunda hiyo ya kwanza ni mfano wa ikiwa taarifa ya pili ni kiota ikiwa basi. tunafanya: kuna sehemu nne kwa ikiwa basi taarifa ikiwa / kisha endelea ikiwa ni kweli ikiwa hii ni kweli basi fanya hivi vinginevyo fanya hivyo kisha maliza taarifa hiyo ikiwa na kificho ikiwa taarifa itakuwa: Ikiwa kitu = kitu Kisha fanya unachohitaji kufanywaElse fanya kitu kingineEnd IfUnaweza kutumia hoja yoyote ilimradi ni kweli itafuata sehemu hiyo na kupuuza sehemu nyingine lakini ikiwa ni ya uwongo itaruka wakati huo na kwenda kwingine Kisha tutakapomaliza taarifa hiyo ikiwa tunaweka "mwisho ikiwa", lakini ikiwa tuna kiota ikiwa taarifa tunapaswa kumaliza kila taarifa. Itawamaliza kutoka kwa mtoto hadi mzazi kwa hivyo "mwisho ikiwa" inamaliza tamko la if ndani ya mzazi, ambapo la pili linaishia la asili (mzazi) ikiwa ni taarifa. Ili kufanya popup tunaandika tu Wscript. Echo ("chochote. tunataka kusema kwenye ujumbe ") kuongeza thamani ya vigeugeu ndani yake tunaiweka nje au kati ya nukuu mara mbili kwa kutumia ishara ya ampersand (&) kama mpangilio ili hati ijulikane ni ya kutofautisha na sio maandishi.: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Matokeo yatakuwa pop up ambaye alisema Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. Utumiaji wa kweli: 'ikiwa folda C; ikiwa ipo objFiSyOb. FolderExists (strDir) Kisha'get folda Kuweka objSysFold = objFiSyOb. GetFolder (strDir)' vingineElse'create folder c; / catcher Set objSysFold = objFiys CreateFolder (strDir) 'na angalia ikiwa faili na folda ipo Ikiwa objFiSyOb. FileExists (strDir & strFile) Basi ikiwa inapata folda c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'vingineElse'create maandishi hati shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' kisha pop up ujumbe kusema wewe kuundwa yao wote Wscript. Echo ("Tumeunda folda iitwayo "& strDir &" na faili iitwayo "& strFilename &" na kuiweka kwenye saraka ya "& strDir & strFile &". ") 'end nested if statementEnd If'end original if statementEnd If'now in the first if statement tayari tumechunguza folda na kuipata hivyo sasa tunaangalia failiIkiwa objFiSyOb. FileExists (strDir & strFile) Basi'if kupatikana kupata folda Kuweka objSysFold = objFiSyOb. GetFolder (strDir) 'vinginevyo Else'rere hati ya maandishi Weka objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'unda kidukizo kikisema tumeunda waraka wa maandishi Wscript. Echo ("Tumeunda faili iitwayo" & strFileName & "katika" & strDir & "folda ya faili.") Mwisho ikiwa

Hatua ya 6: Maelezo kati ya

Ukiangalia kwa karibu nambari kutoka kwa hatua iliyotangulia utaona iliyowekwa na isiyo na kiota ikiwa ni taarifa. Ya kwanza ni taarifa ya kiota. Inatafuta folda na faili na ikiwa haipati inaunda zote mbili. Ya pili inatafuta faili tu na ikiwa haipati inaunda faili tu. Mtu anaweza kusema kwanini zote mbili. Vizuri kinachotokea ikiwa faili imefutwa lakini folda sio. Ya kwanza ikiwa taarifa itaruka juu ya uundaji wa faili kwa sababu imepata folda na haitafanya sehemu nyingine ya taarifa hiyo. Kwa hivyo wakati ungeenda kuiandikia faili ingekosea kwa sababu faili ingekosekana. Kwa hivyo kwa kuwa na ya pili hapo hutatua shida hii. Kitaalam unaweza kutoa taarifa iliyowekwa kwenye kiini kwa sababu ni sawa na ile ya pili ikiwa basi taarifa lakini basi ungekuwa na moja tu na haingeweza kuwa ya kibinafsiPlus ilinipa nafasi ya kukuonyesha umewekwa kiwiko kinyume na un - imewekwa ikiwa taarifa.

Hatua ya 7: Marekebisho zaidi ya Kosa

Sasa kwa kuwa tumekamilisha marekebisho mengi ya makosa tunataka kuandikia faili na kuonyesha mada ya pop. Tatizo ni kwamba tutapata makosa ya ruhusa ikiwa hatutatoa rejeleo la kitu kilichotangulia kilichohifadhiwa katika kutofautisha. Kwa hivyo tunataka kuweka kijisehemu kidogo cha nambari ambayo inasema weka vigeuzwa kuwa kitu chochote. Inaonekana kama hii: nje): Chaguo ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutxt_catcher = Wakuu = Shutxt_catcher. ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Kama objFiSyOb. FolderExists (strDir) Kisha Kuweka objSysFold = objFiSyOb. GetFolder (strDir) Else Kuweka objSysFold = objFiSyOb. CreateFolder (strDir) Kama objFiSyOb. FileExists (strDir & strFile) Kisha Weka objSysFold = objFiSyOb. GetFolder (strDir) Nyingine Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Tumeunda folda iitwayo" & strDir & "na faili iitwayo" & strFilename & "na tukaiweka ndani saraka ya "& strDir & strFile &". ") Mwisho mimi fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Kisha Weka ObjSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Tumeunda faili" "& strDir &" folda ya faili. ") Mwisho Ifset objFile = nothingset objSysFold = hakuna kitu

Hatua ya 8: Kuandika Hati Sehemu ya 4: Kuweka Sifa

Sasa tunahitaji kuweka sifa kwenye faili ili tuweze kuirekebisha. Hapo awali tuliweka anuwai tatu za mara kwa mara:. Ikiwa utaiweka kwa ajili ya Kuomba utaongeza laini mpya kila wakati hati itekeleze kwenye waraka. Kwa kuwa tunataka logi ya kila wakati inapoanza upya tunataka iongezwe na sio juu ya maandishi ili tutumie kwa Kuomba. Jinsi tunavyofanya: unapaswa kutaja kitu unachotaka kuweka sifa. Kwa kuwa tayari tumeshafanya kazi nyingi katika hatua zilizopita tunahitaji tu kukumbuka anuwai katika hatua hii. Kisha tu iweke kwa kweli. Utumiaji halisi: 'object set = fileystemobject.action (saraka + jina la faili, sifa, kweli au uwongo) Weka objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Hatua ya 9: Kuandika Hati Sehemu ya 5: Kuandika kwa Faili

Kuandika faili ni kama kuandika pop-up. Unaweka tu: objTextFile. WriteLine ("Chochote unachotaka kusema" & Kubadilika ili kuingia kuandika mstari) Tofauti pekee ni sehemu ya kwanza. Katika pop up unaweka: Wscript.chagua mstari wa kuandika ulioweka: objTextFile. AndikaLineNa kwenye mstari wa kuandika lazima ufunge mstari wa kuandika ili ijue kuacha kuandika na kwa hiyo utumie: karibu sasa ongeza kwenye kidukizo kusema umeandika faili ili mtu ajue ilitokea na lazima aifunga ili kufungua faili na kuonaWscript. Echo ("Kompyuta yako Zima" & date & "at" na wakati)

Hatua ya 10: Kuandika Hati Sehemu ya 5: Kufungua Faili ya Kutazama

Hati wakati huu itasimama hadi mtu atakapobofya kitufe. Mara tu unapopita pop up unaweza kuweka mstari katika kufungua faili. Kutumia usahihishaji wa makosa juu yake husaidia kuweka programu ikiendelea vizuri. Unapounda hitilafu kwenye vbscript, inaongeza thamani kwa "idadi ya kutofautisha" ambayo ni utaftaji uliofafanuliwa hapo awali katika vbscript. Sio lazima ufafanue na unaweza kuitumia kama tofauti nyingine yoyote ilimradi usikiuke sheria zake. Thamani iliyopewa kutofautisha idadi ya nambari ni nambari ya hitilafu iliyotokea. Sasa unaweza kuangalia kila nambari ya makosa inayojulikana katika hifadhidata ya vbscript na uhakikishe kuwa haikutokea. Au rahisi, ni kuangalia tu hiyo hakikisha kuwa idadi ya kutofautisha ya idadi ni tupu. ikiwa ni tupu hakuna makosa yaliyotokea. Ili kufanya hivyo tunaangalia tu kuona ikiwa tofauti ni sawa na vbEmpty. Kwa hivyo katika hati yetu tunataka kutumia taarifa nyingine ikiwa basi. Na angalia ikiwa kuna kosa limetokea na ikiwa haikufungua faili kwa kutazamwa, lakini ikiwa ilifanyika basi toa ujumbe ulio na nambari ya kosa ndani yake ili tuweze kutatua. andika Wscript. Hii inaambia hati ijimalize. Hii inasaidia kupunguza uvujaji wa kumbukumbu na michakato isiyohitajika kuendeshwa. Jinsi inavyotumiwa: ikiwa idadi ya makosa ni sawa na vbEmpty basi tengeneza ganda kisha endesha programu hiyo kutoka kwa mfumo wa ganda upe ujumbe kusema kwamba kulikuwa na ujumbe kama. Matumizi halisi: 'angalia makosaIf err.number = vbDalili basi ikiwa hakuna mtu atakayeunda Seti ya ganda ObjShell = CreateObject ("WScript. Shell") 'kisha fungua faili kutoka kwa ganda hilo ukitumia mtafiti. itakuwa wazi katika IE ingawa objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'vinginevyo pop up ujumbe na makosa numberElse WScript.echo "VBScript Error:" & err.numberEnd If hati ya mwishoWscript.quit

Hatua ya 11: Kupata Hati ya Kuanzisha

Kuna folda ya faili kwenye menyu ya kuanza inayoitwa Startup. Chochote kilichowekwa kwenye folda hii kitaanza mara tu kompyuta itakapoanza. Kwa kuweka faili ya hati kwenye folda ya kuanza itatekelezwa kila wakati kompyuta itakapofunguliwa upya iwe ya kukusudia au la. Kwa kuwa ninatumia hii kama zana ya uchunguzi, haifai kufanywa kuwa huduma ya kuanza, na sihitaji kuiweka kwenye sajili ili kuianzisha, kwa hivyo hii itakuwa sawa. Mara tu ninapotengeneza kompyuta ninaweza kufuta faili kutoka kwa folda ya kuanza na hakuna usafishaji mwingine unaohitajika.

Hatua ya 12: Kuendesha Programu

Unapotekeleza faili ya vbscript sasa itakuwa A.) Angalia ikiwa folda C: / Catcher ipo na ikiwa haitaunda. Ikiwa imeunda folda au faili au zote mbili itatoa ujumbe ikisema iliwaunda (Kumbuka: inapaswa kufanya hivyo kwa kukimbia kwanza baada ya hapo inapaswa kuwa tayari isipokuwa imefutwa kwa hivyo unapaswa kuona tu ujumbe huo mara moja. Inaweza kuwa wazo nzuri kuendesha hati hii mara moja chini ya kuwasha upya kudhibitiwa ili uweze kupitisha hizi pop au usiweze kuandika chochote kwa faili kwa sababu haitapita faili iliyoundwa pop.) D:) Andika mstari kwenye hati ya maandishi Shutdown_Catcher.txt ikisema kwamba kuzima kwa kompyuta kwenye tarehe kama hiyo na kwa wakati kama huo. utaona nambari ikiwa imeandikwa. Sasa ninachohitaji kufanya ni kukaa na kusubiri. Kila wakati kompyuta itakapoanza upya nitakuwa na rekodi yake. Kisha ninaweza kukagua rekodi na kuona ikiwa kuna msimamo wowote kwake. Mfano inaweza kuwa kwamba inaanza tena kila nusu saa au inaanza tena wakati wowote kuna nyongeza au 45 kwenye saa. Hii sio kwa njia yoyote ile ninaangalia kompyuta, kwa hivyo unajua. Pia nina programu ya kuashiria alama inayoendesha kuangalia muda ili nijue ni moto gani wakati inazima, voltage ili nijue ikiwa umeme unashindwa, na vitu vingine kadhaa vya kusaidia. Naam natumahi hii ilikuwa inasaidia. Najua ninafurahia hivyo labda wengine pia. Ikiwa una maswali yoyote jisikie huru kuuliza. Siwezi kufika kwao mara moja lakini nikitumia kidogo na nitakujibu. Inategemea jinsi siku / wiki yangu inafanya kazi.

Hatua ya 13: Kanuni

Hii ndio nambari iliyoandikwa bila vidokezo vyote na maoni_Kuamua ExplicitDim Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ikiwa objFiSyOb. FolderExists (strDir) Kisha Weka objSysFold = objFiSyOb. GetFolder (strDir) objFiSyOb. FileExists (strDir & strFile) Kisha Weka objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Tumeunda folda iitwayo" na strDir "& strFilename &" na kuiweka kwenye saraka ya "& strDir & strFile &". ") Maliza IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Kisha Weka objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOble strDir & strFile) Wscript. Echo ("Tuna aliunda faili iitwayo "& strFileName &" katika folda ya faili ya "& strDir &" Zima "& date &" saa "na saa" Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Mwingine WScript.echo" Kosa la VBScript: "& err.numberEnd IfWScript. Quit