Cara Menulis Skrip Windows Untuk Mengubah Pengaturan Jaringan On The Fly

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 memasang IP statis khusus untuk mesin itu. Namun, karena jaringan kerja biasanya DHCP, yang mengharuskan orang 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 di jaringan kecil di dalam gedung. Untuk terhubung ke jaringan yang terisolasi, Anda harus mengubah pengaturan jaringan Anda ke IP statis. Kemudian, ketika Anda terhubung kembali ke jaringan perusahaan, kembali ke DHCP lagi.

Saya menemukan diri saya dalam situasi ini cukup sering, dan sangat lelah browsing ke kartu jaringan, membuka pengaturan IP dan membuat pengeditan itu, sehingga saya memutuskan sudah waktunya untuk menyusun skrip VB yang akan melakukan semuanya dalam satu atau dua klik. Jika Anda telah mengikuti artikel pemrograman saya, maka Anda tahu bahwa saya menyukai skrip VB. Saya pernah menggunakannya untuk membuat komputer yang dimiliki , dan juga digunakan untuk mengotomatisasi Microsoft SyncToy untuk backup data.

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

Membuat Skrip Perubahan Pengaturan Jaringan

Ada tiga tugas utama yang perlu Anda selesaikan dengan skrip untuk membuat aplikasi kecil ini untuk beralih pengaturan jaringan. Yang pertama adalah menggunakan skrip untuk membuat pengaturan IP statis. Berikutnya adalah membuat skrip untuk mengaktifkan DHCP. Akhirnya, yang terakhir adalah bertanya kepada pengguna tugas mana yang ingin mereka lakukan, dan kemudian gunakan umpan balik itu untuk mencapainya.

VB Script untuk Mengatur Pengaturan IP Statis

Ingat, skrip berikut perlu disimpan sebagai file teks dengan ekstensi .wsf agar dapat berfungsi pada PC Windows. Skrip berikut ini akan mengubah pengaturan jaringan Anda ke IP statis dengan subnet mask spesifik dan gateway default, dengan ketiga hard coded ke dalam skrip.

Untuk semua sampel kode yang tercantum dalam artikel ini, pastikan untuk menambahkan “<job> <script language =” VBScript “>” di awal dan “</ script> </ job> di bagian akhir, jika tidak, kode tidak akan berjalan . 

Berikut skrip perubahan IP statis:

Opsi Eksplisit

Pada Kesalahan Lanjutkan Berikutnya

Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim arrIPAddress
Dim arrSubnetMask
Redup arrGateway
Dim colNetAdapters
Dim errEnableStatic
Dim errGateways

strComputer = "."

arrIPAddress = Array ("192.168.1.106")
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 menetapkan IP / Subnet."
     Berakhir jika

     errGateways = objNetAdapter.SetGateways (arrGateway)
     Jika Bukan errGateways = 0 Kemudian
     WScript.Echo "Gagal menugaskan Gateway."
     Berakhir jika

Berikutnya
WScript.Quit

Skrip 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” aktif. Kemudian ia menggunakan metode “EnableStatic” dan “SetGateways” untuk melakukan 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 telah kehilangan koneksi Internet saya. 



Setelah membuktikan bahwa bagian statis-IP dari skrip berfungsi, saatnya untuk menulis skrip yang akan mengatur adaptor ke DHCP sehingga secara otomatis akan mendeteksi IP jaringan. Berikut skrip yang bisa Anda gunakan untuk melakukan itu.

Opsi Eksplisit

Pada Kesalahan Lanjutkan Berikutnya

Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim errEnable

strComputer = "."
Set 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 ()
Berikutnya

WScript.Quit

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



Jadi, sekarang setelah Anda memiliki kode untuk melakukan kedua tindakan penting tersebut, bagian selanjutnya dari trik ini adalah mengambil masukan dari pengguna untuk menentukan dengan tepat IP statis apa yang mereka inginkan. Untuk mengaktifkan kembali DHCP, Anda dapat meminta pengguna untuk memasukkan kata “AUTO” untuk mendeteksi IP secara otomatis. 

Inilah skrip baru dan lengkap yang menggabungkan dua skrip di atas.

Opsi Eksplisit

Pada Kesalahan Lanjutkan Berikutnya

Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim arrIPAddress
Dim arrSubnetMask
Redup arrGateway
Dim colNetAdapters
Dim errEnableStatic
Dim errGateways
Dim strInput
Dim errFailed

errFailed = 0

strInput = InputBox ("Ketik Alamat IP Statis atau AUTO")

Jika strInput = "AUTO" Lalu

strComputer = "."
Set 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 ()
     Jika Tidak errEnable = 0 Kemudian
     WScript.Echo "Pengaturan DHCP Gagal."
errFailed = 1
     Berakhir jika
Berikutnya
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 menetapkan IP / Subnet."
errFailed = 1
     Berakhir jika

     errGateways = objNetAdapter.SetGateways (arrGateway)
     Jika Bukan errGateways = 0 Kemudian
     WScript.Echo "Gagal menugaskan Gateway."
errFailed = 1
     Berakhir jika

Berikutnya

Berakhir jika

Jika errFailed = 0 Kemudian

WScript.Echo "Pengaturan IP Berhasil Diubah."

Berakhir jika

WScript.Quit

Skrip ini menggunakan fungsi InputBox untuk mendapatkan IP statis atau perintah “OTOMATIS” dari pengguna.

Jika apa pun selain “AUTO” diketik ke lapangan, 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” mengatakan semuanya berjalan baik-baik saja.

Memeriksa pengaturan kartu jaringan saya setelah menjalankan skrip, saya menegaskan bahwa skrip benar-benar membuat perubahan IP statis berubah. 



Sekarang untuk menguji skrip AUTO. Mengetik AUTO memenuhi ketentuan pertama dalam pernyataan “IF” yang memeriksa AUTO. Ini menjalankan skrip alternatif yang memungkinkan DHCP.

Setelah menjalankan ini, saya masuk ke pengaturan adaptor saya dan cukup yakin, itu diatur kembali untuk 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 bisa menjadi rasa sakit yang nyata. Anda dapat melakukannya dari baris perintah menggunakan “netsh”, tetapi sekali lagi, Anda perlu mengingat sintaks perintah.

Menggunakan skrip di atas memungkinkan Anda membangun utilitas cepat dan mudah yang dapat Anda gunakan kapan saja untuk mengubah pengaturan jaringan Anda dengan cepat.

Pikirkan Anda mungkin mencoba Skrip Windows ini? Ada ide lain untuk mengubahnya dan membuatnya lebih baik? Bagikan pemikiran dan saran Anda di bagian komentar di bawah ini.

Sumber https://indoint.com/