Cara Menulis Skrip Windows Untuk Mengubah Pengaturan Jaringan On The Fly

Iklan

Minggu ini, saya menemukan masalah yang menarik. Di banyak kantor atau lingkungan kerja, Anda mungkin perlu mendefinisikan kembali pengaturan jaringan Anda untuk terhubung ke jaringan yang berbeda. Misalnya, beberapa orang membawa pulang laptop mereka dan mengatur IP statis khusus untuk mesin itu. Namun, karena jaringan kerja biasanya DHCP, yang mengharuskan orang itu untuk terus mengubah pengaturan jaringan antara IP statis atau DHCP otomatis tergantung di mana mereka berada.

Masalah yang lebih umum adalah untuk insinyur atau staf TI yang sering perlu terhubung ke perangkat atau mesin pada jaringan kecil di dalam gedung. Untuk terhubung ke jaringan yang terisolasi itu, Anda harus mengubah pengaturan jaringan Anda menjadi IP statis. Kemudian, ketika Anda terhubung kembali ke jaringan perusahaan, itu kembali ke DHCP lagi.

Saya menemukan diri saya dalam situasi ini cukup sering, dan bosan browsing ke kartu jaringan, membuka pengaturan IP dan melakukan pengeditan itu, bahwa saya memutuskan sudah waktunya untuk mengumpulkan skrip VB yang akan melakukan semuanya dalam satu atau dua klik. Jika Anda mengikuti artikel pemrograman saya, maka Anda tahu bahwa saya suka skrip VB. Saya pernah menggunakannya untuk

buat komputer yang dirasuki Buat Komputer Possessed Freaky Dengan Windows Script Untuk HalloweenAda banyak lelucon yang bisa Anda mainkan di teman dengan komputer. Anda mungkin telah melihat semua video YouTube menyeramkan yang orang saling serang untuk menakuti ... Baca lebih banyak , dan juga terbiasa mengotomatiskan Microsoft SyncToy Cara Membuat Alat Cadangan Data Dengan Script SyncToy & VBKami telah membahas banyak solusi cadangan di sini di MUO, dan semua solusi ini hebat, tetapi jika Anda bekerja di lingkungan yang waspada dengan paket perangkat lunak pihak ketiga gratis, atau perusahaan ... Baca lebih banyak untuk backup data.

Mungkin juga untuk menyelesaikan tugas ini dengan skrip VB, dan bahkan mungkin membuatnya cukup fleksibel sehingga dapat menerima input pengguna untuk alamat IP statis. Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana melakukannya dalam tiga bagian.

Membuat Skrip Ubah Pengaturan Jaringan

Ada tiga tugas utama yang harus Anda selesaikan dengan skrip untuk membuat aplikasi kecil ini untuk beralih pengaturan jaringan. Yang pertama adalah menggunakan skrip untuk membuat pengaturan IP statis. Selanjutnya adalah membuat skrip untuk mengaktifkan DHCP. Akhirnya, yang terakhir adalah menanyakan kepada pengguna tugas yang ingin mereka lakukan, dan kemudian menggunakan umpan balik itu untuk menyelesaikannya.

VB Script untuk Mengatur Pengaturan IP Statis

Ingat, skrip berikut harus disimpan sebagai file teks dengan ekstensi .wsf agar dapat bekerja pada PC Windows. Skrip berikut akan mengubah pengaturan jaringan Anda menjadi IP statis dengan subnet mask tertentu dan default gatewall, dengan ketiganya dikodekan ke dalam skrip.

Untuk semua contoh kode yang tercantum dalam artikel ini, pastikan untuk menambahkan " pada akhirnya, jika tidak kode tidak akan berjalan.
Inilah skrip perubahan IP statis:

Opsi Eksplisit Pada Kesalahan Lanjutkan Dim Selanjutnya objWMIService. Redup objNetAdapter. Komputer str redup. Dim arrIPAddress. Dim arrSubnetMask. Pengaturan redup. Redup colNetAdapters. Dim errEnableStatic. Dim errGateways strComputer = "." arrIPAddress = Array ("192.168.1.106") arrSubnetMask = Array ("255.255.255.0") arrGateway = Array ("192.168.1.1") Tetapkan objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Set colNetAdapters = objWMIService. ExecQuery ("Pilih * dari Win32_NetworkAdapterConfiguration di mana IPEnabled = TRUE") Untuk Setiap objNetAdapter di colNetAdapters errEnableStatic = objNetAdapter. EnableStatic (arrIPAddress, arrSubnetMask) Jika Tidak errEnableStatic = 0 Kemudian WScript. Echo "Kegagalan menentukan IP / Subnet." End If errGateways = objNetAdapter. SetGateways (arrGateway) If Not errGateways = 0 Kemudian WScript. Echo "Gagal menugaskan Gateway." End If Next. WScript. Berhenti

Script ini menggunakan layanan Windows WMI di Windows untuk mencapai tujuan mengubah pengaturan. Anda dapat melihat tiga variabel array tetap yang dimuat dengan alamat IP, dan kemudian di mana skrip memeriksa kartu jaringan "aktif" yang aktif. Kemudian ia menggunakan metode "EnableStatic" dan "SetGateways" untuk membuat perubahan yang diperlukan. Ketika saya menjalankan skrip di jaringan rumah saya (di mana saya memerlukan DHCP), Anda dapat melihat di mana skrip berhasil mengubah pengaturan adaptor saya, dan saya kehilangan koneksi internet saya.

Setelah membuktikan bahwa bagian statis-IP dari skrip berfungsi, sekarang saatnya untuk menulis skrip yang akan mengatur adaptor ke DHCP sehingga secara otomatis akan mendeteksi IP jaringan. Inilah skrip yang dapat Anda gunakan untuk melakukannya.

Opsi Eksplisit Pada Kesalahan Lanjutkan Dim Selanjutnya objWMIService. Redup objNetAdapter. Komputer str redup. Dim errEnable strComputer = "." Setel objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Set colNetAdapters = objWMIService. ExecQuery ("Pilih * dari Win32_NetworkAdapterConfiguration di mana IPEnabled = TRUE") Untuk Setiap objNetAdapter di colNetAdapters errEnable = objNetAdapter. EnableDHCP () WScript selanjutnya. Berhenti

Seperti yang Anda lihat, skrip ini jauh lebih sederhana. Itu juga menggunakan WMI, tetapi satu-satunya fungsi yang diperlukan adalah "EnableDHCP". Ini dilakukan pada adaptor jaringan yang saat ini diaktifkan. Setelah menyimpan dan menjalankan skrip ini, pengaturan kartu adaptor saya berubah kembali ke DHCP, dan koneksi internet saya berfungsi kembali.

Jadi, sekarang setelah Anda mendapatkan kode untuk melakukan kedua tindakan penting, bagian selanjutnya dari trik ini adalah mengambil masukan dari pengguna untuk menentukan IP statis apa yang mereka inginkan. Untuk mengaktifkan kembali DHCP, Anda dapat meminta pengguna memasukkan kata "AUTO" untuk mendeteksi IP secara otomatis.
Beginilah skrip lengkap baru yang menggabungkan kedua skrip di atas.

Opsi Eksplisit Pada Kesalahan Lanjutkan Dim Selanjutnya objWMIService. Redup objNetAdapter. Komputer str redup. Dim arrIPAddress. Dim arrSubnetMask. Pengaturan redup. Redup colNetAdapters. Dim errEnableStatic. Dim errGateways. Dim strInput. Dim errFailed errFailed = 0 strInput = InputBox ("Ketikkan Alamat IP Statis atau AUTO") Jika strInput = "AUTO" Maka strComputer = "." Set objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Setel colNetAdapters = objWMIService. ExecQuery ("Pilih * dari Win32_NetworkAdapterConfiguration di mana IPEnabled = TRUE") Untuk Setiap objNetAdapter di colNetAdapters errEnable = objNetAdapter. EnableDHCP () If Not errEnable = 0 Kemudian WScript. Echo "Pengaturan DHCP Gagal." errFailed = 1 End If Next. Lain strComputer = "." arrIPAddress = Array (strInput) arrSubnetMask = Array ("255.255.255.0") arrGateway = Array ("192.168.1.1") Set objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ cimv2") Set colNetAdapters = objWMIService. ExecQuery ("Pilih * dari Win32_NetworkAdapterConfiguration di mana IPEnabled = TRUE") Untuk Setiap objNetAdapter di colNetAdapters errEnableStatic = objNetAdapter. EnableStatic (arrIPAddress, arrSubnetMask) Jika Tidak errEnableStatic = 0 Kemudian WScript. Echo "Kegagalan menentukan IP / Subnet." errFailed = 1 End If errGateways = objNetAdapter. SetGateways (arrGateway) If Not errGateways = 0 Kemudian WScript. Echo "Gagal menugaskan Gateway." errFailed = 1 End If Next End If If errFailed = 0 Kemudian WScript. Echo "Pengaturan IP Berhasil Dimodifikasi." End If WScript. Berhenti

Script ini menggunakan fungsi InputBox untuk mendapatkan IP statis atau perintah "AUTO" dari pengguna.

Jika sesuatu selain "AUTO" diketik ke dalam bidang, yang akan digunakan sebagai string IP statis di bagian kode yang menggunakan WMI untuk mengatur pengaturan IP statis untuk adaptor jaringan. Ada juga cek untuk konfirmasi "0" yang mengatakan semuanya berjalan baik.

Memeriksa pengaturan kartu jaringan saya setelah menjalankan skrip, saya mengkonfirmasi bahwa skrip itu memang membuat perubahan pengaturan IP statis.

Sekarang untuk menguji skrip AUTO. Mengetik AUTO memenuhi kondisi pertama dalam pernyataan "JIKA" yang memeriksa AUTO. Ini menjalankan skrip alternatif yang mengaktifkan DHCP.

Setelah menjalankan ini, saya masuk ke pengaturan adaptor saya dan cukup yakin, itu diatur kembali ke Mendapatkan alamat IP secara otomatis.

Meskipun mungkin tugas yang cukup sederhana untuk masuk ke pengaturan kartu jaringan Anda dan berubah menjadi statis atau DHCP, jika Anda harus melakukannya sangat sering itu dapat menjadi sangat menyakitkan. Anda bisa melakukannya dari baris perintah menggunakan "netsh", tetapi sekali lagi, Anda perlu mengingat sintaks perintah.

Dengan menggunakan skrip di atas, Anda dapat membuat utilitas cepat dan mudah yang dapat Anda gunakan kapan saja untuk mengubah pengaturan jaringan dengan cepat.

Anda pikir Anda bisa mencoba Skrip Windows ini? Adakah ide lain untuk mengubahnya dan membuatnya lebih baik? Bagikan pemikiran dan saran Anda di bagian komentar di bawah.

Kredit Gambar:Kode Biner melalui Shutterstock