VB Skriptinə Giriş: Yeni Başlayanlar üçün Kılavuz: 2 -ci hissə: Fayllarla işləmək: 13 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

Son VBScript təlimatçılığımda, Xbox360 -ı oynamaq üçün internetinizi bağlamaq üçün necə bir skript hazırlayacağam. Bu gün fərqli bir problemim var. Kompüterim təsadüfi vaxtlarda bağlanır və hər dəfə kompüterin bir fayla yenidən başladığı vaxt daxil olmaq istəyirəm. Problemin video kartda olduğunu hiss edirəm, amma əmin olmaq istəyirəm. Kompüteri hər zaman açıq qoyuram, amma 7/24 nəzarət edə bilmirəm, buna görə ən asan həllim hər dəfə yenidən başladıqda fayla vaxt möhürü yazmaqdır. Hər dəfə mənə BSOD verdiyinə görə, bağlandıqda giriş etmək çətin olacaq, buna görə yenidən işə düşəndə onu əldə etməliyəm. Kompüterdə nə olduğunu başa düşənə qədər bunun müvəqqəti olması səbəbindən, qeyd dəftərinə yazmayacağam və ya xidmət etməyəcəyəm ki, açılış vaxtında işə düşsün. Və hər dəfə bağlandıqda yenidən başlamasını təmin etmək üçün biosu redaktə etməliyəm.

Addım 1: Power Fail -də yenidən başladın

Problemimin elektrik təchizatı uğursuzluğundan, yoxsa video kartımdan və ya nə olduğundan əmin deyiləm. Ancaq bilirəm ki, kompüter tez -tez yenidən açılır. Elektrik kəsildikdən sonra yenidən başladığından əmin olmaq üçün (IE: enerji təchizatı qəhvəyi olur) Bioları redaktə etmək istəyirəm. Orada çox sayda fərqli bios istehsalçısı olduğuna görə, bunu müxtəlif bios ekranlarında etmək üçün bütün fərqli yolları sadalamaq çox çətin olardı, buna görə sizə yalnız əsasları verəcəyəm və başa düşməyinizə icazə verəcəyəm. Əsasən bios -a daxil olmaq üçün çəkmədə bir düyməni basmaq lazımdır. Adətən "Quraşdırmaya girmək üçün Del düyməsini vur" və ya "F2" kimi bir şey söyləyəcək. Fərqli istehsalçılar sizə fərqli yollar verirlər, lakin ümumiyyətlə "F2" və ya "Del" düyməsidir. Hər halda onu izləyin və vurmağınızı söylədiyi düyməni vurun. İndi ümumiyyətlə boz və ya mavi olan bir ekrana gələcəksiniz, ancaq yenə də biosunuzdan asılıdır. Güc parametrləri seçimini axtaracaqsınız. Ya AMIBIOS ekran görüntüsündə olduğu kimi öz -özünə bir pəncərədə olacaq (toms hardware bələdçisindən götürülmüşdür) və ya bəzilərində inkişaf etmiş bir bios xüsusiyyətləri pəncərəsində ola bilər. Hər halda "ac/güc itkisini bərpa et" ayarı axtarırsınız. Başqa bir şey adlandırıla bilər, amma buna yaxın olacaq. Sadəcə axtarın. Ümumiyyətlə üç variantı olacaq (son vəziyyət, elektrik kəsildikdən sonra, elektrik kəsildikdən sonra sönür). Elektrik kəsildikdən sonra onu işə salmaq istəyirsiniz. Ayarlarınızı saxladığınızdan və biosdan çıxdığınızdan əmin olun. İndi gücünüz kəsildikdə və ya maşınınızı ayırdığınızda, gücü geri alan kimi yenidən başlayacaq. Bəli !!!!!!!!!!!!!!!!

Addım 2: Ssenari Yazmaq 1 -ci hissə: Plan hazırlamaq

Etmək istədiyimiz ilk şey bir plan hazırlamaqdır. Ssenarinin tam olaraq nə olmasını istəyirik. (1 -ci addımda BiosB -un redaktə edilməsi ilə məşğul oluruq.) Yenidən başladıqdan sonra yenidən başladığı dəqiq tarixi və saatı bir fayla yazmaq istəyirik. C.) Bu faylda dəyişiklik edə bilmək istəyirik. Bir dəfədən çox yenidən başladıqda, heç vaxt bilməyəcəyik. D.) Səhvlərin düzəldilməsini istəyirik, buna görə də pozulmayacaq və pis kodlaşdırma səbəbiylə heç bir şeyi itirmədən bütün yenidən başladıqlarımızı aldığımızdan əminik. E.) İstəyirik Yenidən başladığını bildirən bir mesaj açılır.

Addım 3: Ssenarinin Yazılması 2 -ci hissə: Ssenarinizin Yaradılması Dəyişənlərin Təyin Edilməsi

Tamam ilk növbədə bir mətn sənədi yaradın və adını any_name.vbs olaraq dəyişdirin. Shutdown_catcher.vbs istifadə etdim amma hər şeyi istifadə edə bilərsiniz. İndi vbs faylını sağ vurun və redaktə edin. Notepad ++ -dan istifadə edirsinizsə indi açmaq üçün yaxşı bir vaxt olardı. əldə etmək üçün baxmalıyıq. İndi etmək istədiyimiz ilk şey dəyişənlər yaratmaqdır. Dəyişənlər əsasən yalnız bir yer sahibidir, buna görə bir neçə dəfə bir dəstə şey yazmaq məcburiyyətində deyilik. Məsələn: "sürətli qəhvəyi tülkü tənbəl itlərin üstündən tullanır" deyən bir cümləmiz var. amma kodumuzda 20 dəfə var. ya bütün cümləni 20 dəfə yaza bilərik, ya da bir dəyişən yarada və cümləni həmin dəyişənə təyin edə bilərik. Buna görə bu misalda strSentence dəyişənini yaradırıq və sonra həmin dəyişənə "tez qəhvəyi tülkü tənbəl itlərin üstündən tullanır" təyin edirik. İndi etməmiz lazım olan hər dəfə cümlənə ehtiyac duyduğumuz zaman strSentence yazmaqdır və "tez qəhvəyi tülkü tənbəl itlərin üstündən tullanır" yazmağı bilir bunu necə edək: Eyni tipli birdən çox dəyişənimiz varsa qoya bilərik eyni sətirdə yerləşdirin və dəyişənləri vergüllə ayırın. Dəyişən yaratmaq üçün dəyişənin ölçülməsi adlanan şeyi etməliyik. Bunu etmək üçün dəyişəndən əvvəl Dim yazırıq və dəyişənin nəyi təmsil etdiyini bilmək üçün dəyişənə bir prefiks qoyuruq. Nümunələr bir sabit üçün bir obyekt dəyişən const üçün bir sim dəyişən obj üçün str…. Siyahı davam edir. bu yazıda istifadə edəcəyimiz bunlardır, buna görə bir az izah edəcəyəm. bir simli ümumiyyətlə cümlə kimi bir mətndir. Bir obyekt ümumiyyətlə bir fayl və ya proqram kimi fiziki bir şeydir. və sabit, ssenari boyunca həmişə eyni mənaya sahib olan bir şeydir. DİQQƏT: HƏR ZAMAN BİR SƏRƏTİN TƏKSİZ OLUNMASINDAN ÖNCƏ, SİZİNİN İSTİFADƏ EDİLMƏSİNDƏDİR. KODU YENİDƏN SONRA NƏ ETDİLƏRİNİ UNUTMAYACAQLAR. ONLARDAN KOD HAQQINDA ŞƏRH VERMƏK ÜÇÜN İSTƏYƏCƏM. VƏ ONLAR HAQQINDA ŞƏRH VERİRLƏRİNİN YÜKSƏNDƏ OLACAQ. Faktiki İstifadə: 'Bu xətt sizi bütün dəyişənləri təyin etməyə məcbur edir. Onsuz hər hansı bir təyin edilməmiş dəyişən obyekt olaraq qəbul ediləcək. dizin, fayl və fayl adı üçün simli dəyişənlər yaratmaq üçünDim strDir, strFile, strFileName, dəyişənlərə dəyərlər təyin edin strDir qovluğumuzun istədiyimiz qovluqdur strDir = "C: / Catcher" 'strFile istədiyimiz yerdir mətn sənədi və adlandırıldığı şeystrFile = "\ Shutdown_catcher.txt" 'strfile adı belədir ki, pops -da istifadə etmək üçün faylın adına sahibik upsstrFileName = "Shutdown_catcher.txt" Üç variantımız var 'yalnız bu koddakı əlavəni istifadə edəcəyik, amma hamısını bilmək çox xoşdur. ConReading = 1, forWriting = 2, ForAppending = 8'Son olaraq fayl sisteminə bir dəyişən təyin etməliyik. obyektə ehtiyac duyduqda sonra zəng edə biləcəyik yOb = CreateObject ("Scripting. FileSystemObject")

Addım 4: Aralarındakı şərhlər

Dəyişənlərimizi ölçdükdən sonra etməli olduğumuz şey, hər dəfə bu dəyişəni xatırlamaqdır. Bu, nəinki yazdığımızın miqdarını azaldır, həm də yazım səhvləri səbəbindən daha az səhvlər yaradır. İndi texniki olaraq etməli olduğumuz tək şey aşağıdakı kodu yazmaqdır və "appendSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'yeni satırı fileobjTextFile. WriteLine -ə yazın ("Kompüteriniz" və "tarixində" və "at" və saatda) "fileobjTextFile. Close'm açılan bir WScript. Echo (" Sizin kompüter "& Tarixi" bağlayın "və" zamanda ") faylı IESet -də açın objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problem ondadır ki, heç bir səhv düzəlişi olmayacaq və mövcud olmayan fayl və ya artıq təyin edilmiş dəyişən kimi hər hansı bir sadə səhv skriptə çökəcək.

Addım 5: Skriptin Yazılması 3 -cü hissə: Əgər Səhvlərin Düzəldilməsi Olaraq Deyirlər

Səhv düzəltməyin ən asan yolu if/then ifadələrini istifadə etməkdir. Əsasən if if ifadəsi bir şey olarsa deyirsə bunu başqa cür edin. If/then ifadələrini içəri qoyaraq, baş verməli olan bir sıra şeylər yarada bilərsiniz. A və b və c baş verərsə, bunu başqa bir şəkildə edin. Misal: yazmaq istədiyimiz faylın orada olmasını təmin etmək istəyirik, əgər tapsaq heç bir şey etmək istəmiriksə tapmasaq da yaratmaq istəyirik və ya qovluğun olub -olmadığını yoxlamaq və yaratmaq istəmədikdən sonra qovluğu tapdıqdan sonra faylın orada olub olmadığını yoxlamaq istəyirik, əgər birincisi if ifasının ifadəsidirsə o halda ikincisi yuvalıdır. biz bunu edirik: if if ifadəsinin dörd hissəsi var, əgər/əgər başqa bir şeydirsə, əgər bu doğrudursa, bunu başqa cür edin, sonra ifadəsi düzgün kodlanmış ifadəni bitirin: əgər bir şey = bir şeydirsə nə etməlisənsə başqa bir şey et və əgər hər hansı bir arqumenti doğru olduğu müddətdə istifadə edə bilərsənsə, o zamanki hissəni izləyəcək və digər hissəni görməməzliyə vuracaq, amma yalan olarsa o zaman atlayaraq başqa bir yerə gedəcək. "If if" qoyuruq, amma əgər if ifadələrini iç içə qoymuşuqsa, hər if ifadəsinə son qoymalıyıq. Onları uşaqdan valideynə sonlandıracaq, buna görə də ilk "if if" valideyn daxilindəki if ifadəsini bitirir, ikincisi if (ifa) ifasının əslini bitirir. Bir açılış etmək üçün sadəcə Wscript. Echo ("nə olursa olsun) yazırıq. ") mesajında demək istəyirik ki, dəyişən bir dəyər əlavə etmək üçün onu ayırıcı olaraq ampersand (&) işarəsindən istifadə edərək kənarda və ya ikiqat tırnakların arasına qoyduq, buna görə də skript bunun dəyişən olduğunu və mətn olmadığını bilir.: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Çıxış Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. Aktual İstifadə: 'əgər C; / qovluğu varsa objFiSyOb. FolderExists (strDir) Sonra' ObjSysFold = ObjFiSyOb. GetFolder (strDir) 'qovluğunu seçin, əks halda c; / catcher ObjSysFOd = objSysFoldb qurun. CreateFolder (strDir) 'və faylın və qovluğun olub olmadığını yoxlayın Əgər objFiSyOb. FileExists (strDir & strFile) Sonra c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'əks haldaElse'create text document shutdown_catcher.txt ObjFile = objFiSyOb. CreateTextFile (strDir & strFile)' seçin və sonra hər ikisini yaratdığınızı bildirən bir mesaj açılır Wscript. Echo ("Biz adlı "& strDir &" və "& strFilename &" adlı bir fayl və "& strDir & strFile &" qovluğuna yerləşdirdi. ") 'sonu ifEst IfEend If'end original if statementEnd If'now ilk if ifadəsində biz artıq qovluğu yoxladıq və onu tapdıq, indi fileIf yoxlayırıqsa objFiSyOb. FileExists (strDir & strFile) Sonra tapdıqda qovluq al Set objSysFold = objFiSyOb. GetFolder (strDir) 'Əks təqdirdə mətn sənədini yaradın objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'Wscript. Echo ("& strDir &" fayl qovluğunda "&" StrFileName & "adlı bir fayl yaratdıq") mətn sənədini yaratdığımızı bildirən bir popup yaradın.

Addım 6: Aralarındakı şərhlər

Əvvəlki addımdakı kodu yaxından nəzərdən keçirsəniz, həm iç içə, həm də yuvasız bir ifadəni görəcəksiniz. Birincisi, iç içə olan bir bəyanatdır. Qovluğu və faylı yoxlayır və tapmasa hər ikisini yaradır. İkincisi, yalnız bir fayl axtarır və tapmasa, yalnız faylı yaradır. Hər ikisinin niyə olduğunu söyləmək olar. Yaxşı, fayl silinsə də qovluq silinməsə nə olar. İlk if ifadəsi, qovluğu tapdığı üçün faylın yaradılmasının üstündən keçər və heç vaxt ifadənin digər hissəsini işə salmaz. Beləliklə, fayla yazmağa getdiyiniz zaman səhv olardı, çünki fayl yoxdur. Beləliklə, ikincisi var, bu problemi həll edir. Texniki cəhətdən iç içə olan ifadəni çıxara bilərsən, çünki demək olar ki, ikincisi ilə eynidir, ancaq o zaman yalnız bir açılırsan və o qədər də cəlbedici olmayacaq -ifadələr varsa iç içə.

Addım 7: Daha çox Hata Düzəltmə

İndi fayla yazmaq və açılan pəncərələri göstərmək istədiyimiz səhvlərin düzəldilməsinin çox hissəsini tamamladıqdan sonra, dəyişəndə saxlanılan əvvəlki obyektin istinadını buraxmasaq problemin icazə səhvləri alacağıq. Beləliklə, dəyişənləri heç bir şeyə qoymayın deyən kiçik bir kod parçası qoymaq istəyirik: bax belə: set objFile = nothingset objSysFold = nothing out): Seçim ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Əgər objFiSyOb. FolderExists (strDir) Əgər ObjSysFold = objFiSyOb. GetFolder (strDir) Başqa bir Set objSysFOlFirDir (obDFDD) ObjSysFold = objFiSyOb. GetFolder (strDir) Başqa bir şəkildə təyin edin objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("" & strDir & "adlı bir qovluq və" & strFilename & "adlı bir fayl yaratdıq və yerləşdirdik "& strDir & strFile &" qovluğu. ") Son I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Sonra Set objSysFold = objFiSyOb. GetFolder (strDir) Başqa bir Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("adlı var) "& strDir &" fayl qovluğu. ") Ifset -i bitirin objFile = nothingset objSysFold = heç nə

Addım 8: Ssenari Yazmaq 4 -cü hissə: Xüsusiyyətlərin qurulması

İndi faylın xüsusiyyətlərini təyin etməliyik ki, onu düzəldə bilək. Əvvəllər üç sabit dəyişən təyin etdik: forReading = 1forWriting = 2 forAppending = 8 Əgər forReading olaraq təyin etsəniz, oxuya bilərsiniz, ancaq yaza bilməzsiniz. ForWriting olaraq təyin etsəniz, proqramı hər çalıştırdığınızda mövcud faylın üzərinə yazacaqsınız.. Sifarişi sənədə hər dəfə icra edəndə yeni bir sətir əlavə edəcəksiniz.: atributları təyin etmək istədiyiniz obyektə ad verməlisiniz. Əvvəlki addımlardakı işlərin çoxunu etdiyimiz üçün bu anda dəyişənləri xatırlamalıyıq. Sonra onu doğru olaraq təyin edin. Faktiki İstifadə: 'set to files = filesystemobject.action (qovluq+faylın adı, atribut, doğru və ya yalan) ObjTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Addım 9: Ssenarinin Yazılması 5 -ci hissə: Faylı yazmaq

Bir fayla yazmaq pop -up yazmaq kimidir. Sadəcə qoyursunuz: objTextFile. WriteLine ("Nə demək istəsəniz" və sətir yazmaq üçün Dəyişən) Yeganə fərq ilk hissədir. Açılan bir pəncərədə: Wscript.echoin yazdığınız bir sətrə yazın: objTextFile. WriteLineA Və bir yazma xəttində yazmağı dayandırmağı və bunun üçün istifadə etdiyinizi bilmək üçün yazma xəttini bağlamalısınız: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Kompüteriniz söndürüldü" və tarixdə "və" saatında) objTextFile.yaxın bir fayla yazdığınızı söyləmək üçün bir açılan pəncərə əlavə edin ki, adam bunun baş verdiyini bilsin ' və vaxt)

Addım 10: Ssenarinin Yazılması 5 -ci hissə: Faylın Baxılması üçün Açılması

Ssenari bu anda kimsə açılan pəncərəni tıklayana qədər dayanacaq. Açılan pəncərəni keçdikdən sonra faylı açan bir xətt qoya bilərsiniz. Bunun üzərindəki bəzi səhvlərin düzəldilməsi proqramın yaxşı işləməsinə kömək edir. Vbscript -də bir səhv yaratdığınızda, vbscript -də əvvəlcədən təyin edilmiş bir dəyişən olan "err.number" dəyişəninə bir dəyər əlavə edir. Bunu təyin etmək məcburiyyətində deyilsiniz və qaydalarını pozmadığınız müddətcə digər dəyişənlər kimi istifadə edə bilərsiniz. Err.number dəyişəninə təyin olunan dəyər, baş verən xətanın kodudur. İndi ya vbscript verilənlər bazasında bilinən hər bir səhv kodunu yoxlaya və bunun baş vermədiyinə əmin ola bilərsiniz. Və ya daha asan, yalnız err.number dəyişəninin boş olub olmadığını yoxlamaqdır. boş olarsa heç bir səhv baş vermədi. Bunu etmək üçün dəyişənin vbEmpty -yə bərabər olub olmadığını yoxlayırıq. Beləliklə, skriptimizdə başqa bir ifadəni istifadə etmək istəyirik. Və bir səhvin olub olmadığını və faylı görmək üçün açmadığını yoxlayın, ancaq açarsa, onda səhv nömrəsi olan bir mesaj aça bilərik, sonra ayıklaya bilərik. Wscript yazın. Çıxın. Bu, skriptin özünü dayandırmasını bildirir. Bu, yaddaş sızmalarını və istənməyən prosesləri saxlamağa kömək edir. Necə istifadə olunur: err.number vbEmpty -yə bərabərdirsə, bir qabıq yaradın, sonra proqramı qabıqdan çalıştırın, əks halda səhv olduğunu bildirən bir mesaj açılır. errorIf err.number = vbEmpty, onda heç biri qabıq yaratmırsa objShell = CreateObject ("WScript. Shell") 'seçin, sonra Explorer -dən istifadə edərək həmin qabıqdakı faylı açın. əslində objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") '' əks halda IE -də açılacaq, əks halda başqa bir nömrə ilə bir mesaj açarElse WScript.echo "VBScript Error:" & err.numberEnd 'son scriptWscript.quit

Addım 11: Başlanğıcda Skriptin işə salınması

Başlanğıc menyusunda Başlanğıc adlı bir fayl qovluğu var. Bu qovluğa yerləşdirilən hər şey kompüter işə salınan kimi başlayacaq. Skript faylını başlanğıc qovluğuna yerləşdirərək, kompüter hər dəfə yenidən başladıqdan sonra istər istəsə də yerinə yetirəcək. Bunu yalnız bir diaqnostika vasitəsi olaraq istifadə etdiyim üçün onu başlatmaq üçün bir xidmətə çevirmək lazım deyil və onu işə salmaq üçün reyestrə daxil etməyim lazım deyil, buna görə də yaxşı olacaq. Kompüteri düzəltdikdən sonra faylı başlanğıc qovluğundan silə bilərəm və başqa heç bir təmizləmə tələb olunmur.

Addım 12: Proqramı işə salın

Vbscript faylını icra edərkən indi A. olacaq.) C: / Catcher qovluğunun olub olmadığını yoxlayın. B) Shutdown_catcher.txt faylının olub olmadığını yoxlayın.) Bir qovluq və ya fayl yaratdısa və ya hər ikisini yaratdıqlarını bildirən bir mesaj açılacaq (Qeyd: bunu yalnız ilk işdə etməlidir, bundan sonra silinməyincə orada olmalıdır, buna görə də bu mesajı yalnız bir dəfə görməlisiniz.. Bu skriptin idarə olunan bir yenidən başlatma altında bir dəfə işə salınması yaxşı bir fikir ola bilər, beləliklə bu pop -upları atlaya bilərsiniz və ya yaradılan faylı açılan pəncərələri keçməyəcəyi üçün fayla heç nə yaza bilməzsiniz.) D:) mətn sənədi Shutdown_Catcher.txt, kompüterin filan vaxt belə bir tarixdə bağlandığını söyləyir. kodu yazıldığını görəcəksiniz. İndi etməli olduğum tək şey oturub gözləməkdir. Kompüter hər dəfə yenidən başladıqda onun qeydləri olacaq. Sonra qeydləri nəzərdən keçirə bilərəm və buna uyğunluq olub olmadığını görə bilərəm. Məsələn, hər yarım saatda yenidən başladığı və ya bir artım və ya saatda 45 olduğu zaman yenidən başladığı ola bilər. Kompüteri yoxlamağın yeganə yolu bu deyil. İstilikləri yoxlamaq üçün çalışan bir müqayisə proqramım da var, buna görə söndürüldükdə nə qədər isti olduğunu, gərginliyi bilirəm, enerji təchizatının uğursuz olub olmadığını və bir neçə başqa faydalı şeyi bilirəm. Yaxşı inşallah bu faydalı oldu. Zövq aldığımı bilirəm, bəlkə başqaları da sevər. Hər hansı bir sualınız varsa, soruşmaqdan çekinmeyin. Dərhal onlara çata bilməyəcəyəm, ancaq bir az səbr edib sizə cavab verəcəyəm. Günün/həftənin necə keçdiyindən asılıdır.

Addım 13: Kod

Bu, bütün göstərişlər və şərhlər olmadan yazılmış koddur_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.tatcher_tatcher Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Əgər objFiSyOb. FolderExists (strDir) olarsa Sonra objSysFold = objFiSyOb. GetFolder (Set) objFiSyOb. FileExists (strDir & strFile) Sonra Set ObjSysFold = objFiSyOb. GetFolder (strDir) Başqa Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("və" adlı bir qovluq yaratdıq " "& strFilename &" və "& strDir & strFile &" qovluğuna yerləşdirdi. ") IfEnd IfInd IfIf objFiSyOb. FileExists (strDir & strFile) Sonra Bitirin ObjSysFold = objFiSyOb. GetFolder (strDir) Başqa bir Set objFileF (objFiSyOb) strDir & strFile) Wscript. Echo ("Bizdə var "& strDir &" fayl qovluğunda "& strFileName &" adlı bir fayl yaratdı.) Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine "& Tarixi" "və" vaxtında "və vaxtı" bağlayın objTextFile. CloseWscript. Echo ("Kompüteriniz" tarixini & "və" at "və saatda bağlayın) Əgər err.number = vbEmpty olarsa objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Başqa WScript.echo" VBScript Hatası: "& err.numberEnd IfWScript. Quit