Pengantar VB Script: Panduan Pemula: Bagian 2: Bekerja Dengan File: 13 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:59

Nah di instruksi VBScript terakhir saya, saya membahas cara membuat skrip untuk mematikan internet Anda untuk bermain Xbox360. Hari ini saya memiliki masalah yang berbeda. Komputer saya telah dimatikan secara acak dan saya ingin masuk setiap kali komputer melakukan boot ulang ke dalam sebuah file. Saya merasa bahwa masalahnya adalah kartu video tetapi saya ingin memastikan. Saya membiarkan komputer menyala setiap saat tetapi tidak dapat memantaunya 24/7, jadi solusi termudah saya adalah menulis cap waktu ke file setiap kali reboot. Karena itu memberi saya BSOD setiap saat, login saat dimatikan akan sulit jadi saya harus mendapatkannya saat dihidupkan kembali. Itu bagian yang mudah. Karena fakta bahwa ini hanya sementara sampai saya mengetahui apa yang salah dengan komputer, saya tidak akan menulis ke registri atau menjadikannya layanan sehingga akan mulai saat boot. Dan untuk membuatnya reboot setiap kali dimatikan, saya harus mengedit bios.

Langkah 1: Mengedit Bios untuk Membuatnya Reboot saat Power Fail

Saya tidak yakin apakah masalah saya adalah dengan catu daya gagal atau dengan kartu video saya atau apa itu. Tapi saya tahu bahwa komputer sering reboot. Jadi untuk memastikannya reboot setelah listrik mati (IE: catu daya mati) saya ingin mengedit bios. Karena kenyataan bahwa ada begitu banyak pembuat bios yang berbeda di luar sana, akan terlalu sulit untuk membuat daftar semua cara berbeda untuk melakukan ini di semua layar bios yang berbeda, jadi saya hanya akan memberi Anda dasar-dasarnya dan membiarkan Anda mengetahuinya. spesifikasinya sendiri. Pada dasarnya untuk masuk ke bios Anda, Anda perlu menekan tombol saat boot. Biasanya akan mengatakan sesuatu seperti "hit Del to enter setup" atau "F2". Pabrikan yang berbeda memberi Anda cara yang berbeda tetapi biasanya kunci "F2" atau "Del". Either way perhatikan dan tekan tombol yang memberitahu Anda untuk menekan. Sekarang Anda akan melihat layar yang biasanya berwarna abu-abu atau biru, tetapi sekali lagi itu tergantung pada pembuatan bios Anda. Anda akan mencari opsi pengaturan daya. Itu akan berada di jendelanya sendiri seperti di tangkapan layar AMIBIOS (dipinjam dari panduan perangkat keras toms) atau di beberapa jendela fitur bios lanjutan. Bagaimanapun Anda mencari pengaturan "pemulihan pada ac/power loss". Itu mungkin dinamai sesuatu yang lain tetapi akan dekat dengan itu. Cari saja. Biasanya akan memiliki tiga opsi (status terakhir, hidup setelah kehilangan daya, mati setelah kehilangan daya). Anda ingin mengaktifkannya setelah kehilangan daya. Pastikan Anda menyimpan pengaturan Anda dan keluar dari bios. Sekarang ketika daya Anda gagal atau Anda mencabut mesin Anda, itu akan reboot segera setelah mendapat daya kembali. Yeahhhhh!!!!!!!!!!!!!!!!!!

Langkah 2: Menulis Naskah Bagian 1: Membuat Rencana

Hal pertama yang ingin kita lakukan adalah membuat rencana. Apa sebenarnya yang kita ingin skrip lakukan. A.) Ketika daya gagal atau BSOD muncul, kita ingin reboot. (Berhati-hatilah dalam langkah 1 Mengedit BiosB.) Segera setelah reboot, kami ingin menulis ke file tanggal dan waktu yang tepat untuk reboot. C.) Kami ingin dapat mengubah file itu. Jika reboot lebih dari sekali kami tidak akan pernah tahu. D.) Kami ingin memiliki koreksi kesalahan sehingga tidak akan gagal dan kami memastikan kami mendapatkan semua reboot kami tanpa kehilangan apapun karena pengkodean yang buruk. E.) Kami menginginkannya untuk memunculkan pesan yang mengatakan itu reboot. F.) Kami ingin membuka file yang kami tulis sehingga kami dapat melihat daftar semua reboot ketika kami mengklik ok pada pesan yang muncul.

Langkah 3: Menulis Skrip Bagian 2: Membuat Skrip Anda dan Menetapkan Variabel

Ok pertama-tama, buat dokumen teks dan ganti namanya menjadi any_name.vbs. Saya menggunakan shutdown_catcher.vbs tetapi Anda dapat menggunakan apa saja. Sekarang klik kanan file vbs dan tekan edit. Jika Anda menggunakan notepad ++ sekarang akan menjadi saat yang tepat untuk membukanya, jika tidak tetapi berencana untuk melakukan sejumlah pengkodean Anda harus melihat ke dalam mendapatkannya. Ok sekarang hal pertama yang ingin kita lakukan adalah membuat variabel. Variabel pada dasarnya hanyalah sebuah tempat sehingga kita tidak perlu menulis banyak hal berkali-kali. contoh: kita memiliki kalimat yang mengatakan "rubah coklat cepat melompati anjing malas kembali". tetapi dalam kode kami 20 kali. kita dapat mengetik seluruh kalimat 20 kali atau membuat variabel dan menetapkan kalimat ke variabel ituJadi dalam contoh ini kita membuat variabel strSentence kemudian menetapkan "rubah coklat cepat melompati anjing malas kembali" ke variabel itu. Sekarang yang harus kita lakukan adalah mengetik strSentence setiap kali kita membutuhkan kalimat dan ia tahu untuk mengetik "Rubah coklat cepat melompati anjing malas kembali" bagaimana kita melakukannya:Jika kita memiliki beberapa variabel dari jenis yang sama, kita dapat menempatkan mereka pada baris yang sama dan memisahkan variabel dengan koma. Untuk membuat variabel kita perlu melakukan apa yang disebut dimensi variabel. Untuk melakukan ini kita ketik Dim sebelum variabel lalu kita beri awalan pada variabel sehingga kita tahu apa yang diwakili variabel. Contohnya adalah str untuk variabel string obj untuk variabel objek const untuk konstanta…. Daftarnya terus bertambah. ini adalah yang akan kita gunakan dalam skrip ini jadi saya akan menjelaskannya sedikit. string biasanya teks seperti kalimat. Objek biasanya sesuatu yang fisik seperti file atau program. dan sebuah konstanta adalah sesuatu yang akan selalu memiliki arti yang sama di seluruh naskah. CATATAN:KAPAN SAJA SATU LINE MEMILIKI SATU ' SEBELUMNYA, GARIS AKAN DIABAIKAN OLEH SKRIP. MEREKA DISEBUT KOMENTAR DAN BIASANYA DIMASUKKAN OLEH PROGRAMMER JADI MEREKA DAPAT MENGINGAT APA YANG MEREKA LAKUKAN KEMUDIAN SAAT MENINJAU KODE. SAYA AKAN MENGGUNAKANNYA UNTUK MEMBUAT KOMENTAR TENTANG KODE SEHINGGA ANDA DAPAT MELIHAT MENGAPA SAYA MELAKUKAN BARANG SEPERTI YANG SAYA LAKUKAN. DAN MEREKA AKAN DI ATAS GARIS YANG MEREKA KOMENTARI. Penggunaan Sebenarnya:'baris ini memaksa Anda untuk mendefinisikan semua variabel. Tanpa itu, variabel yang tidak ditentukan akan diperlakukan sebagai objectOption Explicit'sekarang kita membuat 5 variabel untuk folder dan file yang kita perlukan' beri nama sesuai keinginan Anda tetapi konvensinya adalah preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'sekarang kita perlu untuk membuat variabel string untuk direktori, nama file dan fileDim strDir, strFile, strFileName'sekarang berikan nilai ke variabel'strDir adalah direktori kami, kami ingin folder di strDir = "C:\Catcher"'strFile adalah tempat yang kami inginkan dokumen teks dan apa namanyastrFile = "\Shutdown_catcher.txt"'nama strfile adalah agar kita memiliki nama file untuk digunakan dalam pop upsstrFileName ="Shutdown_catcher.txt"'selanjutnya kita harus menetapkan konstanta untuk mengakses file kami memiliki tiga opsi'kami hanya akan menggunakan penambahan dalam kode ini tetapi senang mengetahui semuanya. Const forReading=1, forWriting = 2, ForAppending = 8'terakhir kita perlu mengatur variabel ke sistem file objek sehingga kita dapat memanggilnya nanti saat kita membutuhkannya. Atur objFiS yOb = CreateObject("Scripting. FileSystemObject")

Langkah 4: Penjelasan di Antara

Sekarang setelah kita memiliki variabel yang berdimensi, yang harus kita lakukan adalah mengingat variabel spesifik itu setiap saat. Ini tidak hanya mengurangi jumlah pengetikan yang kita lakukan tetapi juga mengurangi kesalahan karena salah eja. Sekarang secara teknis yang harus kita lakukan adalah mengetikkan kode berikut dan kita selesai 'mengatur file untuk appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)'tulis baris baru ke fileobjTextFile. WriteLine("Your computer Shut down on " & date & " at " & time)'tutup fileobjTextFile. Close'buat pop upWscript. Echo ("Your komputer Matikan " & tanggal & " pada " & waktu)'buka file di IESet objShell = CreateObject("WScript. Shell")objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") Masalahnya adalah itu tidak akan memiliki koreksi kesalahan, dan kesalahan sederhana seperti file tidak ada atau variabel yang sudah ditetapkan akan membuat skrip macet.

Langkah 5: Menulis Script Bagian 3: Jika Kemudian Pernyataan Sebagai Koreksi Kesalahan

Cara termudah untuk melakukan koreksi kesalahan adalah dengan menggunakan pernyataan if/then. Pada dasarnya pernyataan if then mengatakan jika sesuatu terjadi maka lakukan ini jika tidak lakukan itu. Dengan membuat pernyataan if/then Anda dapat membuat serangkaian hal yang harus terjadi. Jika a dan b dan c terjadi maka lakukan ini lain lakukan itu. Contoh: kita ingin memastikan file yang ingin kita tulis ada di sana jika kita menemukannya kita tidak ingin melakukan apa-apajika kita tidak menemukannya kita ingin membuatnya atau kita ingin memeriksa apakah folder itu ada dan jika tidak buat dan kemudian periksa apakah file itu ada setelah kami menemukan foldernya dan jika tidak membuatnya yang pertama adalah contoh pernyataan if maka pernyataan kedua adalah jika bersarang. kita melakukannya: ada empat bagian dari pernyataan if then pernyataan if/then elseend jika pada dasarnya jika ini benar maka lakukan ini jika tidak lakukan itu kemudian akhiri pernyataan pernyataan yang dikodekan dengan benar jika maka pernyataan adalah: If something = something Then do apa yang perlu Anda lakukanLain lakukan sesuatu yang lainEnd JikaAnda dapat menggunakan argumen apa pun selama itu benar itu akan mengikuti bagian lalu dan mengabaikan bagian lain tetapi jika salah ia akan melewatkan lalu dan pergi ke yang lain Kemudian ketika kita mengakhiri pernyataan if kami menempatkan "end if", tetapi jika kami memiliki pernyataan if bersarang, kami harus mengakhiri setiap pernyataan if. Ini akan mengakhiri mereka dari anak ke orang tua sehingga "akhiri if" pertama mengakhiri pernyataan if di dalam induk, di mana yang kedua mengakhiri pernyataan if (induk) asli. Untuk membuat pop up kita cukup mengetikkan Wscript. Echo ("apapun kami ingin mengatakan dalam pesan ")untuk menambahkan nilai variabel ke dalamnya kami meletakkannya di luar atau di antara tanda kutip ganda menggunakan tanda ampersand (&) sebagai pembatas sehingga skrip tahu itu adalah variabel dan bukan teks.seperti ini:Wscript. Echo ("Blah bla bla " & strDir & " bla bla bla "& strNama file & " bla bla bla.") Outputnya akan menjadi pop up yang mengatakan bla bla bla C:\Catcher bla bla bla shutdown_catcher.txt bla bla bla. Penggunaan Aktual:'jika folder C;\ada Jika objFiSyOb. FolderExists(strDir) Kemudian dapatkan folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'buat folder c;\catcher Atur objSysFold = objFiSyOb. CreateFolder(strDir)'dan periksa untuk melihat apakah file dan folder ada Jika objFiSyOb. FileExists(strDir & strFile) Kemudian'jika mendapatkan folder c:\catcher Set ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'buat dokumen teks shutdown_catcher.txt Atur objFile = objFiSyOb. CreateTextFile(strDir & strFile)'lalu munculkan pesan yang mengatakan bahwa Anda membuat keduanya Wscript. Echo ("Kami telah membuat folder bernama " & strDir & " dan sebuah file bernama "& strFilename & " dan letakkan di direktori " & strDir & strFile & ".")'end nested if statementEnd If'end original if statementEnd If'now di first if statement kami sudah memeriksa folder dan menemukannya jadi sekarang kami memeriksa fileIf objFiSyOb. FileExists(strDir & strFile) Then'if found get folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwise Else'buat teks doc Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'membuat popup yang mengatakan kami membuat dokumen teks Wscript. Echo ("Kami telah membuat file bernama " & strFileName & " di folder " & strDir & "file.")End If

Langkah 6: Penjelasan di Antara

Jika Anda melihat lebih dekat kode dari langkah sebelumnya, Anda akan melihat pernyataan if then bersarang dan tidak bersarang. Yang pertama adalah pernyataan bersarang. Itu memeriksa folder dan file dan jika tidak menemukannya, buat keduanya. Yang kedua hanya mencari file dan jika tidak menemukannya, buat file saja. Orang mungkin mengatakan mengapa keduanya. Nah apa jadinya jika file tersebut terhapus tapi foldernya tidak. Pernyataan if pertama akan melewati pembuatan file karena menemukan folder dan tidak akan pernah menjalankan bagian lain dari pernyataan tersebut. Jadi ketika Anda menulis ke file itu akan error karena file tersebut akan hilang. Jadi dengan memiliki yang kedua di sana itu memecahkan masalah ini. Secara teknis Anda dapat mengeluarkan pernyataan bersarang karena hampir sama dengan pernyataan if then yang kedua tetapi kemudian Anda hanya akan memiliki satu pop up dan itu tidak akan menarik. Plus itu memberi saya kesempatan untuk menunjukkan bahwa Anda bersarang sebagai lawan dari un -pernyataan if bersarang.

Langkah 7: Lebih Banyak Koreksi Kesalahan

Sekarang kita telah menyelesaikan sebagian besar koreksi kesalahan yang ingin kita tulis ke file dan menampilkan pop up. Masalahnya adalah kita akan mendapatkan kesalahan izin jika kita tidak melepaskan referensi dari objek sebelumnya yang disimpan dalam variabel. Jadi kami ingin memasukkan potongan kecil kode yang mengatakan atur variabel menjadi tidak ada. terlihat seperti ini: set objFile = tidak ada apa-apa objSysFold = tidak ada Jadi bagi Anda yang mengikuti di rumah kode Anda sampai saat ini seharusnya (saya mengambil komentar keluar):Opsi ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shutdown_catcher.txt = 2, terus untuk menulis ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")Jika objFiSyOb. FolderExists(strDir) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder(strDir)Lain Setel objSysFold = objFiSysFold = objFiSyOb. GetFolder(strDir)Lain Setel objSysFold = objFiSySyOb. Atur objSysFold = objFiSyOb. GetFolder(strDir)Else Atur objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Kami telah membuat folder bernama " & strDir & " dan file bernama "& strFilename & " dan meletakkannya di direktori " & strDir & strFile & ".")End I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) Kemudian Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Kami telah membuat file bernama " & strFileName " & str " & strDir & "folder file.")End Ifset objFile = tidak ada apa-apa objSysFold = tidak ada

Langkah 8: Menulis Script Bagian 4: Mengatur Atribut

Sekarang kita perlu mengatur atribut ke file sehingga kita dapat mengubahnya. Sebelumnya kami menetapkan tiga variabel konstan: forReading=1forWriting=2 forAppending=8jika Anda menyetelnya ke forReading, Anda akan dapat membacanya tetapi tidak menulisnya. Jika Anda menyetelnya ke forWriting, Anda akan menimpa file yang ada setiap kali Anda menjalankan program. Jika Anda menyetelnya ke forAppending, Anda akan menambahkan baris baru setiap kali skrip dieksekusi ke dokumen. Karena kami ingin log setiap kali reboot, kami ingin itu ditambahkan dan tidak ditulis berlebihan, jadi kami menggunakan forAppending. Bagaimana kami melakukannya: Anda harus memberi nama objek yang ingin Anda atur atributnya. Karena kita telah melakukan sebagian besar pekerjaan pada langkah sebelumnya, kita hanya perlu mengingat variabel pada saat ini. Kemudian setel ke true. Actual Usage:'object to set = filesystemobject.action(directory+name of file, attribute, true or false)Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Langkah 9: Menulis Script Bagian 5: Menulis ke File

Menulis ke file sangat mirip dengan menulis pop up. Anda cukup meletakkan:objTextFile. WriteLine("Apa pun yang ingin Anda katakan " & Variabel untuk ditarik untuk menulis baris)Satu-satunya perbedaan adalah bagian pertama. Dalam pop up Anda meletakkan:Wscript.echoin baris tulis yang Anda masukkan:objTextFile. WriteLineDan di baris tulis Anda harus menutup baris tulis sehingga tahu untuk berhenti menulis dan untuk itu Anda menggunakan:objTextFile. CloseActual Usage:objTextFile. WriteLine("Komputer Anda Matikan " & tanggal & " pada " & waktu) objTextFile.close'sekarang tambahkan popup untuk mengatakan bahwa Anda menulis ke file sehingga orang tersebut tahu itu terjadi'dan mereka harus menutupnya untuk membuka file dan melihatWscript. Echo ("Komputer Anda Matikan " & tanggal & " di " & waktu)

Langkah 10: Menulis Script Bagian 5: Membuka File untuk Dilihat

Script pada saat ini akan berhenti sampai seseorang mengklik pop up. Setelah Anda melewati pop up, Anda dapat meletakkan baris yang membuka file. Menggunakan beberapa koreksi kesalahan di dalamnya membantu menjaga program berjalan dengan baik. Ketika Anda membuat kesalahan dalam vbscript, itu menambahkan nilai ke variabel "err.number" yang merupakan variabel yang telah ditentukan sebelumnya dalam vbscript. Anda tidak perlu mendefinisikannya dan dapat menggunakannya seperti variabel lainnya selama Anda tidak melanggar aturannya. Nilai yang diberikan ke variabel err.number adalah kode untuk kesalahan yang terjadi. Sekarang Anda dapat memeriksa setiap kode kesalahan yang diketahui dalam database vbscript dan memastikan itu tidak terjadi. Atau lebih mudahnya, hanya mengecek apakah variabel err.number kosong. jika kosong tidak terjadi kesalahan. Untuk melakukan itu, kami hanya memeriksa untuk melihat apakah variabelnya sama dengan vbEmpty. Jadi dalam skrip kami, kami ingin menggunakan pernyataan if then yang lain. Dan periksa untuk melihat apakah terjadi kesalahan dan jika itu tidak membuka file untuk dilihat, tetapi jika itu terjadi maka muncul pesan dengan nomor kesalahan di dalamnya sehingga kami dapat melakukan debug. Kemudian ketika kami semua selesai dengan skrip kami, kami ketik Wscript. Keluar. Ini memberitahu skrip untuk menghentikan dirinya sendiri. Ini membantu menjaga kebocoran memori dan proses yang tidak diinginkan berjalan. Cara penggunaannya: jika err.number sama dengan vbEmpty, buat shell lalu jalankan program dari shell, jika tidak, muncul pesan yang mengatakan ada errorend if. Penggunaan Sebenarnya: 'periksa errorIf err.number = vbEmpty maka'jika tidak ada yang membuat shell Set objShell = CreateObject("WScript. Shell")'lalu buka file dari shell tersebut menggunakan explorer. itu akan benar-benar terbuka di IE meskipun objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")'jika tidak muncul pesan dengan nomor kesalahanElse WScript.echo "Kesalahan VBScript: " & err.numberEnd If 'akhiri scriptWscript.quit

Langkah 11: Menjalankan Script saat Startup

Ada folder file di menu mulai yang disebut Startup. Apa pun yang ditempatkan ke dalam folder ini akan dimulai segera setelah komputer dinyalakan. Dengan menempatkan file script di folder startup maka akan dieksekusi setiap kali komputer di-boot ulang baik disengaja atau tidak. Karena saya hanya menggunakan ini sebagai alat diagnostik, itu tidak perlu dibuat menjadi layanan untuk memulai, dan saya tidak perlu memasukkannya ke dalam registri untuk memulainya, jadi ini akan baik-baik saja. Setelah saya memperbaiki komputer, saya dapat menghapus file dari folder startup dan tidak diperlukan pembersihan lain.

Langkah 12: Menjalankan Program

Saat Anda menjalankan file vbscript, sekarang akan A.) Periksa untuk melihat apakah folder C:\Catcher ada dan jika tidak buat. B:) Periksa untuk melihat apakah file Shutdown_catcher.txt ada dan jika tidak buat. C:) Jika itu membuat folder atau file atau keduanya akan muncul pesan yang mengatakan itu membuatnya (Catatan: seharusnya hanya melakukan ini saat pertama kali dijalankan setelah itu seharusnya sudah ada di sana kecuali dihapus sehingga Anda hanya akan melihat pesan itu sekali. Mungkin ide yang baik untuk menjalankan skrip ini sekali di bawah reboot terkontrol sehingga Anda dapat melewati pop up ini atau Anda tidak dapat menulis apa pun ke file karena tidak akan melewati file yang dibuat pop up.)D:) Tulis baris di dokumen teks Shutdown_Catcher.txt mengatakan bahwa komputer dimatikan pada tanggal ini dan itu pada waktu tertentu. E:) Munculkan pesan yang mengatakan ada rebootF:) Buka file untuk dilihat. Jika Anda melihat pada langkah berikutnya Anda akan melihat kode seperti yang tertulis. Sekarang yang harus saya lakukan adalah duduk dan menunggu. Setiap kali komputer dinyalakan ulang, saya akan mencatatnya. Kemudian saya dapat meninjau catatan dan melihat apakah ada konsistensi untuk itu. Contohnya mungkin reboot setiap setengah jam atau reboot setiap kali ada kenaikan atau 45 pada jam. Ini bukan satu-satunya cara saya memeriksa komputer, supaya Anda tahu. Saya juga menjalankan program pembandingan untuk memeriksa suhu jadi saya tahu seberapa panas saat dimatikan, voltase jadi saya tahu jika catu daya gagal, dan beberapa hal bermanfaat lainnya. Yah saya harap ini bermanfaat. Saya tahu saya menikmatinya jadi mungkin orang lain juga akan menyukainya. Jika Anda memiliki pertanyaan jangan ragu untuk bertanya. Saya mungkin tidak langsung mendapatkannya tetapi dengan sedikit dan saya akan menjawab Anda. Tergantung pada bagaimana hari / minggu saya lakukan.

Langkah 13: Kode

Ini adalah kode yang ditulis tanpa semua petunjuk dan komentar_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName txt"strFileName Const forReading=1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")Jika objFiSyOb. FolderExists(strDir) Kemudian Tetapkan objSysFold = objFiSyOb. GetFolder(strDir)Else Set objSysFold = objSysFold objFiSyOb. FileExists(strDir & strFile) Kemudian Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo (“Kami telah membuat folder bernama " & strDir & " dan file "& strFilename & " dan letakkan di direktori " & strDir & strFile & ".")End IfEnd IfIf objFiSyOb. FileExists(strDir & strFile) Kemudian Atur objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. Create strDir & strFile) Wscript. Echo ("Kami memiliki membuat file bernama " & strFileName & " di folder " & strDir & "file.")End Ifset objFile = noneset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)objTextFile. WriteLine("Komputer Anda Matikan " & tanggal & " pada " & waktu) objTextFile. CloseWscript. Echo ("Matikan komputer Anda pada " & tanggal & " pada " & waktu)Jika err.number = vbEmpty kemudian Set objShell = CreateObject("WScript. Shell") objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")Else WScript.echo "Kesalahan VBScript: " & err.numberEnd IfWScript. Quit