5 Script VB Windows yang Berguna untuk Mengotomatiskan Penggunaan Komputer Anda

Apakah Anda seorang analis TI atau pengguna komputer biasa, ada banyak tugas yang mungkin perlu sering Anda lakukan di PC Anda. Skrip VB adalah program Visual Basic yang diperkecil yang berfungsi sebagai skrip Windows yang dapat melakukan apa saja mulai dari menarik informasi penting tentang perangkat keras komputer Anda, hingga menghentikan dan memulai layanan atau mengatur ulang kartu jaringan Anda.

Dimungkinkan untuk mempelajari cara melakukan semua hal individual itu dengan cara biasa, atau melakukannya menggunakan file batch. Tetapi Skrip VB lebih baik daripada skrip batch karena mereka lebih fleksibel. Jika Anda menyimpan skrip berikut di tempat umum yang cepat diakses saat Anda membutuhkannya, Anda dapat menyelesaikan tugas ini dalam waktu singkat. Anda cukup mengklik dua kali skrip, menjawab prompt, dan tugas selesai.

Lihatlah skrip VB Windows berikut dan jika Anda melihat ada yang ingin Anda gunakan, cukup salin dan tempel skrip ke Notepad atau alat catatan pengkodean lainnya dan simpan sebagai file WSF.

Siapkan Skrip Windows Anda

Setiap skrip yang dirinci di bawah ini akan berjalan hanya dengan klik dua kali selama Anda menamai file dengan ekstensi .WSF, dan Anda juga menyertakan kode di awal dengan:

Dan tutup kode dengan:

WScript.Quit

Ini memastikan bahwa Windows akan mengenali bahasa penulisan skrip Anda, dan memprosesnya dengan benar.

1. Gunakan Skrip Windows untuk Informasi Komputer

Windows menawarkan sesuatu yang disebut WMI, atau Windows Management Instrumentation, yang menyediakan skrip Anda dengan antarmuka untuk mengakses komponen sistem operasi. Anda benar-benar dapat menjalankan kueri terhadap WMI untuk mendapatkan informasi langsung terkini tentang sistem Anda. Microsoft menawarkan daftar lengkap semua kategori kueri Anda dapat membuat melawan sistem.

Kami telah membahas cara menggunakan VBA untuk menarik informasi komputer ke Excel , tetapi Anda dapat melakukan hal yang sama menggunakan skrip VB sederhana di luar Excel.

Dalam contoh ini kita akan menanyakan sistem untuk informasi prosesor (keluarga, pabrikan, dan jumlah inti), informasi baterai (deskripsi dan status), dan informasi disk logis (nama, sisa ruang kosong, dan ukuran keseluruhan). Kemudian kami akan menampilkan semua informasi ini ke file CSV agar mudah dilihat.

Langkah pertama adalah menyiapkan FileSystemObject yang akan Anda gunakan untuk menghasilkan file CSV, dan buat file:

Set oFSO = CreateObject('Scripting.FileSystemObject')  
sFile1 = 'MyComputerInfo.csv'  
Set oFile1 = oFSO.CreateTextFile(sFile1, 1)

Langkah selanjutnya adalah menyiapkan kueri WMI dan menjalankannya:

cara mengatur wifi di raspberry pi 3

strQuery = 'SELECT Family,Manufacturer,NumberOfCores FROM Win32_Processor'  
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )

Terakhir, urutkan hasil dan keluaran informasi ke file CSV. Jika Anda ingin menjadi mewah, awali ini dengan beberapa baris untuk membantu membuat file keluaran Anda terlihat lebih baik:

oFile1.WriteLine 'Processor Information'  
oFile1.WriteLine '------'  
For Each objResult In colResults  
 strResults = 'Family:,'+CStr(objResult.Family)  
 oFile1.WriteLine strResults  
 strResults = 'Manufacturer:,'+CStr(objResult.Manufacturer)  
 oFile1.WriteLine strResults  
 strResults = 'Number of Cores:,'+CStr(objResult.NumberOfCores)  
 oFile1.WriteLine strResults  
Next

Jika Anda menjalankan kode Anda sekarang, seperti inilah tampilan output Anda:

Untuk dua bagian berikutnya dari kode Anda, Anda hanya akan mengulangi dan mengubah kueri untuk mencari informasi tambahan. Berikut permintaan info baterai:

oFile1.WriteLine ''  
strQuery = 'SELECT Description,Status FROM Win32_Battery'  
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )  
oFile1.WriteLine 'Battery Information'  
oFile1.WriteLine '------'  
For Each objResult In colResults  
 strResults = 'Status:,'+CStr(objResult.Description)  
 oFile1.WriteLine strResults  
 strResults = 'Description:,'+CStr(objResult.Status)  
 oFile1.WriteLine strResults  
Next

Dan inilah bagian selanjutnya untuk kueri disk logis:

oFile1.WriteLine ''  
strQuery = 'Select Name, FreeSpace, Size from Win32_LogicalDisk'  
Set colResults = GetObject('winmgmts://./root/cimv2').ExecQuery( strQuery )  
oFile1.WriteLine 'Disk Information'  
oFile1.WriteLine '------'  
'Identify the Logical Disk Space  
For Each objResult In colResults  
 strResults = 'Name:,'+CStr(objResult.Name)  
 oFile1.WriteLine strResults  
 strResults = 'Free Space:,'+CStr(objResult.FreeSpace)  
 oFile1.WriteLine strResults  
 strResults = 'Disk Size:,'+CStr(objResult.Size)  
 oFile1.WriteLine strResults  
Next

Terakhir, ingatlah untuk menutup kode dengan menutup file dan mengatur objek ke 'Tidak Ada':

oFile1.Close  
Set oFile1 = Nothing  
set colResults = Nothing  
strResults = ''

Masukkan semua kode itu ke file .WSF baru Anda, jalankan, dan inilah tampilan output Anda:

Cukup tukar kueri di atas untuk perangkat komputer atau perangkat lunak lain yang ingin Anda dapatkan informasinya, dan Anda bisa mendapatkan laporan sistem lengkap kapan pun Anda mau hanya dengan mengklik mouse.

2. Berhenti dan Mulai Layanan

Akan ada saat-saat ketika layanan tertentu mengalami masalah, dan hanya membutuhkan restart cepat untuk dapat berjalan dengan baik lagi. Ini terutama benar dalam IT ketika Anda dipaksa untuk menjalankan perangkat lunak server yang terkadang sedikit bermasalah.

Jika Anda ingin mengurangi satu menit atau lebih dari proses restart layanan, simpan saja skrip berikut di tempat yang nyaman. Ini akan meminta Anda untuk mengetikkan nama layanan yang ingin Anda mulai ulang, dan kemudian akan melakukan hal itu.

Karena menghentikan dan memulai layanan memerlukan hak administratif, Anda perlu menempatkan kode berikut di awal skrip Anda untuk memberikan skrip Anda hak istimewa yang ditinggikan :

If Not WScript.Arguments.Named.Exists('elevate') Then  
 CreateObject('Shell.Application').ShellExecute WScript.FullName _  
 , '''' & WScript.ScriptFullName & ''' /elevate', '', 'runas', 1  
 WScript.Quit  
End If

Setelah ini selesai, tambahkan sisa kode untuk menjalankan kotak input untuk input pengguna, luncurkan jendela perintah , dan kirimkan 'net stop' dan 'net start command':

Set cmdShell = CreateObject('WScript.Shell')  
strServiceName=Inputbox('Inter Service to Stop','Input Required')  
cmdShell.Run 'cmd.exe'  
WScript.Sleep 1000  
cmdShell.SendKeys 'net stop '+strServiceName  
cmdShell.SendKeys '{Enter}'  
WScript.Sleep 1000  
cmdShell.SendKeys 'net start '+strServiceName  
cmdShell.SendKeys '{Enter}'  
WScript.Sleep 1000  
cmdShell.SendKeys 'Exit'  
cmdShell.SendKeys '{Enter}'

Itu saja. Tidak perlu mencari-cari alat layanan. Jalankan saja skrip ini dan hentikan dan mulai layanan apa pun dalam hitungan detik.

3. Ubah Pengaturan Registri, Kata Sandi Admin Default

Dengan skrip berikut, kita akan membunuh dua burung dengan satu batu. Script ini akan menunjukkan kepada Anda bagaimana caranya mengedit registri dengan skrip VB. Ini juga akan memberi Anda skrip yang memungkinkan Anda mengatur nama pengguna dan kata sandi Windows default dengan mengedit pengaturan registri tersebut.

Berikut cara kerjanya. Pertama, karena mengedit registri memerlukan hak admin, Anda harus menyiapkan hak istimewa yang lebih tinggi untuk skrip Anda:

If Not WScript.Arguments.Named.Exists('elevate') Then  
 CreateObject('Shell.Application').ShellExecute WScript.FullName _  
 , '''' & WScript.ScriptFullName & ''' /elevate', '', 'runas', 1  
 WScript.Quit  
End If

Pertama jalankan dua kotak input untuk menanyakan nama pengguna dan kata sandi apa yang akan digunakan pengguna:

strUserName=Inputbox('Enter the default User Name','Input Required')  
strPassword=Inputbox('Enter the default Password','Input Required')

Selanjutnya, atur objek shell, dan tulis nilai tersebut ke kunci registri yang sesuai:

Set wshShell = CreateObject( 'WScript.Shell' )  
wshShell.RegWrite 'HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogonDefaultUserName', strUserName, 'REG_SZ'  
wshShell.RegWrite 'HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogonDefaultPassword', strPassword, 'REG_SZ'  
Set wshShell = Nothing

Dan hanya itu yang ada untuk itu. Metode 'RegWrite' memungkinkan Anda menulis nilai apa pun ke kunci registri apa pun menggunakan skrip VB Windows. Yang harus Anda ketahui adalah jalan yang tepat.

Jalankan skrip dan jawab petunjuknya.

Nilai yang Anda masukkan akan dimasukkan langsung ke dalam pengaturan registri yang telah Anda siapkan di skrip.

Main-main dengan skrip dan sesuaikan dengan keinginan Anda. Anda dapat mengedit kunci registri apa pun yang Anda suka, jadi kreatiflah!

4. Atur Ulang Koneksi Jaringan Anda

Menyetel ulang koneksi jaringan Anda menggunakan skrip VB adalah sesuatu yang telah kita bahas sebelumnya di sini di MakeUseOf. Versi berikut ini sebenarnya diperkecil dan lebih sederhana untuk diterapkan. Alih-alih meminta kartu jaringan individual, itu mengatur ulang semua koneksi aktif Anda yang diharapkan akan menyelesaikan masalah jaringan apa pun yang mungkin Anda alami.

Seperti halnya skrip lain yang memerlukan hak admin, Anda harus menambahkan bagian di awal untuk mendapatkan hak istimewa yang lebih tinggi. Salin kode itu dari skrip di atas.

Selanjutnya, buat objek WMI dan tanyakan daftar adapter jaringan yang diaktifkan di sistem Anda:

strComputer = '.'  
Set objWMIService = GetObject('winmgmts:\' & strComputer & 'ootCIMV2')  
Set colItems = objWMIService.ExecQuery( _  
 'SELECT * FROM Win32_NetworkAdapter Where NetEnabled = 'True'')

Terakhir, ulangi semua adaptor yang diaktifkan dan setel ulang:

For Each objItem in colItems  
 objItem.Disable  
 WScript.Sleep 1000  
 objItem.Enable  
Next

Ini akan mengatur ulang semua adaptor jaringan aktif , yang seringkali merupakan cara tercepat untuk menyelesaikan masalah jaringan yang mengganggu. Simpan skrip ini berguna dan coba dulu setiap kali Anda memiliki jaringan yang lambat atau masalah jaringan aneh lainnya.

5. Perangkat Ping atau Situs Web

Saya telah menyimpan skrip windows VB favorit saya untuk yang terakhir. Ini adalah salah satu yang benar-benar saya atur sebagai tugas terjadwal di komputer rumah saya dan menjalankannya beberapa kali sehari hanya untuk memeriksa apakah situs web saya aktif. Saya memiliki skrip, kirimkan email kepada saya jika situsnya sedang down. Anda dapat menggunakan skrip yang sama ini untuk memantau server atau komputer penting di jaringan Anda dan mengirim email sendiri kapan pun skrip Anda tidak dapat melakukan ping ke perangkat.

Pertama, siapkan skrip untuk target yang ingin Anda ping, buat objek shell, lalu jalankan perintah ping.

strTarget = 'topsecretwriters.com'  
Set WshShell = WScript.CreateObject('WScript.Shell')  
Ping = WshShell.Run('ping -n 1 ' & strTarget, 0, True)

Gunakan pernyataan Select Case untuk menjalankan hasil Ping dan meresponsnya. Jika hasilnya kembali nol, maka Anda tahu bahwa situs (atau server) sedang online dan Anda tidak perlu melakukan apa pun. Jika mengembalikan '1' maka ping gagal dan Anda perlu melakukan sesuatu. Dalam kasus saya, saya mengirim email menggunakan objek Windows CDO:

Select Case Ping  
 Case 0  
 Case 1  
 Set objMessage = CreateObject('CDO.Message')  
 Set objConfig = CreateObject('CDO.Configuration')  
 objConfig.Load -1  
 Set Flds = objConfig.Fields  
 With Flds  
 .Item ('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True  
 .Item ('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate')=1  
 .Item ('http://schemas.microsoft.com/cdo/configuration/sendusername')='xxxxxx@gmail.com'  
 .Item ('http://schemas.microsoft.com/cdo/configuration/sendpassword')='xxxxxxxxxxxxxxxxx'  
 .Item ('http://schemas.microsoft.com/cdo/configuration/smtpserver')='smtp.gmail.com'  
 .Item ('http://schemas.microsoft.com/cdo/configuration/sendusing')=2  
 .Item ('http://schemas.microsoft.com/cdo/configuration/smtpserverport')=465  
 .Update  
 End With  
 With objMessage  
 Set .Configuration = objConfig  
 .Subject = 'Your site is offline'  
 .From = 'me@mycomputer.com'  
 .To = 'xxxxxx@gmail.com'  
 .TextBody = 'Hey, your website is offline.'  
 .Send  
 End With  
End Select

Setelah skrip berjalan dan tidak dapat melakukan ping ke perangkat atau situs web , Anda mendapatkan pesan instan.

Ini cepat dan mudah, dan semuanya efisien!

Menggunakan Script VB Windows untuk Mengontrol Komputer Anda

Ini hanyalah beberapa contoh dari beberapa hal keren yang dapat Anda lakukan dengan skrip VB untuk merampingkan penggunaan komputer Anda. Ada banyak hal lain yang dapat Anda lakukan seperti pencadangan otomatis dengan VB dan Synctoy, mengotomatiskan perintah telnet, atau bahkan membuka dan mengontrol jendela aplikasi.

Apa saja hal-hal yang telah Anda otomatisasi di komputer Anda dengan skrip Windows? Apakah Anda menulis milik Anda menggunakan VB, atau menggunakan alat lain seperti PowerShell ?

Membagikan Membagikan Menciak Surel Inilah Mengapa FBI Mengeluarkan Peringatan untuk Hive Ransomware

FBI mengeluarkan peringatan tentang jenis ransomware yang sangat jahat. Inilah mengapa Anda harus sangat waspada terhadap ransomware Hive.

Baca Selanjutnya Topik-topik yang berkaitan

Pemrograman
Otomasi Komputer
Skrip

Tentang Penulis Ryan Dub(942 Artikel Diterbitkan)

Ryan memiliki gelar BSc di bidang Teknik Elektro. Dia telah bekerja 13 tahun di bidang teknik otomasi, 5 tahun di bidang TI, dan sekarang menjadi Insinyur Aplikasi. Mantan Managing Editor MakeUseOf, dia berbicara di konferensi nasional tentang Visualisasi Data dan telah ditampilkan di TV dan radio nasional.

Berlangganan newsletter kami

Bergabunglah dengan buletin kami untuk kiat teknologi, ulasan, ebook gratis, dan penawaran eksklusif!

Klik di sini untuk berlangganan